In the code I am printing the list of files. In that it showing files. But while trying to read it's showing error like this.
[root@ems NSN_SGSN]# perl gun.pl $VAR1 = [ 'generate_ASR_PSR_report.pl.gz', 'generate_nsn_sgsn_report.pl.gz' ]; Couldn't read [gzip -cd "generate_ASR_PSR_report.pl.gz"]: No such file + or directory at gun.pl line 20.
#!/usr/bin/perl use warnings; use strict; use File::Glob ':bsd_glob'; use Archive::Tar; use Data::Dumper; my $cdr_dir="/root/prac/NSN_SGSN"; my @list = bsd_glob('g*.gz'); print Dumper \@list; foreach my $file (@list) { my $cmd = sprintf 'gzip -cd "%s"', $file; open my $fh, $cmd or die "Couldn't read [$cmd]: $!"; while ( my $line = <$fh> ) { print $line; } close $fh; }
In reply to Re^8: Reading zipped files (.gz)
by ravi45722
in thread Reading zipped files (.gz)
by ravi45722
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |