#=プログラムの実行結果=(for文) back
0001
sakura
0002
bara
0003
ajisai
0004
renge
0005
kikyo
0006
sumire
0007
himawari
0008
yuri

0001 0002 0003 0004 0005 0006 0007 0008
sakura bara ajisai renge kikyo sumire himawari yuri
sakura.bara.ajisai.renge.kikyo.sumire.himawari.yuri.

#=プログラム=

open ( NAMAE, "tomod.txt" ) || die "ファイルを開けません! $!";
while ( defined ( $list = )) {
chomp ($list); # ハッシュをキーと
$name = ; # 値に分解する
chomp ($name);
push (@lista,$list); # キーの部分を配列@listaに納める
push (@namea,$name); # 値の部分を配列@nameaに納める
print "$list \n";
print "$name \n";
}
close (NAMAE) || die "ファイルを閉じられません! $!";
print "\n";
print "@lista \n";
print "@namea \n";
@files = @namea;
$i = 0;
for ($i = 0; $i <= $#files; $i++) { # $#filesはファイルの中のリスト数を返す
# 次行の「.」は文字連結演算子。「\.」はドットとして使用。
print "$files[$i]"."\.";
}

Copyright © 1999 by
fujiko. All Rights reserved. back