Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Reading zipped files (.gz)

by vinoth.ree (Monsignor)
on Nov 18, 2015 at 07:59 UTC ( #1147981=note: print w/replies, xml ) Need Help??

in reply to Reading zipped files (.gz)

Try the following code.

#!/usr/bin/perl use warnings; use strict; use Archive::Tar; use Data::Dumper; my $cdr_dir="/root/prac/NSN_SGSN"; my @cdr_list=`ls $cdr_dir/*tar.gz`; print Dumper \@cdr_list; foreach my $file (@cdr_list) { chomp $file; my $pipecmd = "tar -xvf $file"; #open my $fh, q{<}, qq{tar xzOF $file | } or die $!; open(my $PIPEIN, '-|', $pipecmd) or die "Opening pipe [$pipecm +d]: $!\n"; while ( my $line = <$PIPEIN> ) { print $line; } close $PIPEIN; }

Try whatever the option you want with the tar command, I used -xvf for sample tesing.

You have included Archive::Tar why do not you use that module to read the tar file content ?

All is well. I learn by answering your questions...

Replies are listed 'Best First'.
Re^2: Reading zipped files (.gz)
by ravi45722 (Pilgrim) on Nov 18, 2015 at 08:43 UTC

    I tried that module but cant reached up to that extend. If you have any sample code on to read .gz files (Not tar.gz) please post it here. Its very helpful for me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1147981]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2020-05-27 01:01 GMT
Find Nodes?
    Voting Booth?
    If programming languages were movie genres, Perl would be:

    Results (152 votes). Check out past polls.