【Perl读书笔记】“真”的定义

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

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

my $name = "calf_man";
my $value;

print "Enter a number: ";
my $number1=<STDIN>;
chomp($number1);


print "Enter another number: ";
my $number2=<STDIN>;
chomp($number2);

if ($number2 == 0) {
        print "Error, Can not devided by zero\n";
}else {
        my $result = $number1 / $number2;
        print "$number1 / $number2 = $result\n";
}

运行结果：

"devide.pl" 22L, 366C 已写入                                                                                      
[root@localhost perl_practice]# ./devide.pl
Enter a number: 2
Enter another number: 0
Error, Can not devided by zero
[root@localhost perl_practice]# ./devide.pl
Enter a number: 10
Enter another number: 2
10 / 2 = 5
[root@localhost perl_practice]#