Saturday, January 13, 2007
Perl/펄] 텍스트 파일에서, 개행문자 제거, 한줄로 출력; Text File Delete Newline
텍스트 파일의 각 라인의 끝에서, 개행문자(줄바꿈 문자; LF 또는 CR/LF)를 지우고, 모든 행을 한 줄로 이어 붙이는 펄 스크립트입니다.
각 행의 끝에 붙어 있는 줄바꿈 문자를 제거하는 chomp() 함수를 사용합니다.
파일명: 0.pl
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
테스트용으로 사용할 입력 파일: test.txt
AAA
BBB
CCC
똠방각하
전홥니다.
ZZZ
눈에 보이지는 않지만 각 행의 끝에 개행문자가 있습니다. 쉽게 말해서, 엔터 키(Enter Key)가 쳐져 있습니다.
컴파일 및 실행 결과 화면:
이제 행갈이 없이, 모든 행이 한 줄로 나오고 있습니다.
출력 결과를 화면이 아닌, 텍스트 파일로 저장하려면
이렇게 재지향(Redirection)을 사용합니다.
정규식을 사용하여 좀더 유연하게 개행문자 삭제하는 법: ▶▶ Perl/펄 정규식] 줄바꿈 문자 제거, 개행 문자 삭제; Text File Remove Newline (Enter Key)
각 행의 끝에 붙어 있는 줄바꿈 문자를 제거하는 chomp() 함수를 사용합니다.
줄바꿈 문자(개행문자) 삭제 출력 예제 소스: Remove CR/LF or LF, Example
파일명: 0.pl
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
#!/usr/bin/perl
use strict; use warnings;
@_ = <>; # 입력파일(<>)을, 기본배열인 @_ 에 통째로 저장
chomp(@_); # 각 행 끝의 개행문자 모두 제거
print @_; # 파일을 화면으로 출력
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>
AAA BBBCCC똠방각하전홥니다.ZZZ
D:\Z>
이제 행갈이 없이, 모든 행이 한 줄로 나오고 있습니다.
출력 결과를 화면이 아닌, 텍스트 파일로 저장하려면
0.pl test.txt > out.txt
이렇게 재지향(Redirection)을 사용합니다.
정규식을 사용하여 좀더 유연하게 개행문자 삭제하는 법: ▶▶ Perl/펄 정규식] 줄바꿈 문자 제거, 개행 문자 삭제; Text File Remove Newline (Enter Key)
tag: perl
Perl | 펄
<< Home