请教，关于字符串处理的一个具体事例的写法。

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

1^# luotuo_007 发表于 2007-05-17 22:58

请教，关于字符串处理的一个具体事例的写法。

请教，关于字符串处理的一个具体事例的写法。
my $fileName = "F:\setup\setup\image\gate\apgn.jpg";

请问，类似路径这样的字符串怎样能最终提取出最终文件名apgn来呢（去除后缀）
[CCB]10[/CCB]

fkiori

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

2^# fkiori 发表于 2007-05-18 04:45

用正则，取最后一个 / 或者 \ 后面的内容，就是文件名
然后在去除最后一个小数点后面的东西
剩下就是了

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

3^# luotuo_007 发表于 2007-05-18 12:34

用正则，取最后一个 / 或者 \ 后面的内容，就是文件名
请问，实现这句应该怎样写呢？？？

luxyi

UID: 41524
帖子: 133
积分: 305
在线时间: 1 天

4^# luxyi 发表于 2007-05-18 14:02

File::Basename 模块.
File::Basename 模块

luotuo_007

UID: 21323
帖子: 184
积分: 423
在线时间: 1 天 22 小时

5^# luotuo_007 发表于 2007-05-18 15:34

多谢楼上各位的指点，我打.
多谢楼上各位的指点，我打算用File::Basename 模块了。

下面是小例子：

#!/usr/bin/perl
use File::Basename; #引用模块，该模块用于从绝对路径中提取文件名

my $full_name="F:/setup/setup/image/gate/apgn.jpg";
$full_name=basename($full_name);#从模块中调用basename函数完成提取文件名
$full_name=~s!\s!\_!g;#若文件名有空格的处理

print "$full_name\n";

结果：apgn.jpg