くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

478:nobodyさん
07/10/23 21:54:51
>>477
すいません、
sub write {
my $name = $_[0], $data = null;
if (　$_[1]が配列かどうかを確認したい　) { $data = join( "\n", $_[1] ) }
else { $data = $_[1] }

open( OUT, ">$name" ) || return 1;
print OUT $data;
close( OUT );
return 0;
}
のようにして、ifのところで、$_[1]が配列かどうかを確認したいのですが・・・・・
wantarrayの使い方がいまいち理解できませんでした。
このような場合は、どのようにすればよいのでしょうか

次ページ

続きを表示

1を表示