Friday, March 16, 2007
Perl 펄] 파일에 줄번호, 행번호 (줄 번호, 행 번호) 붙이기 Text File Line Number
텍스트 파일의 각 행마다 행번호를 넣는 펄 코드입니다. 다른 언어로도 이런 일을 할 수 있지만, 펄로 할 때가 가장 간단합니다.
다음 예제는 명령행 옵션으로 지정해 준 test.txt 라는 텍스트 파일의 각 행에 줄 번호를 붙여 화면에 출력합니다.
출력 결과를 파일로 저장하려면 재지향을 하면 되는데, 맨 아래에 방법이 있습니다.
파일명: example.pl
실행 결과 화면:
example.pl test.txt > out.txt
이렇게 하면 위의 화면 출력 결과가 out.txt 라는 파일로 저장됩니다.
위의 소스에 대한 자세한 설명: ▶▶ [Perl/펄] 텍스트 파일에 행번호 붙여, 화면에 출력 또는 파일로 저장
다음 예제는 명령행 옵션으로 지정해 준 test.txt 라는 텍스트 파일의 각 행에 줄 번호를 붙여 화면에 출력합니다.
출력 결과를 파일로 저장하려면 재지향을 하면 되는데, 맨 아래에 방법이 있습니다.
텍스트 파일의 각 행마다 줄 번호 넣기 예제 펄 소스
파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
my $line = 1;
while (<>) {
printf("%4d: %s", $line, $_);
$line++;
}
use strict; use warnings;
my $line = 1;
while (<>) {
printf("%4d: %s", $line, $_);
$line++;
}
실행 결과 화면:
D:\Z>example.pl test.txt
1: 가나다라
2: 마바사아
3:
4: 철수는 중국집에서 자장면을 시켜 먹었습니다.
5:
6: 그리고 맹구는 학교에 갔습니다.
7:
8:
9: 철수는 학교에 가지 않고
10: 하루 종일 게임만 했습니다.
11:
12: 맹구는 방과 후 철수를 만났습니다.
13:
14: 철수는 맹구와 게임을 했습니다.
15:
D:\Z>
1: 가나다라
2: 마바사아
3:
4: 철수는 중국집에서 자장면을 시켜 먹었습니다.
5:
6: 그리고 맹구는 학교에 갔습니다.
7:
8:
9: 철수는 학교에 가지 않고
10: 하루 종일 게임만 했습니다.
11:
12: 맹구는 방과 후 철수를 만났습니다.
13:
14: 철수는 맹구와 게임을 했습니다.
15:
D:\Z>
example.pl test.txt > out.txt
이렇게 하면 위의 화면 출력 결과가 out.txt 라는 파일로 저장됩니다.
위의 소스에 대한 자세한 설명: ▶▶ [Perl/펄] 텍스트 파일에 행번호 붙여, 화면에 출력 또는 파일로 저장
tag: perl
Perl | 펄
<< Home