perlquestion
Ashes.cfg
hello All,
Its a long time I have worked on Perl(an yr).I have a simple question. I am using File::Find module to traverse through my directory and access my file
<code>sub messages {
my $dir = shift or return;
my @messages;
find(sub { next if /^\.+$/ || -d $File::Find::name; push @messages, $File::Find::name }, $dir);
return @messages;
}</code>
The Output I get is really strange..Consider I have 100 files(numbered 1 thru 100)...somehow the way the files are accessed is
<code>
File 1
File 10
File 100
File 2
File 20
File 21
.
. and so on
</code>
I think I am making a mistake in the regex.Holy Monks...Kindly help me.... The Rest of my code is working correctly.
Regards
Ashes