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

Perlコーディング初心 ..

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

次ページ