ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : info                                 2:5020/400     15 Sep 2000  11:31:35
 To : All
 Subject : Подскажите что не так...
 -------------------------------------------------------------------------------- 
 

 Вот решил попробовать написать программу на Perl вроде работает день, два и
 т.д., но в какой-то момент вываливается не пойму почему, может у кого был
 опыт чтения данных из СОМ-порта подскажите ... плз
 
  да работает под FreeBSD
 
 #!/usr/bin/perl
 use Time::localtime;
 $tm=localtime;
 $DATE1=$tm->year + $tm->mon + $tm->mday;
 $DATE2=$DATE1;
 $Fname=sprintf(">>%04d-%02d-%02d",$tm->year+1900,$tm->mon+1,$tm->mday);
 open(IN,"/dev/cuaa1");
 while(<IN>)
 {
 if(!($DATE2 eq $DATE1))
 {
 $Fname=sprintf(">>%04d-%02d-%02d",$tm->year+1900,$tm->mon+1,$tm->mday);
 $DATE2=$DATE1;
 }
 $tm=localtime;
 $DATE1=$tm->year + $tm->mon + $tm->mday;
 open(nOUT,$Fname);
 print nOUT $_;
 close(nOUT);
 }
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Подскажите что не так...   info   15 Sep 2000 11:31:35   Подскажите что не так...   Serge Matveev   18 Sep 2000 00:34:20