【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]#