Chinaunix

标题: 截取字符串中的一段 [打印本页]

作者: miaho 时间: 2008-05-21 22:40
标题: 截取字符串中的一段
1.我想得到这个字符串 $tmp中的最后一段 wered ，除了spilt还有什么其他的好的方法。
$tmp = '/usr/local/tixna/wered';

作者: 不死草 时间: 2008-05-21 23:27
那还要看你的最后一段之前的部分长度是不是固定的，是固定的话，可以按位来读。。。

作者: Monox 时间: 2008-05-21 23:34
还可用模式匹配，不过split也是用模式匹配来完成的，split很好，很方便，为什么不用split呢？

作者: sunny67892000 时间: 2008-05-21 23:46
标题: 回复 #1 miaho 的帖子
try this one
$tmp = '/usr/local/tixna/wered';
@ret = $tmp =~ m/(.{17})(.*)$/;
print "$ret[1]\n";

+++ result +++
"wered" will be returned

作者: cobrawgl 时间: 2008-05-22 07:55
这种类型的字符串，为什么不用 split 呢？

作者: zhasm 时间: 2008-05-22 09:37
可以用正则式：

$tmp = '/usr/local/tixna/wered';
$tmp =~ m/(\w+)$/;
print $1;

作者: miaho 时间: 2008-05-22 09:48
谢谢！

我知道spilt的方法了，想知道还有没有其他的方法可用。原来正则表达式也可以

作者: miaho 时间: 2008-05-22 09:55

原帖由 zhasm 于 2008-5-22 09:37 发表
可以用正则式：
$tmp = '/usr/local/tixna/wered';
$tmp =~ m/(\w+)$/;
print $1;

为什么这个正则表达式的结果会在 $1里呢？？？

作者: flw 时间: 2008-05-22 10:15
出于可移植性的考虑，应该用：
use File::Basename;
手册：
perldoc File::Basename

作者: 不死草 时间: 2008-05-22 14:44

原帖由 flw 于 2008-5-22 10:15 发表
出于可移植性的考虑，应该用：
use File::Basename;
手册：
perldoc File::Basename

如果考虑前面的字符串的不稳定性，根据模式'/*/*/*/$name'，老大的建议是最好的，直接取整个字符串的最后一部分-->“$name”的话，可以使用代码：

#!/usr/bin/perl -w
use strict;
use File::Basename ; # import no function names
my $name = "/usr/local/bin/perl";
my $basename = basename $name; # get $name-->'perl'
print $basename,"\n";

复制代码

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)