mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Friday, March 16, 2007

Perl 펄] 파일에 줄번호, 행번호 (줄 번호, 행 번호) 붙이기 Text File Line Number


텍스트 파일의 각 행마다 행번호를 넣는 펄 코드입니다. 다른 언어로도 이런 일을 할 수 있지만, 펄로 할 때가 가장 간단합니다.

다음 예제는 명령행 옵션으로 지정해 준 test.txt 라는 텍스트 파일의 각 행에 줄 번호를 붙여 화면에 출력합니다.

출력 결과를 파일로 저장하려면 재지향을 하면 되는데, 맨 아래에 방법이 있습니다.

텍스트 파일의 각 행마다 줄 번호 넣기 예제 펄 소스


파일명: example.pl
#!/usr/bin/perl
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>


example.pl test.txt > out.txt

이렇게 하면 위의 화면 출력 결과가 out.txt 라는 파일로 저장됩니다.


위의 소스에 대한 자세한 설명: ▶▶ [Perl/펄] 텍스트 파일에 행번호 붙여, 화면에 출력 또는 파일로 저장




tag: perl
Perl | 펄

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top