FAQ

How can we use open to read .gz files. I can use to read after unzipping. But I dont want to unzip it. I want to read it directly without unzipping. Is there any modules to do like that???

Is there any modules to do like that?

Yes, there are several. Why not try PerlIO::gzip for starters?

You already have been introduced to the concept of reading from pipes. Maybe try

my $cmd = sprintf 'gzip -cd "%s"', $file;
open my $fh, $cmd
    or die "Couldn't read [$cmd]: $!";
[download]

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.
[download]

#!/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;
}
[download]

Sorry, that's my error. The command to open must be:

my $cmd = sprintf 'gzip -cd "%s" |', $file;
[download]

I think now is a good time to (re)read and understand the documentation for open.