[Tech] info

[NICOLA FONTANELLA]

ho un grande problema ho  fatto due file uno ascolta da una seriale e l'altro scrive:

file legge:
 

$cont = 0;
open (IN, "/dev/ttyS1") || die "Impossibile aprire il file\n\n";
while (1) 
{

chomp; # elimini il \n
s/^STOR //; # elimini STOR
  s/$/\r\r/;
$riga = <IN>;
                

  
  
                print "$cont) $riga\n";
  $cont++;
  }

 
file scrive:

$cont = 0;

$c=1;
open (IN, "+>/dev/ttyS1") || die "Impossibile aprire il file\n\n";
while($c=2){
chomp; # elimini il \n
s/^STOR //; # elimini STOR
  s/$/\r\r/;

s/^STOR //; # elimini STOR
  s/$/\r\r/; 
$c++;
pause:10000;
print IN "sa\n";

} 

 
sai che mi succede che si alluppa non so da chi proviene dalla lettura o dalla scrittura sulla seriale potresti aiutarmi
grazie
-------------- parte successiva --------------
Un allegato HTML è stato rimosso...
URL: <http://lists.linux.it/pipermail/flug-tech/attachments/20011130/35d52240/attachment.htm>