Question

perl替换字符串报错,can't find string terminator "'"anywhere before EOF at -e line 1 命

perl替换字符串报错,can't find string terminator "'"anywhere before EOF at -e line 1

命令行是 perl.exe -i -pe 's/\d> /\d name="aaa" "D:try.xml"

或者命令行是 perl.exe -i -pe 'chomp;$_=$_."name=\"aaa\"" "D:try.xml
我想实现把try文件中，数字+>的位置，在前面加上name=aaa的内容，这个位置在文件中间。
或者在perl脚本中，通过打开文件，修改写来实现：
my $line=0;
open $filehandle "+<D:try.xml"
while($line=$filehandle)
{
if($line =~ m/source/)
{
$line =~s/>/ name ="aaa";
print $filehandle "$line"
}
}
close $filehandle;
后面的这种方式，发现会把原来的文件的部分内容覆盖掉，能不能在perl内部修改写文件中间的内容。
手机提问，可能有个别在电脑上显示有问题。

Answer 1

s///;
可以用^$i=.bak 备份一下