想搜索行的最后一个空格并在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

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

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 = 长度($line3); 如果（$str_len > 72）{} 然后我只是搜索以 d 结尾的最后一个字符和以 i (d i) 开头的空格和字符 if((@split_line = ~/[\s+.]+|_$/) 和 @split_line=~ /\d$|^ i/ ){ n 然后解压

但这不是正确的做法。