Perl/펄] 빈 줄 삭제, 중복된 빈 줄을 하나로 변환; Delete Empty Lines

텍스트 파일에서, 여러 번 엔터 키(Enter Key) 를 치거나 하면, 빈 줄이 여러 개 생깁니다.
여러 개의 빈줄을 하나의 빈 줄로 만드는 스크립트입니다.

$/ (달러+슬래시;Input Record Separator) 라는, 펄의 특수한 변수에, 빈 문자열("")을 지정하면,
여러 줄의 빈줄(Consecutive Blank Lines)이, 하나의 빈 줄(A Single Blank Line)로 간주됩니다.

비어 있는 라인, 삭제 예제 프로그램

파일명: 0.pl


이제 도스창(정식명칭은 '명령 프롬프트';CMD.EXE) 등에서,


이런 명령을 주면, test.txt 라는 파일 속의 빈 줄들이 깨끗이 정리되어, out.txt 라는 파일로 다시 저장됩니다.



결과는 여기에 있는 것과 같습니다: ▶▶ 펄/Perl] 여러 개의 빈줄 삭제, 하나의 빈줄로 합치기, Collapse Multiple Blank Lines Into One
(위의 주소의 게시물에 있는 코드를 더 간단하게 만든 것이, 바로 여기 게시물입니다)