求一正则表达式 ！

[erbao78]

AP880212-0001
AP880212-0002
AP880212-0003
。
。
。
。
。
。
AP880212-0171

想把其变成
AP880212-1
AP880212-2
AP880212-3
。
。
。
。
。
AP880212-171

正则表达式用的不熟悉 ：-（

[xyzxyz1111]

while(<>){
s/(^AP\d+\-)(0+)/$1/g;
print;
}

[hyt3]

s/(AP\d+\-)0+(\d)/$1$2/

[zary_linux]

sed -ne 's/\(-[0]*\)/-/p' file

[zengpan_panpan]

undef $/;
$x = <>;
$x =~ s/(.*-)0*(\d+)/$1$2/mg;
print $x;

[lvlfforever]

my @t = qw(AP880212-0001 AP880212-0002 AP880212-0003 );##and so on...

foreach(@t)
{
s/(.*\-).*(\d)$/$1$2/ig;
print;
print "\n";
}

[lvlfforever]

楼上有误：
s/(.*\-).*(\d)$/$1$2/ig;#改成zengpan_panpan() 的： s/(.*-)0*(\d+)/$1$2/mg;