Perl 无法修改替换中的常量项

Question

我有 Perl 脚本用来删除不必要的标签，这些标签使我正在创建的 xml pdf 文件膨胀

#!/usr/bin/perl

#use strict;

use DirHandle;

my $sourcefile = shift;
my $outputfile = "new" . $sourcefile;

open SOURCEFILE, "$sourcefile" or die;
open OUTPUTFILE, ">$outputfile" or die;

$flag = 0;
foreach $line (<SOURCEFILE>) {
  if($line=~ /<\?templateDesigner StyleID aped2\?>\n/) {
    if($flag == 1) {
      line=~ s/[\t]*<\?templateDesigner StyleID aped2\?>\n//gi;
    }
    $flag=1;
  }
  elsif($line=~ /<\?templateDesigner StyleID aped3\?>\n/) {
    if($flag == 1) {
      $line=~ s/[\t]*<\?templateDesigner StyleID aped3\?>\n//gi;
    }
    $flag=1;
  }
  elsif($line=~ /<\?templateDesigner StyleID apcb1\?>\n/) {
    if($flag == 1) {
      $line=~ s/[\t]*<\?templateDesigner StyleID apcb1\?>\n//gi;
    }
    $flag=1;
  }
  else {
    $flag=0;
  }
  print OUTPUTFILE $line;
}

close SOURCEFILE;
close OUTPUTFILE;

我运行此脚本的结果是以下错误。

无法在 d:\Temp\PDFPatch2.pl 第 1 行的替换 (s///) 中修改常量项
7、靠近“s/[\t]*<\?templateDesigner StyleID aped2\?>\n//gi;”
由于编译错误，d:\Temp\PDFPatch2.pl 的执行中止。

抱歉对perl了解不多。

Answer 1

不要关机strict .
开启 warnings .

这可能会清楚地表明您在第 17 行打错了字，并省略了 $从前面$line .