Warum bekomme ich den Fehler 'Ungültiger Bereich "B->" im Transliterationsoperator', obwohl `tr` nicht in meinem Code erscheint?

Question

Ich erhalte die folgende Fehlermeldung, wenn ich meinen Perl-Skript ausführen:

Unzulässiger Bereich "B->" in der Umschrift Operator bei ./foo.pl Linie 249

jedoch Linie 249 ist auskommentiert, und ich verwende den Transliterationsoperator tr nirgendwo in meinem Code.

Hier ist das relevante Stück meines Skripts. Zeile 249 ist # foreach (@projects), und wie Sie sehen können, wurde es auskommentiert.

# Find the project name, hardware, and version from the archive given 
$project = undef; 
$hardware = undef; 
$version = undef; 
if (defined $testfarmDB){ 
    my $idFile = `pwd`; 
    chomp $idFile; 
    $idFile .= "/$ENV{TESTDIR}/testrun.id"; 
    y @filecontent = `cat $idFile`; 
    $filecontent[0] =~ /(\d+)/; 
    my $testRunID = $1; 
    $hardware = $testfarmDB->getTestRunModelName($testRunID); 
    $project = $testfarmDB->getTestRunProjectName2($testRunID); 
    $version = $testfarmDB->getTestRunSWRevisionName($testRunID); 
}else{ 
    die "Cannot connect to Database. Program terminated. \n"; 
} 
print " Project = $project\n"; 
print " Model Type = $hardware\n"; 
print " Software Version = $version\n"; 

# Break up the path given to determine the project and version number 
# foreach (@projects) 
# { 
#  if ($archive =~ /($_)/i) 
#  { 
#   $project = $_; 

#   foreach my $hw (@hardwares) 
#   { 
#    if ($archive =~ /$hw/i) 
#    { 
#     $hardware = $hw; 
#     last; 
#    } 
#   } 
#   last; 
#  } 
# } 

$archive =~ /((?:\d+\.)+\w+)/; 
# $version = $1; 

Wie kann ich das beheben?

Answer 1

Diese:

y @filecontent = `cat $idFile`; 

y ist ein veraltetes Synonym für den tr Operator. Perl sucht nach zwei weiteren Zeichen @, um die y@...@...@-Anweisung abzuschließen, und es findet das zweite in Ihrem Kommentarabschnitt.