"../input/a.tar"如何取得".tar"前面的字符串阿

zhengangzhu

1^# zhengangzhu 发表于 2007-10-24 14:26

大家好
"../input/a.tar"如何取得".tar"前面的字符串"../input/a"阿？
用正则表达式吗还是某个perl函数可以解决？
有知道的没。

大狗狗

2^# 大狗狗发表于 2007-10-24 14:44

perl -e '$i="../input/a.tar" ;$i=~ /(.\w+)$/ ;print $1';

笨方法

ubu

3^# ubu 发表于 2007-10-24 14:48

perl -e '$i="../input/a.tar" ;$i=~ /(.*)\.tar$/ ;print $1';

ubu

4^# ubu 发表于 2007-10-24 14:53

或者perl -e '$i="../input/a.tar" ;$i=~ /(.\w+)$/ ;print $｀';

orangetouch

5^# orangetouch 发表于 2007-10-24 15:31

perl -e '$a="../i.tarnput/a.tar"; print [split /\.tar$/, $a]->[0];'

Lonki

6^# Lonki 发表于 2007-10-24 15:42

my $str = "../input/a.tar";
print substr($str, 0, rindex($str, '.tar'));

royalzhang

7^# royalzhang 发表于 2007-10-24 17:47

use File::Basename;
my $file = "../input/a.tar";
my ($name,$path,$suffix) = fileparse($file,qr/\.tar/);
print "$path$name\n";

http://www.notii.com/2007/08/more_perl_everyday.html

我是大宇

8^# 我是大宇发表于 2007-10-24 18:15

WWW-Search-Yahoo-2.405.tar.tar
这样的文件呢?
非贪婪匹配.
~/(.*?)\.tar/ig;

&quot;../input/a.tar&quot;如何取得&quot;.tar&quot;前面的字符串阿