perl中一个字符排序的问题？

bono

有一列字符，格式为ABBB。其中A为字母、B为数字。例如s001。
请问该如何对这样的字符进行排序？要求先比较A，如果A相同的再比较BBB。
例如：
a001
a012
b101
c033
感觉好像很麻烦的说，有没有什么快速的方法？谢谢

deathcult

sort()

bono

直接用sort()的话，a010是排在a002前面的。如果考虑成按数值排序，BBB是正确了，但A的字符排序好像又不响应了。

lovepl

不是啊，是这样的 ：

C:\>;perl
@array = qw(a010 a002 b101 c033);
print join "-",sort @array;

^Z
a002-a010-b101-c033

bono

原帖由 "lovepl" 发表：
不是啊，是这样的 ：

C:\>;perl
@array = qw(a010 a002 b101 c033);
print join "-",sort @array;

^Z
a002-a010-b101-c033

呵呵，真怪了，发贴前我用sort直接排序出来的结果a010是在a002前面的。难道是当时看花眼了   

lovepl

呵呵，花了花了，再试一下

lovepl

呵呵，花了花了，你再试一下