펄 씹는 모든 줄 바꿈

Question

내가 좋아하는 코드가 한을 제거하지 않는 이유는 무엇입니까?

Answer 1

그것은이 마지막 줄 바꿈을 제거합니다.

$variable =~ s/\n//g; 

Answer 2

Chomp는 줄 바꿈 문자 (실제로는 $/의 현재 값이지만 사용자의 경우 줄 바꿈) 만 제거합니다. 모든 줄 바꿈을 제거하려면 수행

$variable =~ y/\n//d; 

Answer 3

또는 당신은 chomp 당신은 그것을 각 라인을 읽을 수있는 : 당신은 전체 파일에 소리내어하고 있기 때문에

, 당신은 그들을 제거하는 정규식 치환을해야 할거야 :

#!/usr/bin/perl 

use strict; 
use warnings; 

open my $io, '<', 'source.html'; 
my $chomped_text = join '', map {chomp(my $line = $_); $line} <$io>; 

print $chomped_text;