use strict; use warnings; use v5.14; use Compress::Zlib; my $filename= "example.gz"; my $fh= gzopen($filename, "rb"); my $line=0; my $counter=1; my @array=(); [b]while($line = <$fh>)[/b] { @array= split (' ', $line); my $num = scalar(@array); print "$array[15] $array[1]\n" if ($array[15] eq "word"); $counter++; } close $fh;
In reply to Not a GLOB reference by GeekyBrackets
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |