readkey

From

Ura Bulatevich (2:451/16.66)

To

All (2:5054/37.63)

Date

2005-04-19T17:52:40Z

Area

RU.PERL

Hello everybody.

ASP 5.6 w2k

объясните пожалуйста почему это не работает
(задумывалась, как работа цикла,пока не нажат ввод)

-----------
my $end;
my $i=0;

if (!($pid=fork()))
{
 undef($end);
 $end=<STDIN>;
 exit
}

while (!defined($end))
{
 print ++$i."\n";
 sleep(1);
};

print "end";
-----------------------


WBR,
Ura

--- Все, что ни делается - к худшему !
 * Origin: It`s a good ? (2:451/16.66)
SEEN-BY: 50/203 278/69 400/462 450/9 69 186 208 221 451/5 16 22 23 27 30
SEEN-BY: 452/25 100 453/129 454/2 9 455/15 19 457/7 13 461/33 74 106 640
SEEN-BY: 464/34 465/204 467/24 469/125 200 478/44 65 550/150 5068 4501/6
SEEN-BY: 4600/126 4614/9 4623/56 4625/9 4626/100 4632/10 4635/4 99 1024
SEEN-BY: 4641/444 4642/27 48 4657/50 5001/50 5001 5002/76 5002 5003/34 5010/53
SEEN-BY: 5010/146 5011/13 5012/8 5015/4 28 214 5019/5 5020/52 115 128 133 150
SEEN-BY: 5020/154 175 400 486 545 549 600 642 715 744 758 794 830 921 958 968
SEEN-BY: 5020/982 1100 1169 1212 1234 1523 1604 1626 1642 1653 1826 1829 1930
SEEN-BY: 5020/2020 2044 2142 2200 2238 2345 2590 2908 4400 4441 5021/2 3
SEEN-BY: 5022/128 5023/11 5024/1 73 5025/19 750 5030/49 69 195 382 436 556 611
SEEN-BY: 5030/920 966 1016 1039 1063 1339 1520 1688 1900 5031/7 47 70 5032/11
SEEN-BY: 5032/20 5033/21 35 5034/8 5035/38 63 5036/13 5037/21 36 5038/4
SEEN-BY: 5040/33 47 5041/4 5042/13 5045/7 42 5047/47 5049/6 157 5050/9 41
SEEN-BY: 5051/35 5053/16 38 5054/1 8 9 35 36 37 45 50 66 67 81 85 5055/177
SEEN-BY: 5056/16 5058/77 5059/2 9 20 5060/90 5062/1 4 7 5063/41 51 5064/7 35
SEEN-BY: 5064/39 5070/26 66 948 1222 5071/22 5075/37 5077/70 80 5079/49
SEEN-BY: 5080/80 1003 5082/6 5083/13 21 5090/23 105 108 113 5093/4 27 33
SEEN-BY: 5096/18 5100/113 6023/1 6033/2727 6035/9 6070/5 6083/11 6096/10

PATH: 451/16 453/129 451/30 5020/4441 52 5054/1 37