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

 
Previous Post Excel/엑셀] 셀 세로 쓰기, 글자 방향 경사(기울기)를 45도 각도로; Vertica...Excel/엑셀] 셀 합계, 산술 평균 값 구하기 함수; SUM(총액), AVERAGEVim-VI-Gvim] 대소문자 구분 없이 문자열 찾기 옵션; Find Case Ignor...Vim-VI-Gvim] 다른 창으로 이동, 창 닫기, 편집 창 크기 조절 키; Change...Vim-VI-Gvim] 대소문자 변환, 문자열 대문자로 소문자로 바꾸기; Change Ca...Vim-VI-Gvim] 문자열 검색 방법; 문자 찾기 핫키; Find StringJava/자바] 배열 합계, 산술 평균 구하기; Array Sum AveragePython/파이썬] 양수를 음수로, 음수를 양수로 변환; Positive to Negat...자바/Java] 정수 실수 절대값 구하기 Method; Absolute Value; Mat...Java/자바] 양수를 음수로, 음수를 양수로 만들기; Positive to Negativ...

Perl/펄] 파일 끝에서부터 거꾸로 읽기; Text File Read Backward

Wednesday, February 07, 2007

텍스트 파일의 마지막 행을 첫 행으로 만들고, 첫 행을 맨 마지막 행으로 만드는 방법입니다.

즉, 파일 순서를 거꾸로 뒤집는 것입니다. 가령 다음과 같은 식입니다.

1행
2행
3행


3행
2행
1행
으로 만듭니다.

로그 파일 같은 경우에, 최신 내용이 맨 마지막에 위치하는데, 이 펄 스크립트를 사용하면, 최근 내용이 파일의 첫 부분에 오게 할 수 있습니다.


파일 행 순서, 역순으로 뒤집기 예제


파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;

  my @a = <>;
  chomp @a;

  print "$_\n" foreach reverse @a;



<> 는, 명령행 옵션으로 지정해 준 텍스트 파일의 내용입니다.

그 내용을 reverse 로 뒤집습니다.

그 뒤집어진 각 행들을 foreach 루프로 돌리면서

print 로 출력하는 것입니다.


테스트용으로 쓸 텍스트 파일: test.txt
111
222
333
AAA
BBB


CCC
DDD
ZZZ


실행 결과 화면:
D:\Z>example.pl test.txt
ZZZ
DDD
CCC


BBB
AAA
333
222
111

D:\Z>


각 행들이 역순으로 되었습니다.

위의 출력 결과를 파일로 저장하려면

example.pl test.txt > out.txt

이렇게 재지향(Redirection)을 사용하면 됩니다.


☞ Perl (펄)

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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