PERL - externi prikaz

[Petr Vileta]

> zacinam s PERLem a narazil sem na problem
> potrebuji spustit externi prikaz
> napr. fping nebo KAV a potrebuji vratit jeho exitCode
> i jeho vystup.
> Neco jako je bashi toto:
>
>         track=`cdrecord dev=1,0,0 -msinfo`
No exitcode se zjisti snadno
$exitcode=system("nejaky_prikaz parametry");

ovsem vystup externiho procesu asi budete muset ulozit do nejakeho souboru a
potom si ho v perlu precist a vyhodnotit. Neco jako
$vysledek='/tmp/vysledek.txt';
$exitcode=system("nejaky_prikaz parametry >$vysledek");
open(VSTUP,"<$vysledek")
while($radka=<VSTUP>)
    {
    # nejake vyhodnoceni
    }
close VSTUP;
unlink $vysledek;

--
Petr