Perlについての質問箱 43箱目

Perlについての質問箱 43箱目at TECH

Perlについての質問箱 43箱目 - 暇つぶし2ch541:デフォルトの名無しさん
10/06/10 20:19:29
my @x=(1,2,3,4,5,6,7,8);
my $y=100;
my @pi;

foreach my $tmp (@x){
　　 push(@pi, $tmp/$y);
}

foreach my $tmp (@pi){
　　 print "$tmp, ";
}

次ページ

続きを表示

1を表示