Wednesday, July 19, 2006
Perl/펄] 텍스트 파일을 통째로 배열(Array)에 넣어 프린트하기
펄의 다이아몬드 연산자 (<>) 의 강력함을 보여주는 예제입니다.
디폴트 배열 변수인 @_ 에 <> 로 파일을 한꺼번에 넣고
print @_; 로 출력하는 것입니다.
여기서 중요한 부분은
@_ = <>;
이것인데, 다이아몬드 연산자에는, 실행시에 파라미터(옵션)로 지정해 준 파일이 통째로 들어가 있습니다. 따라서 이것을 배열인 @_ 여기에 집어 넣었습니다.
위의 소스를 0.pl 이라는 이름으로 저장하고, 대상 파일이 0.txt 라면
0.pl 0.txt
이렇게 실행시키면 결과가 나옵니다. 도스의 type 명령이나 리눅스의 cat 명령과 같은 결과입니다.
위의 소스 코드를 더욱 압축하면 이렇게 됩니다.
역시 같은 결과가 나옵니다.
#!/usr/bin/perl
use strict; use warnings;
@_ = <>;
print @_;
use strict; use warnings;
@_ = <>;
print @_;
디폴트 배열 변수인 @_ 에 <> 로 파일을 한꺼번에 넣고
print @_; 로 출력하는 것입니다.
여기서 중요한 부분은
@_ = <>;
이것인데, 다이아몬드 연산자에는, 실행시에 파라미터(옵션)로 지정해 준 파일이 통째로 들어가 있습니다. 따라서 이것을 배열인 @_ 여기에 집어 넣었습니다.
위의 소스를 0.pl 이라는 이름으로 저장하고, 대상 파일이 0.txt 라면
0.pl 0.txt
이렇게 실행시키면 결과가 나옵니다. 도스의 type 명령이나 리눅스의 cat 명령과 같은 결과입니다.
위의 소스 코드를 더욱 압축하면 이렇게 됩니다.
#!/usr/bin/perl
use strict; use warnings;
print <>;
use strict; use warnings;
print <>;
역시 같은 결과가 나옵니다.
tag: perl
Perl | 펄
<< Home