Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Reading zipped files (.gz)

by vinoth.ree (Monsignor)
on Nov 18, 2015 at 07:59 UTC ( [id://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; }
Update:

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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-04-20 04:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found