截取字符串中的一段

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

1^# miaho 发表于 2008-05-21 22:40

截取字符串中的一段

1.我想得到这个字符串 $tmp中的最后一段 wered ，除了spilt还有什么其他的好的方法。
$tmp = '/usr/local/tixna/wered';

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

2^# 不死草发表于 2008-05-21 23:27

那还要看你的最后一段之前的部分长度是不是固定的，是固定的话，可以按位来读。。。

Monox

UID: 7804
帖子: 78
积分: 179
在线时间: 8 小时

3^# Monox 发表于 2008-05-21 23:34

还可用模式匹配，不过split也是用模式匹配来完成的，split很好，很方便，为什么不用split呢？

sunny67892000

UID: 12171
帖子: 183
积分: 420
在线时间: 1 天 21 小时

4^# sunny67892000 发表于 2008-05-21 23:46

try this one
$tmp = '/usr/local/tixna/wered';
@ret = $tmp =~ m/(.{17})(.*)$/;
print "$ret[1]\n";

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

cobrawgl

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

5^# cobrawgl 发表于 2008-05-22 07:55

这种类型的字符串，为什么不用 split 呢？

zhasm

UID: 11992
帖子: 173
积分: 397
在线时间: 1 天 17 小时

6^# zhasm 发表于 2008-05-22 09:37

可以用正则式：

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

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

7^# miaho 发表于 2008-05-22 09:48

谢谢！

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

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

8^# miaho 发表于 2008-05-22 09:55

QUOTE:

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

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

9^# flw 发表于 2008-05-22 10:15

出于可移植性的考虑，应该用：
use File::Basename;
手册：
perldoc File::Basename

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

10^# 不死草发表于 2008-05-22 14:44

QUOTE:

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

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

[Copy to clipboard] [ - ]

CODE:

#!/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";

截取 字符串中的一段

截取 字符串中的一段

截取字符串中的一段

截取字符串中的一段