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

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

479:nobodyさん
07/10/23 23:15:24
>>478
「$_[1] が配列」ってPerlの言語仕様上ありえないわけだが？
$_[1]が配列のリファレンスか否かってんであれば、
if ( ref $_[1] eq 'ARRAY' ){ }

まあ、ソースを拝見した所、おそらく
&write( 'name', @data ) ;
あたりで呼ぶんだろから、
my $name = shift @_ ;
my $data = undef ;
if ( @_ >= 1 ){ $data = join( "\n", @_ ) ;}
でいいんじゃね？

余分なことだが、
1. write は perl ですでに使われてるので他の名前にした方がいい。
2. 、、、、まあいいや。

次ページ

続きを表示

1を表示