U'll need a two stage sort.  Once to get the dirs in ascii order and then
again on each group to get the numeric sort.  Read perldoc -f sort.

foreach $i (@list) {
        ($dir, $file) = $i =~ m/^(.+)\/(.+)$/;
        push @{$hash{$dir}}, $file;
}
foreach $key (sort %hash) {
        @j = sort {$a <=>  $b}  @{$hash{$key}};
        foreach $k (@j) {
                print $key, "/", $k, "\n";
        }
}
       

At 04:20 PM 10/26/2005 +0530, Maxmelbin Neson (RBIN/EDM3) wrote:
> @b= sort(@a);
> How do I sort it so that I get the following correct output as follows
>  /view/test.max2kor1/vobs/maxvob/max.c@@/main/tmp_maxtest1/7 
>  /view/test.max2kor1/vobs/maxvob/max.c@@/main/tmp_maxtest1/17 
>  /view/test.max2kor1/vobs/maxvob/satish.c@@/main/tmp_maxtest1/1
> /view/test.max2kor1/vobs/maxvob/satish.c@@/main/tmp_maxtest1/2
> /view/test.max2kor1/vobs/maxvob/satish.c@@/main/tmp_maxtest1/4 
> /view/test.max2kor1/vobs/maxvob/satish.c@@/main/tmp_maxtest1/12 
>  /view/test.max2kor1/vobs/maxvob/satish.c@@/main/tmp_maxtest1/102 


--
REMEMBER THE WORLD TRADE CENTER         ---=< WTC 911 > =--
"...ne cede malis"

00000100

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs