Perlについての質問箱 15箱目
■ このスレッドは過去ログ倉庫に格納されています
0629デフォルトの名無しさん
05/02/27 19:05:07入力した引数に応じて、名前を表示させるだけですが、
3を入力したときは、なぜかnot exsitsになってしまいます。
chomp(@line =<STDIN>);
%name = (1 => jane,
2 => fred,
3 => amy);
@key = keys(%name);
foreach(@line){
if(exists $key[$_]){
print "$name{$_}\n"
}else{
print "not exists";
}
}
■ このスレッドは過去ログ倉庫に格納されています