2
#!/usr/bin/perl
use strict;
use warnings;
open(TEST, "leet.txt") or die "Can't open leet.txt: $!\n";
while(my $line = <TEST>) {
if($line =~ tr/34/ea/)
print <<EOF;
$line
EOF
}
它產生這樣的:在./practice.pl線11條,近「) 打印」 執行由於編譯錯誤中止./practice.pl的 語法錯誤。perl中的這個編譯錯誤是什麼?我沒有看到一個語法問題