Perl/펄] 텍스트 파일에서, 개행문자 제거, 한줄로 출력; Text File Delete Newline

Saturday, January 13, 2007

스폰서 링크

텍스트 파일의 각 라인의 끝에서, 개행문자(줄바꿈 문자; LF 또는 CR/LF)를 지우고, 모든 행을 한 줄로 이어 붙이는 펄 스크립트입니다.

각 행의 끝에 붙어 있는 줄바꿈 문자를 제거하는 chomp() 함수를 사용합니다.

파일명: 0.pl

#!/usr/bin/perl
use strict; use warnings;

@_ = <>; # 입력파일(<>)을, 기본배열인 @_ 에 통째로 저장
chomp(@_); # 각 행 끝의 개행문자 모두 제거
print @_; # 파일을 화면으로 출력

테스트용으로 사용할 입력 파일: test.txt

AAA
BBB
CCC

똠방각하
전홥니다.

ZZZ

눈에 보이지는 않지만 각 행의 끝에 개행문자가 있습니다. 쉽게 말해서, 엔터 키(Enter Key)가 쳐져 있습니다.

컴파일 및 실행 결과 화면:

D:\Z>0.pl test.txt
AAA BBBCCC똠방각하전홥니다.ZZZ
D:\Z>

이제 행갈이 없이, 모든 행이 한 줄로 나오고 있습니다.

출력 결과를 화면이 아닌, 텍스트 파일로 저장하려면

0.pl test.txt > out.txt

0 Comments: