Perlコーディング初心者質問スレ Part 56at PHP

---

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();

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch