「Perl」for文で配列の要素を取得するサンプル
構文
for(初期化式;条件式 ; 変数値の増減){
some code
}
使用例
#! /usr/bin/perl
use strict;
use warnings;
for (my $n = 0; $n < 7; $n++) {
print $n;
}
my @digArr = ("A01","B02","C03","D04");
for(my $j=0; $j<=$#digArr;$j++){
print $digArr[$j];
}
#! /usr/bin/perl
use strict;
use warnings;
for (my $n = 0; $n < 7; $n++) {
print $n;
}
my @digArr = ("A01","B02","C03","D04");
for(my $j=0; $j<=$#digArr;$j++){
print $digArr[$j];
}
#! /usr/bin/perl
use strict;
use warnings;
for (my $n = 0; $n < 7; $n++) {
print $n;
}
my @digArr = ("A01","B02","C03","D04");
for(my $j=0; $j<=$#digArr;$j++){
print $digArr[$j];
}
結果
0 1 2 3 4 5 6
A01B02C03D04