这个perl 正则怎么写？

chzht001

1^# chzht001 发表于 2008-02-22 09:04

$name = "/var/www/cd/pool/main/f/fake/fake_1.1.10-1.dsc";

我想取fake_1.1.10-1.dsc的fake_1.1.10并转换为fake-1.1.10，怎么写正则呢？

apile

2^# apile 发表于 2008-02-22 09:12

/.*\/(fake_\d+\.\d+.\d+).*/
print $1;
如果1.1.10是会变的话..

chzht001

3^# chzht001 发表于 2008-02-22 10:27

谢谢