Dotaz: Perl odchytavanie vystupu pomocou open z programu

[miso]

Ahojte,
potreboval by som poradit s jednou drobnostou lebo neviem z dokumentacie zistit kde robim chybu.

Mam jednoduchy perlovy skript ktory pomocou open spusti externy program a odchytava z neho vystup ktory parsuje a zapisuje do logu.
open PARSER, "/usr/sbin/program |" or die "Error\n";
while (PARSER) { # PARSER je v hranatych zatvorkach len mi to nepovolilo odoslat
++$i;
# tu nasleduje spracovanie prichadzajuceho vystupu
}
Funguje to presne tak ako potrebujem lenze ten perlovy skript je spraveny na to aby bol spusteny z udev daemonu a bezal na pozadi. A vtedy nastane ten problem ze skript sa spusti, v procesoch ho vidim ale z spusteneho programu vtedy nedokaze zachytit ziadny vystup.
Vie mi niekto poradit kde robim chybu? dakujem

Odpovědi

[Xerces]

Ahoj, a co znamená to .... ze spusteneho programu vtedy nedokaze zachytit ziadny vystup .... Jak to zachytavas? Respektive naznac co mas v tom cyklu. Zapis do jineho souboru?

P.S. Hranaty zavorky myslis, < > nebo []?

[miso]

Je tam regulerny vyraz ktory este ten vystup rozkuskuje. Vystup bere z premennej $_
Samozrejme som myslel < >, takze nie hranate :)

[Xerces]

Ok. Kdyz to rozparsujes, tak to ukladas do souboru nebo vypisujes na STDOUT? Ptam se takhle blbe proto, ze prave vypis na STDOUT by mohl být, v pripade sousteni na pozadi, nebo obecne jakkoliv, kdyz nejsi pripojen k tty, problematicky.

[miso]

Vsetko ide do suboru

[Xerces]

Jeste dotaz. Kdyz jsi to spoustel normalne z konzoli, tak ti to fungovalo skutecne s tim /usr/sbin/program? V /usr/sbin byvaji vetsinou programy typu daemon, ktery se samy o sobe spousteji na pozadi a detachujou se od konzole. U nekterych tomu lze parametrem zabranit. Ja jen, ze mi prijde, ze se snazis udelat nejaky wrapper na daemona.

[miso]

Nechcel som to zbytocne komplikovat tak som nepisal konkretny program. Spusta sa jpnevulator.
Je umiestneny v /usr/bin/, predtym som tam mal vlastny skript ktory som daval do /usr/sbin preto ta nepresnost.
Je to serial sniffer ktory mi na obrazovku hadze komunikaciu z USB/Serial prevodniku, zobrazuje jednoduchu komunikaciu v hex a ja odlisujem podla toho regulerneho vyrazu tri druhy informacii. Tie potom zapisem do suboru.
Tento program dokaze zapisovat aj do suboru, povodne som to chcel citat z toho suboru ale takto sa mi to zdalo vyhodnejsie kedze pokial dojde k ukonceniu jpnevulator skonci aj ten perl skript.
Ako som spominal, pokial ten perl skript pustim z bashu tak sa mi to do suboru zapise, pokial ho spusti udev daemon tak ziadna komunikacia z jpnevulator neprechadza. V procesoch vidim ze bezi, do logu sa mi zapise ze sa ten perl skript spustil ale ziadny vystup z jpnevulatoru neprejde.

[Xerces]

Jak to spouštíš z toho udevu? Problém bude spíš tu než v Perl kodu.

[miso]

ACTION=="add", SUBSYSTEM=="usb" ATTRS{interface}=="USB-Serial", RUN+="/usr/bin/perl /usr/bin/skript.pl" Ten skript sa ale spusti, presne vtedy kedy ma. Mal by som pouzit nejaky parameter navyse?

[Xerces]

Zkus použít udevadm test a nasimulovat to připojení na USB. Bohužel v udev se moc neorientuji, předpokládal jsem že to bude problém někde v Perlu.

[miso]

Aj tak dakujem za snahu. Naozaj bude problem asi v udev kedze som to teraz skusal spustit cez cron a vsetko funguje. Idem hladat dalej :)

[Xerces]

Jinak díval jsem se teď do svýho skriptíku, ve kterém taky spouštím soubor na pozadí a jeho výstup zachytávám do souboru a mám to takhle ....

open PARDER, "-|", "/usr/sbin/program" or die "Error";
while (my $radek = <PARSER>) {

}

[Xerces]

Napsal jsem to nepresne. V mem prikladu je /usr/sbin/program obycejny program (nikoliv daemon), ktery normalne chvilku neco vypisuje a pak skonci. Ja ten vystup zachytavam, parsuju a vysledek ukladam do souboru. Toto vse pak poustim na pozadi pomocí cronu.

[miso]

ako som teraz pisal hore tak ten program ktory spustam tiez nieje daemon. S tym rozdielom ze neskonci sam, bezi az pokial ten proces neukoncim sam.