Monday, March 12, 2007
Print Perl Array : 펄 배열 출력 방법, 함수
Perl에서, 배열을 화면에 출력하려면 여러가지 방법이 있지만, join 함수를 사용하는 것이 가장 편리합니다.
join 함수는 배열을 하나의 문자열로 변환합니다: ▶▶ Perl/펄] join 함수 사용법 예제; join Function Example
또한 foreach문으로 배열 요소들에 직접 접근하면 더 세밀히 조작할 수 있습니다. 다음 예제와 같습니다.
(※ 스크롤 박스 사용법: 박스 안을 마우스로 클릭한 후, 키보드의 좌우 화살표키를 누르면 양옆으로 움직일 수 있습니다. 박스에서 다시 나오려면, 박스 바깥의 아무곳이나 클릭하면 됩니다.)
스크립트 파일명: example.pl
첨자 번호와 함께 배열을 더 자세히 출력하는 법: ▶▶ [펄/Perl] 배열(Array) 덤프; 디버그용
join 함수는 배열을 하나의 문자열로 변환합니다: ▶▶ Perl/펄] join 함수 사용법 예제; join Function Example
또한 foreach문으로 배열 요소들에 직접 접근하면 더 세밀히 조작할 수 있습니다. 다음 예제와 같습니다.
배열 출력 (프린트 어레이) 예제
(※ 스크롤 박스 사용법: 박스 안을 마우스로 클릭한 후, 키보드의 좌우 화살표키를 누르면 양옆으로 움직일 수 있습니다. 박스에서 다시 나오려면, 박스 바깥의 아무곳이나 클릭하면 됩니다.)
스크립트 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
my @names = qw/ 맹구 배용준 땡칠이 장동건 강수정 송창식 고은아 /;
print @names, "\n";
# 출력 결과: 맹구배용준땡칠이장동건강수정송창식고은아
# (배열 요소가 한 덩어리로 나와서 읽기 힘듦)
print join(" ", @names), "\n";
# 출력 결과: 맹구 배용준 땡칠이 장동건 강수정 송창식 고은아
# (배열 요소를 공백으로 구분하여 보기 좋게 출력)
print join("/", @names), "\n";
# 출력 결과: 맹구/배용준/땡칠이/장동건/강수정/송창식/고은아
# (배열 요소를 슬래시 기호로 구분하여 보기 좋게 출력)
print "\n\n"; # 편의상 줄바꿈
# 이제 foreach 문으로,
# 배열 요소들에 직접 억세스하여 하나씩 출력합니다.
print "$_\n" foreach (@names);
=pod
출력 결과:
맹구
배용준
땡칠이
장동건
강수정
송창식
고은아
=cut
use strict; use warnings;
my @names = qw/ 맹구 배용준 땡칠이 장동건 강수정 송창식 고은아 /;
print @names, "\n";
# 출력 결과: 맹구배용준땡칠이장동건강수정송창식고은아
# (배열 요소가 한 덩어리로 나와서 읽기 힘듦)
print join(" ", @names), "\n";
# 출력 결과: 맹구 배용준 땡칠이 장동건 강수정 송창식 고은아
# (배열 요소를 공백으로 구분하여 보기 좋게 출력)
print join("/", @names), "\n";
# 출력 결과: 맹구/배용준/땡칠이/장동건/강수정/송창식/고은아
# (배열 요소를 슬래시 기호로 구분하여 보기 좋게 출력)
print "\n\n"; # 편의상 줄바꿈
# 이제 foreach 문으로,
# 배열 요소들에 직접 억세스하여 하나씩 출력합니다.
print "$_\n" foreach (@names);
=pod
출력 결과:
맹구
배용준
땡칠이
장동건
강수정
송창식
고은아
=cut
첨자 번호와 함께 배열을 더 자세히 출력하는 법: ▶▶ [펄/Perl] 배열(Array) 덤프; 디버그용
tag: perl
Perl | 펄
잘배우고 갑니단
<< Home