🚀 go-pugleaf

Sierp <NOspam@sierp.netwytnijcalosc> wrote:

:              if($line =~ /$zmienna{$plik}/) { print "$line"; }
Ja bym dodał opcję 'o', w końcu ten regexp jest stały podczas działania
programu...

:   $pid = fork;
:   if($pid) {

: cos zle zrobilem? a moze zupelnie nie tedy droga?

No, jak chciałeś tak, to trzeba było dać unless($pid) zamiast if($pid)...
fork zwraca 0 w dziecku, nie w rodzicu - rodzicowi zwraca kod dziecka,
więc if($pid) {...tu kod rodzica...}, zaś unless($pid) {...kod dziecka...}

: @lista = "1 2 3";
: while(<@lista>) {
A ta konstrukcja mnie zatkała. Kwadrans mi zajęło zrozumienie, jak to działa.
Nie masz wrażenia, że znacznie elegantsze byłoby:
$lista = "1 2 3";
while(<${lista}>) {
lub 
@lista = (1, 2, 3);
while(<@lista>) {
lub najlepiej:
@lista = (1, 2, 3);
foreach (@lista) {

?

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                B
Computer Center, AGH - University of Science and Technology, Cracow, Poland O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982 F 
Free speech includes the right not to listen, if not interested -- Heinlein H