Dotaz: perl a prikaz

[Petr]

Ahoj,
chtel jsem si v perlu napsat skript pro automaticke pripojovani a kontrolu pripojeni ADSL. Bohuzel jsem skoncil na nasledujicim problemu (uvedu jednoduchy priklad):

#!/usr/bin/perl
`pptp 10.0.0.138`

Skript se k VPN pripoji, ale nehodla nijak skoncit. Musim ho ukoncit pomoci Ctrl-C.

Nevite nekdo, co delam spatne?
Diky za pomoc ...

Odpovědi

[unchallenger]

jsou dvě možnosti (a) pptp neskončí, takže neskončí ani skript. proč, to u pptp moc nevím, jak zjistit, protože ho neznám (b) narazil jsi na obskurní chybu v perlu. perl se při pouštění dalších programů chová divně, někdy provede fork(), ale druhý proces se neukončí, takže skript běží dvakrát, nebo přestane fungovat exit() a die() a skript musí ukončit sám sebe tak, že si pošle SIGKILL... v takhle jednoduchém případě se nám ale zatím tuhle chybu nepodařilo vyrobit (nejjednodušší, co umím, je použít system() uvnitř eval()), takže pochybuji, že je to důvod -- ale člověk nikdy neví. btw `příkaz` je poměrně praštěná metoda pouštění programů, nebude lepší napsat to v shellu?

[Jáchym Čepický]

jakej by byl rozdíl mezi

`prikaz`

a

system("prikaz");

?

jinak bych se připojil k ,,výzvě'' - napsat to radši v bashi

Dík
Jáchym

[unchallenger]

`prikaz`;

(== qx(prikaz)) vrátí stdout příkazu (a zahodí)

system('prikaz');

vrátí návratovou hodnotu příkazu (+ cosi, viz perldoc -f system) (a zahodí) je zbytečné nechat si načítat stdout, když ho pak stejně zahodím.