veulent rechercher la dernière place de la ligne et le diviser après avoir trouvé l'espace en Perl

Question

Entrée:

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

Je veux vérifier l'espace dernier de la ligne et de l'espace divisé dernier.

Sortie prévue:

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

Comment puis-je faire en Perl?

Answer 1

Je ne compte simplement pas le nombre total de caractères.

$ str_len = longueur ($ ligne3); if ($ str_len> 72) {} alors je cherche simplement le dernier caractère se terminant par d et l'espace et le mot commençant par i (di) if ((@ split_line = ~/[\ s +.] + | _ $ /) et @ split_line = ~/\ d $ |^i /) { n puis le déballer

mais ce n'est pas une façon correcte de le faire.

Answer 2

La question est un peu inintelligible. La sortie attendue ajoute un espace supplémentaire avant le>, qui je pense est juste une faute de frappe. Ceci est ma suggestion de toute façon:

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!