Hi,
I have a simple perl script where I am passing array of gziped files to the while loop and trying to read content of each field one line at the time using gzcat. Yet, I can not get it to work
Here is what I am doing

...
while ($filename=shift) {

open(MYFILE, "| gzcat $filename");

while ($next=<MYFILE>) {

print $next;

}

}
...
my problem is the
print $next;
never executes.
Somehow inner loop condition returns false even though gz file exist and it is not empty.
I am relatively new to perl and perhaps I am doing something wrong.
Any ideas?

Using Korn Shell:

#!/usr/bin/ksh

while [ -f ${1} ]
do
gzcat ${1}
shift
done

Found it,
Actually it should be this way

...
open(MYFILE, "gzcat $filename |");
...