Как Perl-ом разархивировать файл?

Проблема такая.
Есть заархивированный лог-файл, типа custom.log.1.gz - его нужно раскрыть и прочитать.

`gzip -d custom.log.1.gz`
получишь файл custom.log.1 который можно прочитать

можно сделать
open( FH, '| gzip -cd custom.log.1.gz ' )

и читать

За последний вариант не ручаюсь, проверить не могу

Вот пожалуйста:

http://search.cpan.org/~pmqs/Compress-Zlib-1.39/Zlib.pm

ghood писал:

`gzip -d custom.log.1.gz` получишь файл custom.log.1 который можно прочитать

Не совсем понятно. Ведь где то должен быть указан путь к файлу. ??

svs писал:

Не совсем понятно. Ведь где то должен быть указан путь к файлу. ??

ghood видимо имел ввиду что надо вызвать это через system() - там путь к gzip можно не указывать, а к custom.log.1.gz - относительный путь от того каталога где скрипт лежит.

в ПХП кстати есть модуль для работы с gz-файлами - все довольно просто...

Проблема остается. Как я понял, никто не раскрывал сжатых файлов.
Пробовал такую конструкцию:
$file="../logs/error.log.1.gz";
open $LOG, "gzcat -de $file|";
while (<$LOG>){
$R++
}
print $R
При этом каждый раз (в различных вариантах) распечатывается help по gzcat (или gzip) из 22 строк. То есть, программа запускается, но не находит путь к файлу.

Все!!! Проблема решена!!!
Вот скрипт, который работает:

Код:

$file="../logs/error.log.1.gz"; open  $LOG, "gzcat $file|"; while (<$LOG>){ print "$_<br>";    $R++; }; print "R=$R;"

Благодарю всех, кто откликнулся. По крайней мере направили мысль в нужном направлении.