#=プログラムの実行結果=(サブルーチン) back
私の名前は、fujiko
私の友達は…
こんにちわ(^o^)/♪ 、kiyomi
こんにちわ(^o^)/♪ 、uemura
こんにちわ(^o^)/♪ 、frw
こんにちわ(^o^)/♪ 、kumano
友達は全部で 4人だよ(^o^)/♪!

#=プログラム=

$name = "fujiko";
print "私の名前は、$name ";
@tomo = qw(kumano frw uemura);
push(@tomo,kiyomi); #後部に要素「kiyomi」を追加
@tomo[0,1,2,3] = @tomo[3,2,1,0]; #要素の順番を入替え
$henko_k = @tomo; #要素の数が代入される
print "私の友達は… ";
kaki_dasi($henko_k,@tomo);

sub kaki_dasi{
my($henko,@tomodati) = @_;
my $i = 0; #whileをカウントするための初期化
while ($i < $henko){
print "こんにちわ(^o^)/♪ 、$tomodati[$i] ";
$i++ ;
}
print "友達は全部で" . " " . "$henko人だよ(^o^)/♪! ";
return
}

Copyright © 1999 by
fujiko. All Rights reserved. back