perl如何截取文件名

spicemodel

UID: 3517
帖子: 132
积分: 303
在线时间: 1 天

1^# spicemodel 发表于 2008-09-23 09:57

perl如何截取文件名

$str="D:\test\aaa.txt"

如何不使用模块得到 "aaa.txt"

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

2^# xiaoyu9805119 发表于 2008-09-23 10:38

split or re

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

3^# hfahe 发表于 2008-09-23 10:48

正则

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

4^# forlorngenius 发表于 2008-09-23 10:53

basename

spicemodel

UID: 3517
帖子: 132
积分: 303
在线时间: 1 天

5^# spicemodel 发表于 2008-09-23 10:54

$str="D:\test\aaa.txt";

@temp=split("\\",$str);

报错：

/\/: trailing \ in regexp...

咋回事啊？

cenalulu

UID: 16764
帖子: 3
积分: 6
在线时间: 10 分钟

6^# cenalulu 发表于 2008-09-23 11:03

$str='D:\test\aaa.txt';

@temp=split m/\\/,$str;

str赋值不能用双引号不然里面的\会转义。。。

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

7^# xiaoyu9805119 发表于 2008-09-23 11:07

$str="D:\test\aaa.txt";

这个路径就不对\t是tab符。$str="D:\\test\\aaa.txt";

cenalulu

UID: 16764
帖子: 3
积分: 6
在线时间: 10 分钟

8^# cenalulu 发表于 2008-09-23 11:10

$str='D:\test\aaa.txt';

$str=~ m/([^\\]+)$/;
$name = $1;
print "$name";

也可以这样直接截名字

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

9^# ulmer 发表于 2008-09-23 17:25

QUOTE:

原帖由 spicemodel 于 2008-9-23 09:57 发表
$str="D:\test\aaa.txt"

如何不使用模块得到 "aaa.txt"

Hi,

Three basic way to do that:
1. split:
perl -le '$p=q(D:\dir\subdir\file.txt); $fn=(split /\\/, $p)[-1];print $fn'

2. pattern match:
perl -le '$p=q(D:\dir\subdir\file.txt); ($fn)=$p=~/([^\\]+)$/;print $fn'

3. rindex() + substr():
perl -le '$p=q(D:\dir\subdir\file.txt); $pos=rindex($p, "\\"); print $pos; print substr($p, $pos+1);'

w-j-998

UID: 15655
帖子: 33
积分: 75
在线时间: 1 小时

10^# w-j-998 发表于 2008-09-24 15:57

perl -le '$p=q(D:\dir\subdir\file.txt);@a=split(/\\/,$p);print $a[3];'