请教一个正则表达式的问题 - /(\.\w+)?$/

gmxhk

Learning Perl 中的题目，请解释一下。
perl -e '$_=abc.eeeee.i;   
s/(\.\w+)?$/.out/;
print;'

结果：abceeeeei.out

结果为什么不是abc.out

ouyangyu139

$_=abc.eeeee.i;  相当于： $_="abceeeeei";
明白了否？
我的理解就是这样。:wink:

大大狗

$_='abc.eeeee.i';   

s/(\.\w+)+$/.out/;

print;

这样就可以了
输出是 abc.out

大大狗

如果要把 abc.eeeee.i 当成字符串得用引号
这个和你使用的 ? 有关
？是非贪婪的匹配 如果想把   .eeeee.i 都匹配上得用 +

damofeixue

$_="abc.eeeeee.i"
用引用括起来就可以让连接符"."变成字符“."

gmxhk

谢谢各位。
我搞错了。 这是转换文件的扩展名，应该这样才对。
perl -e 'my $in = $ARGV[0];
> my $out = $in;
> $out =~ s/(\.\w+)?$/.out/;
> print "$out\n";' testtest.test.test

结果：testtest.test.out

兰花仙子

原帖由 gmxhk 于 2007-3-7 11:13 发表
Learning Perl 中的题目，请解释一下。
perl -e '$_=abc.eeeee.i;   
s/(\.\w+)?$/.out/;
print;'

结果：abceeeeei.out

结果为什么不是abc.out

实话说,LZ的原始问题偶也没看明白...问了下别人解释如下:

$_=abc.eeeee.i;

This is short for:

$_ = 'abc' . 'eeeee' . 'i';

Which is the same as saying:

$_ = 'abceeeeei';


The substitution:

s/(\.\w+)?$/.out/;

Says to match a period (.) followed by one or more 'word' characters (\w+).
This pattern is enclosed in parentheses and this group should match zero or
one time.  The pattern is anchored to the end of the string.  Because the
pattern will always match, the replacement string '.out' will either be
appended to the string or replace any (\.\w+) pattern at the end of the string.