Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
496:nobodyさん 07/11/07 11:46:06 R3XG8Srf 次のソースのsub kansuのforeachの行は何と書けば正しく動きますか #!perl/bin/perl use strict; sub kansu{ my $ref1 = shift; my $value1; foreach $value1($$ref1) { print $value1 . "\n"; } } sub main{ my @databox1 = (13,1,6,3,9,8); my $ref1 = \@databox1; usort_kansu(@databox1); } main(); 497:nobodyさん 07/11/07 11:47:42 誤: usort_kansu(@databox1); 正: kansu(@databox1); 498:nobodyさん 07/11/07 12:36:16 >>496 「言語的意味で」正しく挙動させるには foreach $value1($ref1) { （多分）あなたの望んだ挙動にするには ソースの殆どに手を入れる必要がある。 ∴ 本読んでからどうしても分らんかったら 　質問し直せ 499:nobodyさん 07/11/07 14:24:36 >>496-498 #!perl/bin/perl -w use strict; sub kansu { 　　my $ref1 = shift; 　　# my $value1; 　　foreach my $value1 (@$ref1) { 　　　　print $value1 . "\n"; 　　} } sub main { 　　my @databox1 = (13,1,6,3,9,8); 　　my $ref1 = \@databox1; 　　kansu($ref1); } main();

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4921日前に更新/271 KB
担当:undef