4ϤΥץ륳
---------------------
ܼʥڡֹ
P70-1
P70-2
P71
P72-1
P72-2
P73-1
P73-2
P76
P77
P79-1
P79-2
P81
P82
P83
P85
P86
---------------------

P70-1
# ꥹȤ
#  list.pl

# ͥꥹ
@number_list = (1, 2, 3);

# ʸꥹ
@string_list = ("A", "B", "C");

# ꥹ
@mix_list = ("ABC", "Ϻ", 1, "ֻ");

# ѿޤꥹ
$variable = 1;
@include_variable_list = ($variable, $variable + 1);

# ̤ΥꥹȤޤꥹ
@number_addlist = (@number_list, 4, 5, 6, 7);

P70-2
# ꥹȤȤƻȤȤʸͤȤƻȤȤΰ㤤
#  ref_or_scalar.pl

@array = ("", "", "Ϻ", "Ǥ");

# ꥹȤȤɽ
print @array, "\n";

# ʸ(顼ѿ)Ȥɽ
print @array. "\n";

# (顼ѿ)Ȥɽ
print @array + 0, "\n";

# 顼ŪѴɽ
print scalar(@array), "\n";

P71
# Ϥ̾ɽ
#  month.pl

# ̾
@month = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul',
'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

print "ꤷƤ(112): ";
$number = <STDIN>;
chomp($number);

# ̾ɽ
print ($month[$number - 1], "\n");

P72-1
# Ϥ̾ɽ
#  month2.pl

print "ꤷƤ(112): ";
$number = <STDIN>;
chomp($number);

# ̾ɽ
print (('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul',
'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$number - 1], "\n");

P72-2
# forȤäǤɽ
#  for.pl

@array = ("", "", "Ϻ", "Ǥ");

# 줾ͤforɽ
for ($i = 0; $i < @array; $i++) {
  # $array[number]ηǻ
  print "$i: $array[$i]\n";
}

P73-1
# qwȤäǤ
#  qw.pl

@array = qw (
             
             
             Ϻ
             Ǥ
             );

# 줾ͤforɽ
for ($i = 0; $i < @array; $i++) {
  print "$i: $array[$i]\n";
}

P73-2
# ϰϱ黻ҤȤäꥹȤλ
#  region.pl

# ͤϰ
@numbers = (1 .. 7);
print @numbers, "\n";

# ʸϰ
@alphabets = ("a" .. "f");
print @alphabets, "\n";

# Ĥοͤϰ
@skip_numbers = (1, 3 .. 5, 8 .. 9);
print @skip_numbers, "\n";

P76
# pushpopΥƥ
#  push_pop.pl

# 
@array = (1 .. 7);
print "֤: ", @array, "\n";

# push
push(@array, 8);
print "push¹Ը: ", @array, "\n";

# pop
print "pop ", pop(@array), " \n";
print "pop¹Ը: ", @array, "\n";

P77
# unshiftshiftΥƥ
#  unshift_shift.pl

# 
@array = (1 .. 7);
print "֤: ", @array, "\n";

# unshift
unshift(@array, 8);
print "unshift¹Ը: ", @array, "\n";

# shift
print "shift ", shift(@array), " \n";
print "shift¹Ը: ", @array, "\n";

P79-1
# foreachơȥȤΥƥ
#  foreach.pl

@array = (1 .. 7);

# foreachơȥȤǥ롼
foreach $value (@array) {
  print "$value ";
}
print "\n";

P79-2
# $_ȤäforeachơȥȤΥƥ
#  foreach2.pl

@array = (1 .. 7);

# foreachơȥȤǥ롼
foreach (@array) {
  print "$_ ";
}
print "\n";

P81
# 2ȤΥϥå
#  hash.pl

# =>Ȥʤϥå
%hash_array = ('', '', '̾', 'Ϻ');
print ": ", $hash_array{''}, "\n";
print "̾: ", $hash_array{'̾'}, "\n";

# =>Ȥäϥå
%hash_array = (''=>'', '̾'=>'ֻ');
print ": ", $hash_array{''}, "\n";
print "̾: ", $hash_array{'̾'}, "\n";

P82
# ֡פȡġפοιפɽ
#  red_blue.pl

@data = ('', '', '', '', '', '', '', '', '');

# 
foreach $color (@data) {
  # ̾򥭡ˤϥåͤ򥤥󥯥
  $total{$color}++;
}

# ̤ɽ
print ": ", $total{''}, " : ", $total{''}, "\n";

P83
# ͤȥʣȤˤdeleteǺ
#  ask_hash.pl

while(1) {
  # ͤ
  print "ϤƤ: ";
  $key = <STDIN>;
  chomp($key);
  print "ͤϤƤ: ";
  $value = <STDIN>;
  chomp($value);

  # ͤQUITξϡ롼פȴ
  last if ($key eq "QUIT" || $value eq "QUIT");

  # бͤ¸ߤʤ
  unless ($hash{$key}) {
    print "%hash ˥ $key  $value Ǽޤ\n";
    $hash{$key} = $value;
  # бͤǤ¸ߤ
  } else {
    print "%hash 饭 $key  $hash{$key} ޤ\n";
    delete $hash{$key};
  }
}
P85
# keysvalueseachΥƥ
#  keys_values_each.pl

%array = (
          ""=>"",
          "̾"=>"Ϻ",
          "ǯ"=>20
          );

# ꥹɽ
print ":\n";
foreach $key (keys(%array)) {
  print "\t$key\n";
}

# ͥꥹɽ
print ":\n";
foreach $value (values(%array)) {
  print "\t$value\n";
}

# ڥɽ
print "ڥ:\n";
print "\t$key -> $value\n" while (($key, $value) = each(%array));

P86
# existsؿΥƥ
#  exists.pl

# ѿ
$variable{'hello'} = "ˤ";
$variable{'null'} = "";

# ñʿȽ
print "[ñʿȽ]\n";
foreach $key ('hello', 'null', 'none') {
  print " $key ¸ߤޤ\n" if ($variable{$key});
}

# existsؿȽ
print "\n[existsؿȽ]\n";
foreach $key ('hello', 'null', 'none') {
  print " $key ¸ߤޤ\n" 
    if (exists($variable{$key}));
}
