As you suggested I changed my ls with File::Glob. Now help me in how to read .gz files???
#!/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('*.gz'); print Dumper \@list; foreach my $file (@list) { #open gz file, read line by line }
In reply to Re^6: Reading zipped files (.gz)
by ravi45722
in thread Reading zipped files (.gz)
by ravi45722
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |