Why can't this two programs be piping?

[Mariana Aņez]

I wrote this two scripts (to do "./mynum | ./mycount" on linux shell):

mynum:

#*******************************************************************
#         Write a number from 1 to oo 
#******************************************************************

  #!/usr/bin/perl
  my $i=1;
  while ($i>0){
     print "$i\n";
     sleep 5;
     $i++;
     }

mycount:

#***********************************************************************
****# Read from standard input (STDIN) a number pulsing it with before
number
# and each 10 seconds print the result value on the screen
#***********************************************************************
****

#!/usr/bin/perl

my $sum=0;
my $first;
my $count;
my $last;

local $SIG{'ALRM'}=\&on_count;

 alarm 10;


while (  <STDIN> ) {
  
  my $num = <STDIN>; 
  chop $num;
  next if(!($num=~m/(^([0-9]+)$)/));

  $sum=$sum+$num;

    
 }

sub on_count{
 if ($first==0)
   {
    $first=1;
    $last=$sum;
    print "NAN:$sum\n";
    }
   else{
   
    $count=$sum-$last;
    $last=$sum;
    print "Contador=$count\n";
    } 
   
  alarm 10;
  
}

 .....but it doesn't work (I mean the pipe doesn't work) do Somebody
have an idea ?

Mariana C. Aņez Salaverria
---------------------------------------
Sync Consultores c.a.
www.sync.com.ve
Av. Libertador, Torre Maracaibo Of 13H
Caracas - Venezuela
Telf.: (0212) 762-8555/3012/8693
Fax : (0212) 762-6671
Cel : (0416) 622-0000
--------------------------------------




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]