- 525 名前：デフォルトの名無しさん mailto:sage [2012/02/10(金) 19:21:33.05 ]
- >>511
sort {($a0 = $a) =~ s/(\d+)/1000 + $1/ge, ($b0 = $b) =~ s/(\d+)/1000 + $1/ge, $a0 cmp $b0} @file_list;
関数の形
sort renamed @file_list;
sub renamed {
(my $a0 = $a) =~ s/(\d+)/1000 + $1/ge;
(my $b0 = $b) =~ s/(\d+)/1000 + $1/ge;
$a0 cmp $b0;
}
