4͂̃TvR[h
---------------------
ڎiy[Wԍj
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
# Xg`
#  list.pl

# lXg
@number_list = (1, 2, 3);

# 񃊃Xg
@string_list = ("A", "B", "C");

# Xg
@mix_list = ("ABC", "Y", 1, "Ԏq");

# ϐ܂ރXg
$variable = 1;
@include_variable_list = ($variable, $variable + 1);

# ʂ̃Xg܂ރXg
@number_addlist = (@number_list, 4, 5, 6, 7);

P70-2
# XgƂĎQƂƂƕ␔lƂĎQƂƂ̈Ⴂ
#  ref_or_scalar.pl

@array = ("", "", "Y", "ł");

# XgƂĕ\
print @array, "\n";

# (XJ[ϐ)Ƃĕ\
print @array. "\n";

# l(XJ[ϐ)Ƃĕ\
print @array + 0, "\n";

# XJ[ɖIɕϊĕ\
print scalar(@array), "\n";

P71
# ͂ɑ錎̖O\
#  month.pl

# ̖O̔zݒ
@month = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul',
'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

print "w肵Ă(1`12): ";
$number = <STDIN>;
chomp($number);

# 錎̖O\
print ($month[$number - 1], "\n");

P72-1
# ͂ɑ錎̖O\
#  month2.pl

print "w肵Ă(1`12): ";
$number = <STDIN>;
chomp($number);

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

P72-2
# forgĔz̗vf\
#  for.pl

@array = ("", "", "Y", "ł");

# ꂼ̒lforŕ\
for ($i = 0; $i < @array; $i++) {
  # $array[number]̌`ŎQ
  print "vf$i: $array[$i]\n";
}

P73-1
# qwgėvf`
#  qw.pl

@array = qw (
             
             
             Y
             ł
             );

# ꂼ̒lforŕ\
for ($i = 0; $i < @array; $i++) {
  print "vf$i: $array[$i]\n";
}

P73-2
# ͈͉ZqgXg̎w
#  region.pl

# l͈̔
@numbers = (1 .. 7);
print @numbers, "\n";

# p͈̔
@alphabets = ("a" .. "f");
print @alphabets, "\n";

# ̐l͈̔
@skip_numbers = (1, 3 .. 5, 8 .. 9);
print @skip_numbers, "\n";

P76
# pushpop̃eXg
#  push_pop.pl

# z`
@array = (1 .. 7);
print "Ԃ̔z: ", @array, "\n";

# push
push(@array, 8);
print "pushs̔z: ", @array, "\n";

# pop
print "pop ", pop(@array), " 擾\n";
print "pops̔z: ", @array, "\n";

P77
# unshiftshift̃eXg
#  unshift_shift.pl

# z`
@array = (1 .. 7);
print "Ԃ̔z: ", @array, "\n";

# unshift
unshift(@array, 8);
print "unshifts̔z: ", @array, "\n";

# shift
print "shift ", shift(@array), " 擾\n";
print "shifts̔z: ", @array, "\n";

P79-1
# foreachXe[gg̃eXg
#  foreach.pl

@array = (1 .. 7);

# foreachXe[ggŃ[v
foreach $value (@array) {
  print "$value ";
}
print "\n";

P79-2
# $_gforeachXe[gg̃eXg
#  foreach2.pl

@array = (1 .. 7);

# foreachXe[ggŃ[v
foreach (@array) {
  print "$_ ";
}
print "\n";

P81
# 2Ƃ̃nbV̒`
#  hash.pl

# =>gȂnbV̒`
%hash_array = ('', 'Rc', '', 'Y');
print ": ", $hash_array{''}, "\n";
print ": ", $hash_array{''}, "\n";

# =>gnbV̒`
%hash_array = (''=>'', ''=>'Ԏq');
print ": ", $hash_array{''}, "\n";
print ": ", $hash_array{''}, "\n";

P82
# uԁvƁuv̐̍v\
#  red_blue.pl

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

# z
foreach $color (@data) {
  # FL[ɂnbV̒lCNg
  $total{$color}++;
}

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

P83
# lƃL[擾AdƂɂdeleteō폜
#  ask_hash.pl

while(1) {
  # L[ƒl󂯎
  print "L[͂Ă: ";
  $key = <STDIN>;
  chomp($key);
  print "l͂Ă: ";
  $value = <STDIN>;
  chomp($value);

  # L[lQUIT̏ꍇ́A[v𔲂
  last if ($key eq "QUIT" || $value eq "QUIT");

  # L[ɑΉl݂Ȃꍇ
  unless ($hash{$key}) {
    print "%hash ɃL[ $key Al $value i[܂B\n";
    $hash{$key} = $value;
  # L[ɑΉlłɑ݂ꍇ
  } else {
    print "%hash L[ $key Al $hash{$key} 폜܂B\n";
    delete $hash{$key};
  }
}
P85
# keysAvaluesAeach̃eXg
#  keys_values_each.pl

%array = (
          ""=>"Rc",
          ""=>"Y",
          "N"=>20
          );

# L[Xg\
print "L[:\n";
foreach $key (keys(%array)) {
  print "\t$key\n";
}

# lXg\
print "l:\n";
foreach $value (values(%array)) {
  print "\t$value\n";
}

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

P86
# exists֐̃eXg
#  exists.pl

# ̕ϐ`
$variable{'hello'} = "ɂ";
$variable{'null'} = "";

# PȐ^UŔ
print "[PȐ^UŔ]\n";
foreach $key ('hello', 'null', 'none') {
  print "L[ $key ݂͑܂\n" if ($variable{$key});
}

# exists֐Ŕ
print "\n[exists֐Ŕ]\n";
foreach $key ('hello', 'null', 'none') {
  print "L[ $key ݂͑܂\n" 
    if (exists($variable{$key}));
}
