Dotaz: perl a open

[lojza]

ahoj, prosim vas nevit od ktere verze lze pouzit v perlu konstrukci: #!/usr/bin/perl -w

open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=<>){ print $radka; }

u while je samo v <> OVL, ale nejde to vlozit do diskuse

diky

Odpovědi

[Hynek (Pichi) Vychodil]

nejméně od 5.6.0 ale asi ještě starší. Jinak do <> jde napsat cokoli. Stačí napsat

<pre>open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=&lt;OVL&gt;){ print $radka; }</pre>

a dostaneš

open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=<OVL>){ print $radka; }

[Perlik :-D]

#!/usr/bin/perl -w

open(OVL,"ps aux|awk '\$1 ~ /bscsp/ && \$12 ~ /event_demon/ {print \$1\" \"\$12}'|"); while(<>){ print; }

potreboval sem neco jako toto

[Hynek (Pichi) Vychodil]

 #!/usr/bin/perl -w

open(OVL,"ps aux|");
while(<OVL>) {
  @a = split / +/;
  $a[0] =~ /bscsp/ and $a[11] =~ /event_demon/ and print "@a[0,11]"
}

Abych pravdu řek, nevím jistě co ta awk část má dělat, ale přijde mi přinejmenším zbytečné tvořit ještě jeden proces navíc. Malý hint pro příště, pokud se chceš zbavit problémů s apostrofy v perlu tak je tu bezva vychytávka q a qq.

#!/usr/bin/perl -w
open(OVL,q(ps aux|awk '$1 ~ /bscsp/ && $12 ~ /event_demon/ {print $1" "$12}'|));
while(<OVL>){ print; }

nebo

#!/usr/bin/perl -w
open(OVL,qq(ps aux|awk '\$1 ~ /bscsp/ && \$12 ~ /event_demon/ {print \$1" "\$12}'|));
while(<OVL>){ print; }