2͂̃TvR[h
---------------------
ڎiy[Wԍj
P22
P23-1
P23-2
P24
P27
P28
P30
P31-1
P31-2
P32
P34
P35
P36
P38
P39-1
P39-2
P40
---------------------

P22
# eZq̃eXg
#  op.pl

# ӂƉEӂ̒l擾
print "ӂ̒l͂Ă: ";
$value1 = <STDIN>;
chomp($value1);
print "Eӂ̒l͂Ă: ";
$value2 = <STDIN>;
chomp($value2);

# Z
print "+\t", ($value1 + $value2), "\n";
# Z
print "-\t", ($value1 - $value2), "\n";
# Z
print "*\t", ($value1 * $value2), "\n";
# Z
print "/\t", ($value1 / $value2), "\n";
# ]
print "%\t", ($value1 % $value2), "\n";
# ݏ
print "**\t", ($value1 ** $value2), "\n";
# A
print ".\t", ($value1 . $value2), "\n";
# JԂ
print "x\t", ($value1 x $value2), "\n";

P23-1
# ɂD揇ʂ̕ύX
#  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
# eZq̃eXg
#  substitute.pl

# Ώۂ̒lƑl擾
print "Ώۂ̏l͂Ă: ";
$value1 = <STDIN>;
chomp($value1);
print "l͂Ă: ";
$value2 = <STDIN>;
chomp($value2);

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

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

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

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

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

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

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

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

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

P27
# CNgZqP̂ł̎gp
#  single_increment.pl

print "lw肵Ă: ";
$number = <STDIN>;
chomp($number);

# ̒l2̕ϐɑ
$number2 = $number;
$number3 = $number;

# CNg
# Oɕt
++$number2;
print "++$number: $number2\n";
# ɕt
$number3++;
print "$number++: $number3\n";

P28
# CNgZq̎gp
#  substitute_increment.pl

print "lw肵Ă: ";
$number = <STDIN>;
chomp($number);

# ̒l2̕ϐɃRs[
$number2 = $number;
$number3 = $number;

# CNg
# Oɕt̂$number4ɑ
$number4 = ++$number2;
print "= ++$number: $number4\n";
# ɕt̂$number5ɑ
$number5 = $number3++;
print "= $number++: $number5\n";

P30
# ͒l5ȏォǂ𔻒
#  larger.pl

print "l͂Ă: ";
$value = <STDIN>;
chomp($value);

# 5ȏ( >= 5)ǂ𔻒
if ($value >= 5) {
  print "5ȏ̐łB\n";
} else {
  print "5ȐłB\n";
}

P31-1
# w肵񂪊܂܂Ă邩ǂ𒲂ׂ
#  pattern.pl

print "Ȃ̖O͉ł: ";
$string = <STDIN>;
chomp($string);

# ɁuYv܂܂Ă邩ǂ𒲂ׂ
if ($string =~ /Y/) {
  print "YAɂ́B\n";
} else {
  print "Ȃ͂ǂȂłB\n";
}

P31-2
# <=>Zq̃eXg
#  larger_or_smaller.pl

print "ӂ̐l͂Ă: ";
$value1 = <STDIN>;
chomp($value1);
print "Eӂ̐l͂Ă: ";
$value2 = <STDIN>;
chomp($value2);

# <=>ZqgĔrAʂ\
print "<=>̌: ", ($value1 <=> $value2), "\n";

P32
# ==eq̈Ⴂ
#  equal.pl

print "l͂Ă: ";
$value = <STDIN>;
chomp($value);

# ==Ŕ
if ($value == 5) {
  print "==: l5łB\n";
}

# eqŔ
if ($value eq 5) {
  print "eq: l5łB\n";
}

P34
# _Z̃eXg
#  logical.pl

print "1ڂ̐l͂Ă: ";
$number1 = <STDIN>;
chomp($number1);
print "2ڂ̐l͂Ă: ";
$number2 = <STDIN>;
chomp($number2);

# 񂩂琔lɂ
$number1 += 0;
$number2 += 0;

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

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

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

P35
# Z_Zqg2̒l5傫ǂ`FbN
#  shortcut.pl

print "1ڂ̐l͂Ă: ";
$number1 = <STDIN>;
chomp($number1);
print "2ڂ̐l͂Ă: ";
$number2 = <STDIN>;
chomp($number2);

# ̒l5傫
if ($number1 > 5 && $number2 > 5) {
  print "̐l5傫łB\n";
} else {
  print "Е邢͗̐l5傫܂B\n";
}

# Е5傫
if ($number1 > 5 || $number2 > 5) {
  print "ȂƂЕ̐l5傫łB\n";
} else {
  print "̐l5傫܂B\n";
}

P36
# ̘_Zq
#  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
# qAZq̃eXg
#  here.pl

# qAZqgĕsɂ킽镶\
print <<EOT
ɂ́AYB

  ͉ԎqłBCłB
EOT
  ;

P39-1
# qAZqgĕϐɑ
#  here2.pl

$name = "؂";

# $stringɃqAZqő
$string = <<EOT
ɂ́A$nameB

  ̃[AhX́Ahanako\@saita.saita.xxłB
EOT
  ;

# $string̓e\
print $string;

P39-2
# qAZqgĕϐɑ (dp𖾎)
#  here3.pl

$name = "؂";

# $stringɃqAZqő
$string = <<"EOT"
ɂ́A$nameB

  ̃[AhX́Ahanako\@saita.saita.xxłB
EOT
  ;

# $string̓e\
print $string;

P40
# qAZqgĕϐɑ (Ppň͂)
#  here4.pl

$name = "؂";

# $stringɃqAZqő
$string = <<'EOT'
ɂ́A$nameB

  ̃[AhX́Ahanako\@saita.saita.xxłB
EOT
  ;

# $string̓e\
print $string;
