- 25 名前：デフォルトの名無しさん mailto:sage [2007/06/14(木) 17:10:31 ]
- >>24
ありがとうございます！参考にさせてもらって正規表現で作って見ました。
sub sort_length{
my ($a, $b) = @_;
#同じ文字列;
if($a =~ /^$b$/)
{
return $a cmp $b;
}
#途中まで同じ文字列で$aの方が長い;
elsif($a =~ /^$b/)
{
return '' cmp $a;
}
#途中まで同じ文字列で$bの方が長い
elsif($b =~ /^$a/)
{
return $b cmp '';
}
else
{
return $a cmp $b;
}
}
substrは（処理が重いから？）あまり使わないほうがいいみたいなイメージがあったので正規表現にして
みたのですが、どうでしょうか？
あとこの（ソートの仕方の）関数名に何か良い名前はないでしょうか。
なかなか良い名前が思い浮かばない・・・。
