Parag Kalra wrote:
On Wed, Jan 20, 2010 at 2:20 PM, Shameem Ahamed <[email protected]>wrote:
I am wondering how can i use the glob function to get only the first few
files.
I have files with digits as extensions. Like file.0, file.1
file.2......file.100,file.101 etc.
I want to select only the first 30 files.
I used glob("file.[0-4]?[0-9]") but it doesn't seem to be working. The glob
function trying to parse ? as separate, and matches all three digit
extensions.
How can i sort this out ?.
On the same lines I have question to all Perl Gurus. In this scenario can we
following? And if Yes, how efficient it is?
#!/usr/bin/perl
#Author: Parag Kalra
use strict;
use warnings;
# Creating 50 files - you can skip this
foreach(1..50){
open my $fh, '>', 'file.'.$_;
}
my @Req_Input_Files;
# Getting first 30 files out of the lot of 50
foreach(1..30){
my $tmp_file = 'file.'.$_;
push @Req_Input_Files, glob $tmp_file;
You've got the right idea except you don't want to use glob() there, you
want to use a file test operator instead:
push @Req_Input_Files, $tmp_file if -e $tmp_file;
}
print "@Req_Input_Files\n";
O/P:
perl Search_30_Files.pl
file.1 file.2 file.3 file.4 file.5 file.6 file.7 file.8 file.9 file.10
file.11 file.12 file.13 file.14 file.15 file.16 file.17 file.18 file.19
file.20
file.21 file.22 file.23 file.24 file.25 file.26 file.27 file.28 file.29
file.30
John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity. -- Damian Conway
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
