Roode, Eric wrote:
>> An easier solution than the one already suggested might be
>> to use the perl builtin functions glob(3p) and sort(3p),
>> in particular the "sort BLOCK" form.
> Your help is accurate from a certain point of view, but does not
> really advance Rakumar toward an answer. You suggest "sort
> BLOCK"... but what would you put *into* that BLOCK?
my @files = sort { my ($a1, $b1) = ($a, $b); $a1 =~ s/\D//g; $b1 =~ s/\D//g;
$a1 <=> $b1 } readdir $DIR;
--
Serguei Trouchelle
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
