#!/usr/bin/perl @city=("seoul", "pusan", "kwang-ju"); print "@city"; print @city;
#!/usr/bin/perl @city=("seoul", "pusan", "kwang-ju"); print "city 0 :",$city[0],"\n"; print "city 1 :",$city[1],"\n"; print "city 2 :",$city[2],"\n";
print $city[-1],"\n"; # kwang-ju
@city=qw(seoul pusan kwang-ju);
@10=(1...10); @100=(1...100); @200=(100...200); @a_z=(a...z);
@a_z=(a...z); print scalar(@a_z),"\n"; $size=@a_z; print $size,"\n";
#!/usr/bin/perl # DEFINE AN ARRAY @a_z = (a...z); #push push(@a_z, 0...9); print "@a_z\n"; #pop pop(@a_z); print "@a_z\n"; # shift shift(@a_z); print "@a_z\n"; # unshift unshift(@a_z, a); print "@a_z\n";
Copyrights © - Joinc, All Rights Reserved. Inherited From - Yundream Rebranded By - Joonphil
perl 배열
첨자를 이용한 접근
qw 서브루틴의 활용
연속된 숫자를 배열에 넣기
배열의 크기 알아내기
배열원소 추가및 제거
Recent Posts
Archive Posts
Tags