第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";
}
