Was ist los mit diesem Stück Perl-Code?

Question

Um einen Zimbra-Server zu verwalten, muss ich einen Teil einer Postfix-Warteschlange löschen. auf Google Nach der Suche, fand ich ein Stück Perl-Code von https://wiki.zimbra.com/index.php?title=Managing-The-Postfix-Queues&redirect=no:

#!/usr/bin/perl 

$REGEXP = shift || die “no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!”; 

@data = qx; 
for (@data) { 
if (/^(\w+)(\*|\!)?\s/) { 
$queue_id = $1; 
} 
if($queue_id) { 
if (/$REGEXP/i) { 
$Q{$queue_id} = 1; 
$queue_id = “”; 
} 
} 
} 

open(POSTSUPER,”|/opt/zimbra/postfix/sbin/postsuper -d -”) || die “couldn’t  open postsuper” ; 

foreach (keys %Q) { 
print POSTSUPER “$_\n”; 
}; 
close(POSTSUPER); 

Aber wenn ich es, die System Berichte ausführen:

Unmatched right curly bracket at ./delete_queue.pl line 9, at end of line 
    (Might be a runaway multi-line ;; string starting on line 5) 
syntax error at ./delete_queue.pl line 9, near "}" 
syntax error at ./delete_queue.pl line 15, near "}" 
Unmatched right curly bracket at ./delete_queue.pl line 17, at end of line 
Execution of ./delete_queue.pl aborted due to compilation errors. 

Da ich keinen Programmierer Perl, sondern nur eine nicht-professioneller Mail-Server-Administrator, ich weiß nicht, was mit diesem Stück Perl-Code falsch ist.

Danke für Ihre Hilfe.

Answer 1

Hier ist die original code:

#!/usr/bin/perl 

$REGEXP = shift || die "no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!"; 

@data = qx</usr/sbin/postqueue -p>; 
for (@data) { 
    if (/^(\w+)(\*|\!)?\s/) { 
    $queue_id = $1; 
    } 
    if($queue_id) { 
    if (/$REGEXP/i) { 
     $Q{$queue_id} = 1; 
     $queue_id = ""; 
    } 
    } 
} 

#open(POSTSUPER,"|cat") || die "couldn't open postsuper" ; 
open(POSTSUPER,"|postsuper -d -") || die "couldn't open postsuper" ; 

foreach (keys %Q) { 
    print POSTSUPER "$_\n"; 
}; 
close(POSTSUPER); 

Wie Sie sehen können, werden die Seiten, die Sie von verstümmelten die qx</usr/sbin/postqueue -p> Teil kopiert, wodurch Syntaxfehler.

Answer 2

etwas an dieser Linie fehlt, ist:

@data = qx; 

etwas sein sollte wie

@data = qx/ls -la/; 

Details siehe http://perldoc.perl.org/perlop.html#Quote-Like-Operators

ja "use strict", "Verwendung Warnungen" sollte verwendet werden