【Perl读书笔记】if语句和关系运算符

读 《C程序员精通Perl》http://book.douban.com/subject/1232075/   2.4节 笔记

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

if ( "19" < "100") { #true 数字比较
        print "19 < 100\n";
}


if ( "19" le "100") { #false 字符串比较
        print "19 le 100\n";
}

if ("hello" eq "world") { #false 字符串比较
        print  "hello eq world\n";
}

if ("able" == "baker") { #true 数字比较, 但发出告警
        print  "able == baker\n";
}

运行结果：

[root@localhost perl_practice]# ./cond.pl
19 < 100
Argument "world" isn't numeric in numeric eq (==) at ./cond.pl line 18.
Argument "hello" isn't numeric in numeric eq (==) at ./cond.pl line 18.
able == baker
[root@localhost perl_practice]#