Jak zjistit pid aktualniho skriptu ...

[Petr Ruzicka]

Dekuju za odpoved. 
Jestli jsem to dobre pochopil (v tom manu) tak mam testovat pokud mozno
vsechny cteci (a uzaviraci) operace s tim prikazem spojenym. Bohuzel
jsem se ucil perl jako samouk z knizky Perl pro zacatecniky a tam se
vetsinou vesele pouzivalo jen open(x,"prikaz parametry |") or die
"...". 

Takze dekuji za pomoc - jsem zase o neco moudrejsi - doufam :-)

PetrR









On Tue, 24 Sep 2002 07:45:18 +0000 (UTC)
adelton na informatics.muni.cz (Honza Pazdziora) wrote:

> On Tue, Sep 24, 2002 at 09:34:48AM +0200, Petr Ruzicka wrote:
> > Muze mi nekdo napsat jak se da zjistit pid aktualniho procesu (nebo
> > jak se tomu rika - ted si nemuzu vzpomenout) V shellu to bylo : $$
> 
> Intuitivne, $$.
> 
> > (doufam). Jeste mam nasledujici problemek. V prikladu je uvedeno
> > otevreni (a spusteni) neznameho prikazu. V prvnim
> > otevrenim(spustenim) je
> > vse
> > v
> > poradku a vypise se neco jako : LOOK1 at ./pokus line 2. Zato pri
> > druhem open se nic nevypise - je to zpusobeno temi uvozovkami. Muze
> > mi nekdo poradit jak to udelat, aby pri spusteni nejakeho neznameho
> > prikazu (ktery obsahuje nejakou cast v uvozovkach) pomoci open se mi
> > napsala chybova hlaska a program se ukoncil (pomoci die).
> > Konkretne spoustim : /usr/sbin/smbmount "//xxx/x"
> > "/xxx/xxx/xxx/x" (+ dalsi parametry) - a chtel bych pokud by na
> > tomto miste smbmount neexistoval tak skoncit a nahlasit chybu
> > 
> > Priklad:
> > #!/usr/bin/perl
> > open(P,"neznamy_prikaz pokus |") or die "LOOK1";
> > print "OK1";
> > 
> > open(P,"neznamy_prikaz \"pokus\" |") or die "LOOK2";
> > print "OK2";
> > 
> > Dekuji za pomoc ....
> 
> On Vam totiz nefunguje ani ten prvni prikaz (cituji z man perlipc):
> 
>      Be careful to check both the open() and the close() return
>      values.  If you're writing to a pipe, you should also trap
>      SIGPIPE.  Otherwise, think of what happens when you start up
>      a pipe to a command that doesn't exist: the open() will in
>      all likelihood succeed (it only reflects the fork()'s
>      success), but then your output will fail--spectacularly.
>      Perl can't know whether the command worked because your
>      command is actually running in a separate process whose
>      exec() might have failed.  Therefore, while readers of bogus
> 
> Cili napriklad na mem stroji nevypise die ani jeden z nich.
> 
> > P.S. Muze mi nekdo doporucit nejakou dobrou knihu o Perlu? Moje
> > starsi zacatecnicka mi trochu prestava stacit :-)
> 
> Programming Perl, Perl in a Nutshell. Plus manove stranky
> (dokumentace).
> 
> -- 
> ---------------------------------------------------------------------
> ---
>  Honza Pazdziora | adelton na fi.muni.cz |
>  http://www.fi.muni.cz/~adelton/
>       ... all of these signs saying sorry but we're closed ...
> ---------------------------------------------------------------------
> ---