Perl -npe单行命令拼接字符串换行错位chop失效如何解决

两次执行结果不符合预期，均由Perl单行命令的默认读取逻辑、内置函数特性理解偏差导致：

• 第一次尝试的换行错位：perl -n按行读取输入时，存入$_的每行内容会自带末尾换行符。直接执行$_= "=".$_."="拼接时，后置的=会被拼接到换行符之后，最终出现内容先换行、等号错位到下一行行首的现象。
• 第二次chop方案的异常输出：chop函数的行为是直接修改传入的原字符串，返回值为被切掉的最后一个字符，而非处理完成的字符串。你写的$_= "=".chop($_)."=\n"实际拼接逻辑是等号 + chop切下的换行符 + 等号 + 换行，最终会输出零散的等号和大量空行。

选任意一种写法都能达到每行前后包裹=的预期效果：

1. 正则替换法（最简洁，无需手动处理换行）
   正则的^匹配行首位置、$匹配行尾换行符前的位置，直接替换为等号即可，不会破坏原有换行结构：

   for i in {1..4}; { echo $i ;} |perl -npe 's/^|$/=/g'
   

2. chomp处理法（逻辑最直观）
   用chomp安全移除行尾换行符（比chop更稳妥，不会误删非换行的末尾字符），拼接完等号后补回换行：

   for i in {1..4}; { echo $i ;} |perl -npe 'chomp; $_ = "=$_=\n"'
   

3. 修正后的chop写法
   只要不直接拼接chop的返回值，先执行chop修改$_再拼接即可正常运行：

   for i in {1..4}; { echo $i ;} |perl -npe 'chop; $_ = "=$_=\n"'
   

以上任意命令执行后，输出均符合预期：

=1=
=2=
=3=
=4=

内容的提问来源于stack exchange，提问作者user17227456