Perl 문자열을 분할하고 _을 사이에 추가하십시오.

Question

질문. 예를 들어 명령 줄에서 perl 문자열을 읽으려고합니다. "abcdef"다음 이것을 "a_b_c_d_e_f"로 나눕니다.

나는 논리 부분에 어려움을 겪고 있습니다. 어떤 아이디어?

#!/usr/bin/perl 

while($line=<STDIN>){ 
    chomp $line; 
    split $line; 

join ("_", $line); 

print $line; 
} 

Answer 1

The split manpage 실제로 정확히 예를 포함

print join(':', split('', 'abc')), "\n"; 

이 'abc' 대신 대신 :의 _ 및 $line를 사용하여 조정을, 우리가 얻을 :

print join('_', split('', $line)), "\n"; 

가장 중요한 점은이다 split은 인수를 수정하지 않고 목록 만 반환하고 join은 인수를 수정하지 않고 그냥 문자열을 반환합니다. 반환 값을 사용하지 않고 split 또는 join으로 전화하는 것은 결코 의미가 없습니다.

Answer 2

한 - 라이너 :

print join('_', split('', $line)), '\n'; 

당신은 펄의 split() 기능 here에 대한 자세한 내용을보실 수 있습니다. 당신이 필요로하는 무엇

Answer 3

이다

print join('_', split //, $line), "\n"; 

Answer 4

당신은 해야 사용 split, 당신은 이것에 대한 사이의 문자로 대체 사용할 수 있습니다하지 않는 :

use strict; 
use warnings; 

my $string = 'abcdef'; 
$string =~ s/(?<=.)(?:)(?=.)/_/g; 
print $string; 

출력 :

a_b_c_d_e_f 

을 희망이 도움이!