perl正则表达式问题

cobrawgl

怪怪，把你运行的 代码 贴上来看看，我怎么没问题。

wdl111

#!/usr/bin/perl
$b="a/b/c/文";
#$b=~ s#/.?$##
#$b=~ s@(.*)/.*@$1@;
$b=~ s[/\w+$][];
print "$b\n";




这个  你看下吧

[ 本帖最后由 wdl111 于 2009-11-12 11:07 编辑 ]

wdl111

不好意思  我是中文的

cobrawgl

晕！你用中文你早说啊

[ 本帖最后由 cobrawgl 于 2009-11-12 11:10 编辑 ]

wdl111

不好  意思啊   抱歉  忘了这点了

cobrawgl

#!/usr/bin/perl
use strict;
use warnings;

use Encode;

$b="a/b/c/文";

$b = decode('gb2312',$b);

$b=~ s[/\w*$][];

print encode('gb2312', $b);

cobrawgl

你要处理中文的话，这样保险点。

jy198435

~s/(.*)\/.*/$1/;

这句请高手解释一下啊。。$1不是等于"a"吗，

cobrawgl

原帖由 jy198435 于 2009-11-12 12:48 发表
~s/(.*)\/.*/$1/;

这句请高手解释一下啊。。$1不是等于"a"吗，

re 是 贪婪 的