Perl 中的正则表达式

gunguymadman007

8错    楼主真是好银啊

gunguymadman007

原帖由 "deathcult" 发表：
.* 匹配 0 次或一次的任何字符

应该是匹配0次或多次的任何字符吧 ：）

gunguymadman007

原帖由 "release" 发表：


版主，是这样吗？

look

原帖由 "deathcult" 发表：
$string =~ s/(i)(.*)(perl)/<$3>;$2<$1>;/; # 这里 $1 = "i"，$2 = " love "，$3 = "perl"，并且替换后 $string 变为 "<perl>; love <i>;"

偶以前也是经常用/（.*)^D$/来匹配任何以^D结尾的东东啊

gunguymadman007

原帖由 "release" 发表：


你好象不对呀！
请看这个脚本：
#!/usr/bin/perl -w

while (1) {
chomp($a=<>;
exit if ( $a =~ /a+/);
if ( $a =~ /(.*)^D$/ ) {
print "ok\n";
}else {
print "undo\n";
}
}

输入头个?.........

bash-2.05$ perl pl test
^[J^^^[J^^^Daaaaaaaaa

######################
^[J^^^[J^^^[J^^^[J^^^Dbbbbbbbbbbbbbb

######################
bash-2.05$ more pl
#!/usr/bin/perl

open  (RENAMEFILE,"$ARGV[0]"||die "can't open!\n";
while (<RENAMEFILE>
     {
        if (/(.*)D(.*)/)
        #{s/D$/L/;}
        { print $_,"\n";
          print "######################\n";}
     }
close RENAMEFILE;

bash-2.05$ more test
aaaaaa
bbbbbb
^[J^^^[J^^^Daaaaaaaaa
ccccc
dddd
^[J^^^[J^^^[J^^^[J^^^Dbbbbbbbbbbbbbb
...
aaaaaa
bbbbbb
^L

gunguymadman007

我先是用(/(.*)^D/)  相应的test也以^D结尾 ； 后来(/(.*)D(.*)/)  test对应的加了aaaaaaaaaaaa和bbbbbbbbbbbb，都行的  ：（
你把正则表达式和通配符搞混了