1͂̃TvR[h
---------------------
ڎiy[Wԍj
P4
P5-1
P5-2
P9-1
P9-2
P10-1
P10-2
P11-1
P11-2
P13
P15
P16
---------------------

P4
perl -e "print 12345;"

P5-1
print 12345;

P5-2
print                  123;
	print 456     ;
  print

789

;

P9-1
print 12340000;
print "\n";
print 12_340_000;
print "\n";
print 0xbc4b20;
print "\n";
print 0b1011_1100_0100_1011_0010_0000;
print "\n";
print 057045440;
print "\n";
print 1234e4;
print "\n";

P9-2
print "ɂ́APerl\n";
print "\t^u\tĂ܂\n";
print "\\:obNXbV \":dp \x2a:\\x2a\n";

P10-1
$string = "Y";

print "ɂ́A$string\n";
print 'ɂ́A$string\n';

P10-2
$val = "";

print "ɂ$val\n";
print "ɂ$valsan\n";
print "ɂ${val}san\n";

P11-1
$hello = "ɂ́A";
$name = "Y";
$title = "B";
$return = "\n";

print "$hello$name$title$return";

P11-2
$quote = q/"ɂ" 'Y' "B"/;
print "$quote\n";

P13
# Rg̗
#  comment.pl

print "ɂ́Aΐ삳B\n"; # Rgł
#print "ɂ́AB\n";
print "#ɂ́A؂B\n";

P15
# O͂āAAԂXNvg
#  hello.pl

print "Ȃ̂O͉ł: ";

# [U[̓͂҂
$name = <STDIN>;

# s
chomp($name);

# A\
print "ɂ́A$name B\n";

P16
# ȒPȃNCYXNvg
#  quiz.pl

print "2 + 3 ͂ɂȂ܂: ";

# [U[̓͂҂
$answer = <STDIN>;

# s
chomp($answer);

# 𕪊
if ($answer == 5) {
  # ==́uvӖ
  # 5ɓƂ
  print "ł!\n";
} else {
  # 5ɓȂƂ
  print "˂A͂łB\n";
}
