wollen letzte Raum der Linie suchen und spaltete es nach den Raum in Perl

Question

Eingang finden:

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

ich für den letzten Platz der Linie überprüfen möchten und teilen Sie es von den letzten Platz.

Erwartete Ausgabe:

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

Wie kann ich in Perl das tun?

Answer 1

Ich bin einfach zählen Gesamtanzahl der Zeichen.

$ str_len = Länge ($ line3); if ($ str_len> 72) {} dann suche ich einfach nach dem letzten Zeichen mit d und Leerzeichen und Zeichen beginnend mit i (di) if ((@ split_line = ~/[\ s +.] + | _ $ /) und @ split_line = ~/\ d $ |^i /) { n dann entpacken

aber es ist kein richtiger Weg, es zu tun.

Answer 2

Die Frage ist ein wenig unverständlich. Die erwartete Ausgabe fügt einen zusätzlichen Platz vor dem> hinzu, was meiner Meinung nach nur ein Druckfehler ist. Dies ist mein Vorschlag sowieso:

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!