電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

配列の添え字と要素をwhile文で生成

Perlのeach関数を使用して、配列の添え字と要素をwhile文で処理して出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use 5.010;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my @array = ("A".."Z");
while(my ($number,$value) = each @array) {
	say $value."[".$number."]";
}
 
exit;

サンプルコードです。

A[0]
B[1]
C[2]
D[3]
E[4]
F[5]
G[6]
H[7]
I[8]
J[9]
K[10]
L[11]
M[12]
N[13]
O[14]
P[15]
Q[16]
R[17]
S[18]
T[19]
U[20]
V[21]
W[22]
X[23]
Y[24]
Z[25]

出力結果です。

スポンサードリンク
スポンサードリンク