2013-04-02 3 views
-4

Mac의 명령 행에서이 작업을 수행하고 싶습니다. 그래서 나는 펄이에 대한 옵션이 될 수 있다고 생각하지만 난 그것을 어떻게 생각을 가지고 있지 않습니다Perl - 쉼표로 구분 된 행으로 행 바꾸기

을 나는 10 만 명 하나의 이름 한 줄에

내가 그것을 변경할와에 하나 개의 파일이 한 줄에 50 개 이름은 .. 다음 쉼표 등을 쉼표로 구분하여 향후 50 이름과 다음 라인으로 구분 한

+3

시도해야합니다. '사양'을 게시하고 코드를 다시 보낼 수는 없습니다. – chrsblck

답변

3

다음과 같은 한 줄 사용할 수 있습니다

perl -pe 's/\n/,/ if $. % 50' <file> output 

그것은 줄 바꿈을 대체을 (\n) 위트 h 현재 입력 행 번호 ($.)가 50으로 나눌 수없는 경우 쉼표 (%)

+0

하지만 다른 파일을 작성하는 방법은 무엇입니까? – user1070318

+0

나는 이것을 시도해 본다 : perl -pe 's/\ n /,/if $. % 50 'old.txt> new.txt 그러나 줄마다 50 개가 아니라 한 줄로 모든 이름을 썼습니다. – user1070318

+0

@ user1070318 : 업데이트를 확인하십시오. – choroba

관련 문제