Statuswert-Rückgabe von iptables - #125408 (Perl/CGI)

nepos

2009-09-04 08:21

User since
2005-08-17
1420 Artikel
BenutzerIn

Du benutzt system() falsch. Das liefert dir nicht die Ausgaben des Programms, das du damit startest, sondern einen Exit-Code. Schau dir mal -f system dazu an.
Was du eher brauchst sind Backticks bzw qx oder eine Pipe, von der du lesen kannst:

Code (perl): (dl )

my $ipt_out = `iptables -L abc`;

oder

Code (perl): (dl )

my $ipt_out = qx{iptables -L abc};

oder:

Code (perl): (dl )

open(my $pipe, "iptables -L abc |") or die "Error executing iptables: $!";
while (defined(my $line = <$pipe>)) {
   ...
}
close($pipe)
   or warn $! ? "Error closing pipe: $!" : "Exit code of iptables: $?";