5ϤΥץ륳
---------------------
ܼʥڡֹ
P91
P92-1
P92-2
P92-3
P93
P94
P95
P98
P100
P102
P103
P104
P105
P108
P109
---------------------

P91
# ñʸޥå
#  simple.pl

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

# ѥޥå
print "ˤϡϺ\n" if ($string =~ /Ϻ/);

P92-1
# ñʸޥå
#  simple2.pl

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

# ѥޥå
print "ˤϡϺ\n" if ($string =~ m#Ϻ#);

P92-2
# ñʸޥå
#  simple_not.pl

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

# ѥޥå
print "ˤϡʤϺǤϤʤǤ͡\n"
  if ($string !~ /Ϻ/);

P92-3
# ޥå󥰤ѥ
#  simple_prepost.pl

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

# ѥޥå
print "ѥ: $`\nѥ: $&\nѥ: $'\n"
  if ($string =~ /Ϻ/);

P93
# ֤
#  repeat.pl

$string = "ABCDEFABCDABC";

# gץwhileơȥȤǷ֤
print "ѥ: $`\nѥ: $&\nѥ: $'\n\n"
  while ($string =~ /ABC/g);

P94
# ʸʸ̤ʤ
#  capital.pl

# ʸΤߤǹ
$string = "perl";
print "perlפ˥ޥå: $string\n" if ($string =~ /perl/i);

# ʸΤߤǹ
$string = "PERL";
print "perlפ˥ޥå: $string\n" if ($string =~ /perl/i);

# ʸȾʸǹ
$string = "Perl";
print "perlפ˥ޥå: $string\n" if ($string =~ /perl/i);

P95
# oˤѿŸ
#  omark.pl

# Ƚޥåʸ
@array = ("Perl ABC", "ABCDEF", "Perl", "ABC");
$search = "ABC";

# $searchͤѹ
print "oʤΥޥå\n";
foreach (@array) {
  if ($_ =~ /$search/) {
    $search = "Perl";
    print "$_\n";
  }
}

$search = "ABC";

# $searchͤѹoȤäƥޥå
print "\noդΥޥå\n";
foreach (@array) {
  if ($_ =~ /$search/o) {
    $search = "Perl";
    print "$_\n";
  }
}

P98
# ɽ(.^$*+?|)Υƥ
#  regexp.pl

# ƥоݤ
@array = (
          "ban",
          "banal",
          "banana",
          "bananaland",
          "banana land",
          "banana race",
          "band",
          "bandana",
          "bandit",
          "bangle",
          "dongle",
          "dance",
          "island",
          "sabanna",
          "Vienna",
          100,
          0,
          -1,
          "Perl is No.1",
          "Perl is No.one"
         );

# bananθ˲1ʸޤǤ򸡺
print "banan.:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /banan./);
}

# dǻϤޤǤ򸡺
print "\n^d:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /^d/);
}

# naǽǤ򸡺
print "\nna\$:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /na$/);
}

# baǻϤޤnaǽǤ򸡺
print "\n^ba.*na\$:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /^ba.*na$/);
}

# a0ʸʾ³landդƤǤ򸡺
print "\na*land:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /a*land/);
}

# a1ʸʾ³landդƤǤ򸡺
print "\na+land:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /a+land/);
}

# banθ1ʸ뤫ʤǴ뤹Ǥ򸡺
print "\n^ban.?\$:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /^ban.?$/);
}

# band뤤danceޤǤǤ򸡺
print "\nband|dance:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /band|dance/);
}

print "\n";

P100
# ɽ([ ][^ ])Υƥ
#  regexp2.pl

# ƥоݤ
@array = (
          "ban",
          "banal",
          "banana",
          "bananaland",
          "banana land",
          "banana race",
          "band",
          "bandana",
          "bandit",
          "bangle",
          "dongle",
          "dance",
          "island",
          "sabanna",
          "Vienna",
          100,
          0,
          -1,
          "Perl is No.1",
          "Perl is No.one"
         );

