라인의 마지막 공간을 검색 할 펄에

Question

입력 공간을 찾는 후 분할 :

<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and i_cntrl_pwr_down> 

내가 라인의 마지막 공간을 검사 할 마지막 공간에서 분할.

예상 출력 :

<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and 
i_cntrl_pwr_down > 

가 어떻게 펄에 있다고 할 수 있습니까?

Answer 1

나는 총 문자 수를 단순히 계산합니다.

$ str_len = length ($ line3); if ($ str_len> 72) {} 그러면 마지막으로 charcter가 d로 끝나고 space와 chacter가 i (di)로 시작합니다. if ((@ split_line = ~/[\ s +.] + | _ $ /) 및 @ split_line = ~/\ d $ |^i /) { n 다음 압축 풀기

그러나 올바른 방법은 아닙니다.

Answer 2

질문은 이해하기 어려운 것입니다. 예상 출력은> 앞에 앞에 여분의 공백을 추가합니다. 이는 오판이라고 생각합니다. 이 어쨌든 내 제안이다 :

my $str=q(<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and i_cntrl_pwr_down>); 
$str =~ s/(.*) /$1\n /; 
print $str; 

Try it online!