想要搜索该行的最后一个空格并在找到perl中的空格后将其拆分

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 >

我怎样才能在Perl中做到这一点？

Answer 1

这个问题有点难以理解。预期的输出在＆gt;之前增加了一个额外的空间，我认为这只是一个印刷错误。无论如何，这是我的建议：

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!

Answer 2

我只算数字的总数。

$ str_len = length（$ line3）;    if（$ str_len＆gt; 72）{} 然后我只是在寻找以d和空格结尾的最后一个字符和以i开头的字符（d i） if（（@ split_line =〜/ [\ s +。] + | _ $ /）和@ split_line =〜/ \ d $ | ^ i /）{ 然后解压缩

但这不是一个正确的方法。