1ϤΥץ륳
---------------------
ܼʥڡֹ
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 "ˤϡPerl\n";
print "\t\täƤޤ\n";
print "\\:Хåå \":Ű \x2a:\\x2a\n";

P10-1
$string = "Ϻ";

print "ˤϡ$string\n";
print 'ˤϡ$string\n';

P10-2
$val = "";

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

P11-1
$hello = "ˤϡ";
$name = "Ϻ";
$title = "";
$return = "\n";

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

P11-2
$quote = q/"ˤ" 'Ϻ' ""/;
print "$quote\n";

P13
# Ȥ
#  comment.pl

print "ˤϡ\n"; # ȤǤ
#print "ˤϡƣ\n";
print "#ˤϡڤ\n";

P15
# ̾Ϥơ֤ץ
#  hello.pl

print "ʤΤ̾ϲǤ: ";

# 桼ϤԤ
$name = <STDIN>;

# ʸ
chomp($name);

# ɽ
print "ˤϡ$name \n";

P16
# ñʥץ
#  quiz.pl

print "2 + 3 ϤĤˤʤޤ: ";

# 桼ϤԤ
$answer = <STDIN>;

# ʸ
chomp($answer);

# ʬ
if ($answer == 5) {
  # ==ϡפ̣
  # 5Ȥ
  print "Ǥ!\n";
} else {
  # 5ʤäȤ
  print "ͤ󡢤ϤǤ\n";
}
