字符串比较的问题

qinxianjun

#!/usr/bin/perl -w
use strict;

my $mac = `ifconfig|perl -n -e 'if(/HWaddr (.*)/) {print \$1,qq(\n);}'`;

        my $one=$mac;
        $one =~ s/:/\./g;
        my $readmac = `cat /home/nfsroot/opt/factory/$one`;

       print "mac: $one\n";
       print "readmac: $readmac\n";

                                                         
if ($one =~ /^$readmac$/i) {
        print "register OK!\n";
        }else {
        print "unregisted or register failed!\n";
}
打印出来的$one和$readmac看上去是相同的; 可是在if语句中没有得到预料的结果，希望大虾不吝赐教。谢谢

whizchen

my $readmac = `cat /home/nfsroot/opt/factory/$one`;

后面加一句：
chomp $readmac;

qinxianjun

原帖由 whizchen 于 2006-12-7 12:04 发表
my $readmac = `cat /home/nfsroot/opt/factory/$one`;

后面加一句：
chomp $readmac;

多谢提醒，我同时也在my $one=$mac;前面加了chomp  $mac;
运行一下，还是不行，多余的换行符应该没有了。
输出：
[root@localhost ~]# ./get_mac.pl
mac: 00.C0.9F.C5.97.49  
readmac: 00.C0.9F.C5.97.49
unregisted or register failed!

qinxianjun

我试着在print "readmac: $readmac\n"; 下面添加以下2行

1. my $res = $one cmp $readmac;
   
2. print "res:$res\n";
   

复制代码

结果为： 1，$one > $readmac
原因还没有找到

另外:
如果把cmp替换为eq或ne，得到的结果分别为：空和1

[ 本帖最后由 qinxianjun 于 2006-12-7 13:36 编辑 ]

Namelessxp

#!/usr/bin/perl
use warnings;
use strict;
my $one = '  00.C0.9F.C5.97.49 ';
my $readmac = '00.C0.9F.C5.97.49 ';
$one = &trim($one);
$readmac = &trim($readmac);
if ($one =~ /^\Q$readmac\E\s*?$/i) {
        print "register OK!\n";
}else {
        print "unregisted or register failed!\n";
}

sub trim {
        my $t = shift;
        $t =~ s/^\s+|\s+$//g;
        return $t;
}

[ 本帖最后由 Namelessxp 于 2006-12-7 15:08 编辑 ]

flw

题外话，

1.        print "mac: $one\n";
   
2.        print "readmac: $readmac\n";

复制代码

这种写法很不专业，一看就是没吃过亏的，我不论是什么语言，一般都是

1.        print "mac: [$one]\n";
   
2.        print "readmac: [$readmac]\n";

复制代码

这样子。

qinxianjun

原帖由 Namelessxp 于 2006-12-7 15:02 发表
$one =~ /^\Q$readmac\E$/i

我把模式匹配那行/i前面的$去掉就能得到结果了，像  $one =~ /^$radmac/i

Namelessxp兄的方法去掉后面那个$也可以；

谁能帮忙解释一下原因么？ 为什么eq得到结果为“空”这应该说明$one和$readmac不相等

qinxianjun

多谢大家，特别谢谢flw、Namelessxp，终于知道咋回事儿了

flw

原帖由 qinxianjun 于 2006-12-7 15:30 发表

为什么eq得到结果为“空”这应该说明$one和$readmac不相等

看 6 楼

qinxianjun

这种写法很不专业，一看就是没吃过亏的，我不论是什么语言，一般都是

这下我是吃到了，呵呵