perl里面用啥命令截取一个字符串的最后几个字符呢？

ccc77

http://a.com/fs/900/1/5d4d9bcfc3 ... e/setup-365rili.exe
http://a.com/fs/900/1/5d4d9bcfc3 ... /setup-365rili.docx

比如我想取出最后的字符串：
exe和docx

climby

这个. 模式匹配应该可以的

1. 
   
2. my $str = "http://a.com/fs/900/1/5d4d9bcfc3 ... e/setup-365rili.exe";
   
3. my ($result) = $str =~ /\.([^\.]+)$/ ;
   
4. print $result;
   

复制代码

ccc77

1，index
position = index (string, substring, position)
返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。

例子如下：
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a"); print $rev,"\n";'
2
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 1); print $rev,"\n";'
2
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 3); print $rev,"\n";'
6
[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 7); print $rev,"\n";'
-1


2，rindex
position = rindex (string, substring, position)
与index类似，区别是从右端匹配。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 11); print $rev,"\n";'
2
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 12); print $rev,"\n";'
12
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 1); print $rev,"\n";'
-1
[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 2); print $rev,"\n";'
2


3，length
num = length (string)
返回字符串长度，或者说含有字符的数目。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=length($_); print $rev,"\n";'
17
[root@localhost ~]# echo -n '/var/ftp/tesa/123  ' | perl -ne '$rev=length($_); print $rev,"\n";'
19


4，substr
substr (expr, skipchars, length)
抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子串长度为length，

此参数可忽略，意味着取剩下的全部字符。
当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。

substr() 函数的作用有两个：替换一部分子串。 删除一部分子串。

例子如下：

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9,);print $rev,"\n";'
test/123
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4);print $rev,"\n";'
test

替换：
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)="hello"; print $rev,"\n";'
hello
删除：
[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)=""; print $rev,"\n";'




5，lc，uc，lcfirst，ucfirst
lc，将字符串改为小写
uc，将字符串改为大写
lcfirst，改变字符串首字母小写
ucfirst，改变字符串首字母大写

例子如下：

[root@localhost ~]# echo -n 'hello, hanli' | perl -ne '$rev=uc($_); print $rev,"\n";'
HELLO, HANLI
[root@localhost ~]# echo -n 'HELLO, hanli' | perl -ne '$rev=lc($_); print $rev,"\n";'
hello, hanli
[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=ucfirst($_); print $rev,"\n";'
Hello, Hanli
[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=lcfirst($_); print $rev,"\n";'
hello, Hanli

文章出处：DIY部落(http://www.diybl.com/course/6_sy ... 081117/151770.html#)

shaneqi

index

ccc77

index
shaneqi 发表于 2010-02-22 18:31

$a1 = "http://a.com/fs/900/1/5d4d9bcfc3883584a7010e85af3f089829165094/exe/setup-365rili.exe";
$p = rindex($a1,".");
print "$p \n";
$res = substr($a1,$p,length($a1)-$p);
print "$res \n";