くだすれPerl（超初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
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. 、、、、まあいいや。 480:nobodyさん 07/10/24 13:14:01 nBn+cskB いまだにphpではなくperlで動いているあたり。。。 ttp://yoshihi6.com/perl/?q=http%3A%2F%2Fja.wikipedia.org%2Fwiki%2FPerl 481:nobodyさん 07/10/24 18:26:51 >>479 その方法で解決しました。 ありがとうございます。 482:nobodyさん 07/10/25 17:20:59 ZciT02o+ スライスした配列の参照を表現するにはどのように書けばいいですろうか。 @org[0..2]のリファレンスを作るとして、 イメージは$ref = \@org[0..2];みたいなことなんですが・・・
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4296日前に更新/307 KB
担当:undef