読み込んだ２つの整数値は等しくないか (等価演算子)

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 >

読み込んだ２つの整数値は等しくないか (等価演算子)

Perl

print "２つ整数を入力してください。\n";

print "整数１：";
chomp($x1 = <STDIN>);

print "整数２：";
chomp($x2 = <STDIN>);

if ($x1 != $x2)
{
    print "それらの値は違います。\n";
}    
else
{
    print "それらの値は同じです。\n";
}

unless ($x1 != $x2)
{
    print "それらの値は同じです。\n";
}    
else
{
    print "それらの値は違います。\n";
}

実行結果

L:\>perl lesson_03_018.pl

２つ整数を入力してください。

整数１：-5

整数２：-5

それらの値は同じです。

それらの値は同じです。
L:\>perl lesson_03_018.pl

２つ整数を入力してください。

整数１：40

整数２：45

それらの値は違います。

それらの値は違います。