ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Matveev                        2:5030/182     18 Sep 2000  00:34:20
 To : info
 Subject : Подскажите что не так...
 -------------------------------------------------------------------------------- 
 

 
 15 Sep 00 11:31, info wrote to All:
 
 i> Вот решил попробовать написать программу на Perl вроде работает день,
 i> два и т.д., но в какой-то момент вываливается не пойму почему, может у
 i> кого был опыт чтения данных из СОМ-порта подскажите ... плз
 
     А ты попробуй везде обработку ошибок прописать:
 
     Что-то типа
 
     open(IN,"/dev/cuaa1") or die "Can't open /dev/cuaa1: ($!)\n"
 
     ...
 
     close(nOUT) or die "Can't close $Fname: ($!)\n"
 
     и т.д. и посмотри, на чём оно упадёт.
 
 i> #!/usr/bin/perl
 i> use Time::localtime;
 i> $tm=localtime;
 i> $DATE1=$tm->year + $tm->mon + $tm->mday;
 i> $DATE2=$DATE1;
 i> $Fname=sprintf(">>%04d-%02d-%02d",$tm->year+1900,$tm->mon+1,$tm->mday)
 i> ; open(IN,"/dev/cuaa1"); while(<IN>) { if(!($DATE2 eq $DATE1)) {
 i> $Fname=sprintf(">>%04d-%02d-%02d",$tm->year+1900,$tm->mon+1,$tm->mday)
 i> ; $DATE2=$DATE1; } $tm=localtime; $DATE1=$tm->year + $tm->mon +
 i> $tm->mday; open(nOUT,$Fname); print nOUT $_; close(nOUT); }
 
         serge@matveev.spb.ru                      Serge Matveev & ...
         ICQ 3575357
 
 ... R is for ranlib, for sorting ar table
  * Origin: После нас пришло новое поколение и выбрало Pepsi. (2:5030/182)
 
 

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

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