07/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は（処理が重いから？）あまり使わないほうがいいみたいなイメージがあったので正規表現にして
みたのですが、どうでしょうか？
あとこの（ソートの仕方の）関数名に何か良い名前はないでしょうか。
なかなか良い名前が思い浮かばない・・・。