6͂̃TvR[h
---------------------
ڎiy[Wԍj
P116
P117
P118
P119-1
P119-2
P120-1
P120-2
P121
P125-1
P125-2
P125-3
P126-1
P126-2
P128
P130
P133
P134-1
P134-2
P135-1
P135-2
---------------------

P116
# print֐̎
#  print.pl

$_ = "ɂ́B\n";

# ϐ$_\
print;

# t@Cprint.txtI[v
open(F, ">print.txt");

# ϐ$_At@CnhFɒ`tĂt@Cprint.txtɏo
print F;
close(F);

# Xg\
print ("", "", "Y", "łB\n");

@list = ("Ȃ", "", "Ԏq", "", "łB\n");

# z\
print @list;

P117
# printfsprintf̃eXg
#  printf.pl

# 
printf(":\t%s\n", "͑YłB");

# 
printf(":\t%08d\n", 1234);

# *
printf("*:\t%0*d\n", 6, 1234);

# _l
printf("_l:\t%.2f\n", 12.3456);

# 8iA16i
$buffer = sprintf("8i:\t%#o\n16i:\t%#x\n", 123, 123);
print $buffer;

P118
# splitgē͕𕪊
#  split.pl

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

# Xy[Xŋ؂
@words = split(/\s+/, $string);
foreach (@words) {
  # evf\
  print "P: $_\n";
}

P119-1
# splitgē͕2ɕ
#  split2.pl

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

# Xy[X2ɋ؂
($pre, $post) = split(/\s+/, $string, 2);

# Xy[X̑O̕\
print "ŏ̕: $pre\n";
print "̕  : $post\n";

P119-2
# joingĔz̗vf
#  join.pl

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

# Xy[Xŋ؂
@words = split(/\s+/, $string);

# evf̊Ԃ,ĕ\
print join(",", @words), "\n";

P120-1
# chopchomp̔r
#  chop_chomp.pl

$string1 = "Perl\n";
$string2 = $string1;

# chopchompꂼ2s
chop($string1);
chop($string1);
chomp($string2);
chomp($string2);

# \
print "chop:  $string1\n";
print "chomp: $string2\n";

P120-2
# length̃eXg
#  length.pl

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

# 𒲂ׂ
print "̒: ", length($string), "\n";

P121
# length̃eXg (encodingɂ{Ή)
#  jlength.pl

# Shift_JISƂencodingW[o^
# (Unixł use encoding "euc-jp";)
use encoding "Shift_JIS";

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

# 𒲂ׂ
print "̒: ", length($string), "\n";

P125-1
# ^WFg߂
#  tan.pl

print "WAl: ";
$radian = <STDIN>;
chomp($radian);

# ^WFgvZ
print ("^WFg: ", (sin($radian) / cos($radian)), "\n");

P125-2
# ߂
#  sqrt.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

print ": ", sqrt($number), "\n";

P125-3
# inťʂeXg
#  int.pl

# intȂ
print "intȂ: ", (13 / 6), "\n";

# int
print "int: ", int(13 / 6), "\n";

P126-1
# 𐶐
#  rand.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# \
print rand($number), "\n";

P126-2
# explog̃eXg
#  exp_log.pl

print "e: ", exp(1), "\n";
print "log e 100: ", log(100), "\n";

P128
# ԏ擾A\
#  time.pl

# OjbWWŎ擾
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime( );

# `ĕ\
printf("OjbW:\t%s/%s/%s %s %02d:%02d:%02d\n", 
  $year + 1900, ++$mon, $mday,
	("", "", "", "", "", "", "y")[$wday],
	$hour, $min, $sec);

printf("\tĎ:%s\n", $isdst ? "" : "Ȃ");
printf("\tNn̓: %s \n", $yday);

# nŎ擾
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime( );

# `ĕ\
printf("n:\t%s/%s/%s %s %02d:%02d:%02d\n", 
  $year + 1900, ++$mon, $mday,
	("", "", "", "", "", "", "y")[$wday],
	$hour, $min, $sec);

printf("\tĎ:%s\n", $isdst ? "" : "Ȃ");
printf("\tNn̓: %s \n", $yday);

P130
# ͂ꂽNɊÂA1970N11̌oߓ߂
#  countday.pl

use Time::Local;

# N擾
print "N (YYYY/MM/DD): ";
$string = <STDIN>;
chomp($string);
($year, $month, $day) = split(/\//, $string);

print "1970N11̓: ", (timegm(0, 0, 0, $day, 
  $month - 1, $year - 1900) / (60 * 60 * 24)), "\n";

P133
# 0Zevalŕߑ
#  eval.pl

# evalŖ߂s
eval("\$value = 2 / 0");

# G[Ƃ͕\
print "G[܂: $@" if ($@);

P134-1
# Xy[Xŋ؂lXg𐮗񂷂
#  sort.pl

print "vfXy[Xŋ؂l̃Xg͂Ă: ";
$numbers = <STDIN>;
chomp($numbers);

# \[gĕ\
print join(", ", sort { $a <=> $b } (split(/\s+/, 
  $numbers))), "\n";

P134-2
# Xy[Xŋ؂lXgtɐ񂷂
#  sort_reverse.pl

print "vfXy[Xŋ؂l̃Xg͂Ă: ";
$numbers = <STDIN>;
chomp($numbers);

# \[gĕ\
print join(", ", reverse(sort { $a <=> $b } (split(/\s+/, 
  $numbers)))), "\n";

P135-1
# packunpack̃eXg
#  pack_unpack.pl

print "͂Ă: ";
$string = <STDIN>;
chomp($string);
$length = length($string);

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# pbN
$packed = pack("A${length}i", $string, $number);
print "pbN: $packed\n";

# ApbN
($string2, $number2) = unpack("A${length}i", $packed);
print "̕: $string2 ̐l: $number2\n";

P135-2
# JEg_E
#  sleep.pl

for ($i = 10; $i > 0; $i--) {
  print "$i.\n";
  sleep(1);
}
