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修改常數項在替代（S ///）：？\ TEMP \ PDFPatch2.pl線1 7，靠近「S/[\噸] * < \ templateDesigner StyleID aped2 \> \ n // GI;」 執行d：\ Temp \ PDFPatch2.pl由於編譯錯誤而中止。

對不起，不太瞭解perl。

Answer 1

不要關閉strict。 打開warnings。

這可能會說明您在第17行上輸入了錯誤，並且在$line前面省略了$。