# banθdgޤǤ򸡺
print "ban[d-g]:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /ban[d-g]/);
}

# banθdgޤޤʤǤ򸡺
print "\nban[^d-g]:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /ban[^d-g]/);
}

# ͤǹƤǤ򸡺
print "\n^[0-9]+\$:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /^[0-9]+$/);
}

# ʸޤǤǤ򸡺
print "\n[A-Z]:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /[A-Z]/);
}

# ʸޤǤǤ򸡺
print "\n[A-Z0-9]:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /[A-Z0-9]/);
}

print "\n";

P102
# ɽ(\d\D\s\S)Υƥ
#  regexp3.pl

# ƥоݤ
@array = (
          "ban",
          "banal",
          "banana",
          "bananaland",
          "banana land",
          "banana race",
          "band",
          "bandana",
          "bandit",
          "bangle",
          "dongle",
          "dance",
          "island",
          "sabanna",
          "Vienna",
          100,
          0,
          -1,
          "Perl is No.1",
          "Perl is No.one"
         );

# ͤޤǤ򸡺
print "\\d+:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /\d+/);
}

# Perl is No.פǻϤޤꡢθ˿Ͱʳʸ³Ǥ򸡺
print "\nPerl is No\\.\\D:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /Perl is No\.\D/);
}

# ʸޤǤ򸡺
print "\n\\s:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /\s/);
}

# bananaθ˶ʸޤޤʤǤ򸡺
print "\nbanana\\S:\t";
foreach $value (@array) {
  print "$value," if ($value =~ /banana\S/);
}

print "\n";

P103
# ɽ(\w\W( ))Υƥ
#  regexp4.pl

# ƥоݤ
@array = (
          "ban",
          "banal",
          "banana",
          "bananaland",
          "banana land",
          "banana race",
          "band",
          "bandana",
          "bandit",
          "bangle",
          "dongle",
          "dance",
          "island",
          "sabanna",
          "Vienna",
          100,
          0,
          -1,
          "Perl is No.1",
          "Perl is No.one"
         );

# ñ¤ӤˤʤäƤǤ򸡺
foreach $value (@array) {
  print "$1, $2, $3, $4\n" 
    if ($value =~ /(\w+)\W+(\w+)\W+(\w+)\.(\w+)/);
}

P104
# 롼ײ
#  group.pl

# ƥоݤ
@array = (
  "beginner",
  "feminine",
  "tin",
  "tininess",
  "tinny"
);

# in+[^in]˥ޥåΤɽ
print "in+[^in] :\t";
foreach $value (@array) {
  print "$value," if ($value =~ /in+[^in]/);
}
print "\n";

# (in)+[^in]˥ޥåΤɽ
print "(in)+[^in] :\t";
foreach $value (@array) {
  print "$value," if ($value =~ /(in)+[^in]/);
}
print "\n";

P105
# ܸʸؤɽ
#  jencoding.pl

# Shift_JISȤencoding⥸塼Ͽ
# (UnixĶǤ use encoding "euc-jp";)
use encoding "Shift_JIS";

$hiragana = 0;

print "ʸ: ";
$string = <STDIN>;
chomp($string);


while ($string =~ /[-]/g) {

  $hiragana++;
}

print "ʿ̾${hiragana}ĤǤ\n";

P108
# ñ֤
#  replace.pl

$string = <<EOT
ˤϡϺ

ǤϺ
EOT
  ;

# ֤
$string =~ s/Ϻ/ֻ/g;

# ɽ
print $string;

P109
# ڡʸǶڤä2ͤѤɽ
#  multi.pl

print "2Ĥοͤ򥹥ڡǶڤäϤƤ: ";
$string = <STDIN>;
chomp($string);

# eץȤäľܱ黻(侮ϰϤ줿ɽ)
$string =~ s/(\-?\d+\.?\d*)\s+(\-?\d+\.?\d*)/$1 * $2/e;

# ɽ
print "$string\n";
