2ϤΥץ륳
---------------------
ܼʥڡֹ
P22
P23-1
P23-2
P24
P27
P28
P30
P31-1
P31-2
P32
P34
P35
P36
P38
P39-1
P39-2
P40
---------------------

P22
# Ʊ黻ҤΥƥ
#  op.pl

# դȱդͤ
print "դͤϤƤ: ";
$value1 = <STDIN>;
chomp($value1);
print "դͤϤƤ: ";
$value2 = <STDIN>;
chomp($value2);

# û
print "+\t", ($value1 + $value2), "\n";
# 
print "-\t", ($value1 - $value2), "\n";
# 軻
print "*\t", ($value1 * $value2), "\n";
# 
print "/\t", ($value1 / $value2), "\n";
# ;
print "%\t", ($value1 % $value2), "\n";
# ߾
print "**\t", ($value1 ** $value2), "\n";
# Ϣ
print ".\t", ($value1 . $value2), "\n";
# ֤
print "x\t", ($value1 x $value2), "\n";

P23-1
# äˤ̤ͥѹ
#  parent.pl

# äʤ
$value1 = 3 + 2 * 5;
# ä
$value2 = (3 + 2) * 5;

# ɽ
print "3 + 2 * 5 = $value1\n";
print "(3 + 2) * 5 = $value2\n";

P23-2
print (2 + 3) * 3;
print "\n";
print ((2 + 3) * 3);
print "\n";

P24
# 黻ҤΥƥ
#  substitute.pl

# оݤͤͤ
print "оݤνͤϤƤ: ";
$value1 = <STDIN>;
chomp($value1);
print "ͤϤƤ: ";
$value2 = <STDIN>;
chomp($value2);

# ñ
$value = $value1;
$value = $value2;
print "=\t$value\n";

# û
$value = $value1;
$value += $value2;
print "+=\t$value\n";

# 
$value = $value1;
$value -= $value2;
print "-=\t$value\n";

# 軻
$value = $value1;
$value *= $value2;
print "*=\t$value\n";

# 
$value = $value1;
$value /= $value2;
print "/=\t$value\n";

# ;
$value = $value1;
$value %= $value2;
print "%=\t$value\n";

# ߾
$value = $value1;
$value **= $value2;
print "**=\t$value\n";

# Ϣ
$value = $value1;
$value .= $value2;
print ".=\t$value\n";

# ֤
$value = $value1;
$value x= $value2;
print "x=\t$value\n";

P27
# 󥯥ȱ黻ñΤǤλ
#  single_increment.pl

print "ͤꤷƤ: ";
$number = <STDIN>;
chomp($number);

# Ʊͤ2Ĥѿ
$number2 = $number;
$number3 = $number;

# 󥯥
# դ
++$number2;
print "++$number: $number2\n";
# դ
$number3++;
print "$number++: $number3\n";

P28
# 󥯥ȱ黻Ҥλ
#  substitute_increment.pl

print "ͤꤷƤ: ";
$number = <STDIN>;
chomp($number);

# Ʊͤ2Ĥѿ˥ԡ
$number2 = $number;
$number3 = $number;

# 󥯥
# դΤ$number4
$number4 = ++$number2;
print "= ++$number: $number4\n";
# դΤ$number5
$number5 = $number3++;
print "= $number++: $number5\n";

P30
# ͤ5ʾ夫ɤȽ
#  larger.pl

print "ͤϤƤ: ";
$value = <STDIN>;
chomp($value);

# 5ʾ( >= 5)ɤȽ
if ($value >= 5) {
  print "5ʾοǤ\n";
} else {
  print "5⾮ʿǤ\n";
}

P31-1
# ꤷʸ󤬴ޤޤƤ뤫ɤĴ٤
#  pattern.pl

print "ʤ̾ϲǤ: ";
$string = <STDIN>;
chomp($string);

# ʸˡϺפޤޤƤ뤫ɤĴ٤
if ($string =~ /Ϻ/) {
  print "Ϻ󡢤ˤϡ\n";
} else {
  print "ʤϤɤʤǤ\n";
}

P31-2
# <=>黻ҤΥƥ
#  larger_or_smaller.pl

print "դοͤϤƤ: ";
$value1 = <STDIN>;
chomp($value1);
print "դοͤϤƤ: ";
$value2 = <STDIN>;
chomp($value2);

# <=>黻ҤȤäӡ̤ɽ
print "<=>η: ", ($value1 <=> $value2), "\n";

P32
# ==eqΰ㤤
#  equal.pl

print "ͤϤƤ: ";
$value = <STDIN>;
chomp($value);

# ==Ƚ
if ($value == 5) {
  print "==: ͤ5Ǥ\n";
}

# eqȽ
if ($value eq 5) {
  print "eq: ͤ5Ǥ\n";
}

P34
# 黻Υƥ
#  logical.pl

print "1ܤοͤϤƤ: ";
$number1 = <STDIN>;
chomp($number1);
print "2ܤοͤϤƤ: ";
$number2 = <STDIN>;
chomp($number2);

# ʸ󤫤ͤˤ
$number1 += 0;
$number2 += 0;

# &黻
print ("AND: ",($number1 & $number2), "\n");

# |黻
print ("OR:  ", ($number1 | $number2), "\n");

# ^黻
print ("XOR: ", ($number1 ^ $number2), "\n");

P35
# û黻ҤȤä2Ĥͤ5礭ɤå
#  shortcut.pl

print "1ܤοͤϤƤ: ";
$number1 = <STDIN>;
chomp($number1);
print "2ܤοͤϤƤ: ";
$number2 = <STDIN>;
chomp($number2);

# ξͤ5礭
if ($number1 > 5 && $number2 > 5) {
  print "ξοͤ5礭Ǥ\n";
} else {
  print "뤤ξοͤ5礭ޤ\n";
}

# 5礭
if ($number1 > 5 || $number2 > 5) {
  print "ʤȤοͤ5礭Ǥ\n";
} else {
  print "ξοͤ5礭ޤ\n";
}

P36
# ʣ黻
#  multiple_logical.pl

print "1 | 1 | 0 = ", 1 | 1 | 0, "\n";
print "1 | 1 ^ 1 = ", 1 | 1 ^ 1, "\n";
print "1 | (1 ^ 1) = ", 1 | (1 ^ 1), "\n";
print "1 & 1 | 0 = ", 1 & 1 | 0, "\n";

P38
# ҥ黻ҤΥƥ
#  here.pl

# ҥ黻ҤȤäʣԤˤ錄ʸɽ
print <<EOT
ˤϡϺ

  ϲֻҤǤǤ
EOT
  ;

P39-1
# ҥ黻ҤȤäѿ
#  here2.pl

$name = "ڤ";

# $string˥ҥ黻Ҥ
$string = <<EOT
ˤϡ$name

  Υ᡼륢ɥ쥹ϡhanako\@saita.saita.xxǤ
EOT
  ;

# $stringƤɽ
print $string;

P39-2
# ҥ黻ҤȤäѿ (Ű)
#  here3.pl

$name = "ڤ";

# $string˥ҥ黻Ҥ
$string = <<"EOT"
ˤϡ$name

  Υ᡼륢ɥ쥹ϡhanako\@saita.saita.xxǤ
EOT
  ;

# $stringƤɽ
print $string;

P40
# ҥ黻ҤȤäѿ (ñǰϤ)
#  here4.pl

$name = "ڤ";

# $string˥ҥ黻Ҥ
$string = <<'EOT'
ˤϡ$name

  Υ᡼륢ɥ쥹ϡhanako\@saita.saita.xxǤ
EOT
  ;

# $stringƤɽ
print $string;
