如何截取文件名,只保留数字输出

panther

UID: 28487
帖子: 1
积分: 2
在线时间: 10 分钟

1^# panther 发表于 2008-10-24 17:24

如何截取文件名,只保留数字输出

如何截取文件名,只保留数字输出
如果文件名是这样的:100001.mol.csv
需要最终输出为100001

下面运行的结果是:100001.mol.
请高人指点一二~~~
----------------------------------------------------
$pathway=<STDIN>;
$pathway=~s/[a-z]+$//;
chomp($pathway);

print $pathway;

imbafrog

UID: 14882
帖子: 121
积分: 278
在线时间: 20 小时

2^# imbafrog 发表于 2008-10-24 20:21

当然是结果是这样的了。 /.
当然是结果是这样的了。 /\D+//;

imbafrog

UID: 14882
帖子: 121
积分: 278
在线时间: 20 小时

3^# imbafrog 发表于 2008-10-24 20:28

#!/usr/bin/perl--use s.
#!/usr/bin/perl
use strict;
my $path=$ARGV[0];
$path=~s/\D+//;
print "$path \n";

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

4^# beckheng 发表于 2008-10-25 08:46

[CCB]6[/CCB].

panther

UID: 28487
帖子: 1
积分: 2
在线时间: 10 分钟

5^# panther 发表于 2008-10-27 09:00

好~~~搞定~~谢谢大家~~[CC.
好~~~搞定~~谢谢大家~~

胖瓜瓜

UID: 27479
帖子: 1
积分: 2
在线时间: 10 分钟

6^# 胖瓜瓜发表于 2008-10-28 14:07

[CCB]6[/CCB].