perl 正则表达?????

hunter_cao

$str = "I love Perl";
$str =~ m/Perl/;         # 表示如果在 $str 中发现 "Perl" 字符串，则返回 "1" 否则返回 "0"。
print $str;               Sample Text   # 我的结果是 I love Perl, 是版本问题吗？

billypeng

应该这样写

1. 
   
2. $result = $str =~ m/Perl/;
   
3.    print $result;
   

复制代码

heya

第一行，给$str赋值；
第二行，进行正则表达式匹配计算；
第三行，输出$str的值。

可以看出变量第一次赋值后没有再变动。另外，第二行不管能不能匹配，跟$str的值都没有关系。

heya

二楼好快～
呵呵

hunter_cao

谢谢.

Ecore

$str =~ m/Perl/;

=~不是赋值运算符，是绑定运算符.用右边的与左边的值进行匹配.

兰花仙子

原帖由 hunter_cao 于 2006-12-25 15:00 发表
$str = "I love Perl";
$str =~ m/Perl/;         # 表示如果在 $str 中发现 "Perl" 字符串，则返回 "1" 否则返回 "0"。
print $str;               Sa ...

这里的判断通常这样写:

1. $str = "I love Perl";
   
2. if ($str =~ /Perl/) {
   
3.     print "true";
   
4. }else {
   
5.     print "false";
   
6. }

复制代码

或者一条语句:

1. print $str=~/Perl/ ? "true" : "false";

复制代码

neobob

受教！

Ecore

#!/usr/bin/perl -w

$str="I love perl";
$str=~m/perl/;
print $&;


只显示匹配的字符串.

[ 本帖最后由 Ecore 于 2007-1-17 18:58 编辑 ]