s///返回不合适的换行符

[^/]+匹配换行符,因此输入中的换行符是其中的一部分$2,它在变换后首先放入$_(并且没有换行符,$1因此在$_... 结尾处没有换行符)

解决方案:阅读perlrun的-l选项.特别是:

-l [octnum]启用自动行结束处理.它有两个独立的效果.首先,当与-n或-p一起使用时,它会自动选择$ /(输入记录分隔符).其次,它将$ \(输出记录分隔符)赋值为octnum,以便任何print语句都重新添加该分隔符.如果省略octnum,则将$ \设置为当前值$ /.