「Perl」for文で配列の値を取得するサンプル
構文
foreach my $変数名 (@配列名){
some code
}
使用例
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A01","B02","C03","D04");
for(my $i=0; $i<=$#cft;$i++){
print $cft[$i];
}
foreach my $tt (@cft){
print $tt;
}
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A01","B02","C03","D04");
for(my $i=0; $i<=$#cft;$i++){
print $cft[$i];
}
foreach my $tt (@cft){
print $tt;
}
#! /usr/bin/perl
use strict;
use warnings;
my @cft = ("A01","B02","C03","D04");
for(my $i=0; $i<=$#cft;$i++){
print $cft[$i];
}
foreach my $tt (@cft){
print $tt;
}
実行結果
A01B02C03D04
A01B02C03D04