ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Edward Yudanov                       2:5007/16.19   22 Jan 2004  02:40:37
 To : All
 Subject : robot...
 -------------------------------------------------------------------------------- 
 

 
 Вобщем возился я тут с этим скриптом -- не могу выправить свои кривые
 руки :( Подскажите как всё это сделать более правильным и, главное,
 рабочим?
 ================
 #!/usr/bin/perl -w
 
 use POSIX qw(strftime);
 use POSIX qw(locale_h);
 use strict;
 #############################################################################
 my $msgfrom = "\"Birthday Robot\" <webadmin\@edward.ru>";
 my $msgnewsgroup = "edward.test";
 my $ltime = time;
 my $ldate = strftime("%e %b %Y", localtime($ltime));
 my $lmonth = strftime("%B", localtime($ltime));
 #############################################################################
 open(STDOUT, "| inews -h -O -S -R") || die("can't pipe report to inews");
 print "From: ", $msgfrom, "\n";
 print "Newsgroups: ", $msgnewsgroup, "\n";
 print "Subject: Happy Birthday! [", $ldate, "]\n";
 print "User-Agent: Edward's EchoRobot\n";
 print "X-Comment-To: All\n";
 print "\n";
 #############################################################################
 
 format DATE =
 | @<< @<<<<< | @||||||||||||||||||||||||||||||||||| | @<<<<<<<<<<<< |
 @_
 .
 
 print "_", $lmonth, "_ родные дети:\n\n";
 print
 ".------------.--------------------------------------.---------------+\n";
 print "|    Date    |                 Name                 |    Address   
 |\n";
 print
 "+------------+--------------------------------------+---------------+\n";
 open(STDIN,"/usr/local/fido/robot/sign");
    while (<STDIN>) {
     chomp;
     if (/^(\d\d)\.(\d\d)\s(.+?)\s@\s(.+?)$/) {
         my ($bd, $bm, $sysop, $addr) = ($1, $2, $3, $4);
         @_ = ($bd, $bm, $sysop, $addr);
   write;
     } else {
         warn "$_: wrong format!\n";
     }
  }
 ############################################################################
 print
 "+------------+--------------------------------------+---------------+\n";
 print "| Ежедневно  |        День гранённого стакана!      | 2:5007/*     
 |\n";
 print
 "^------------^--------------------------------------^---------------^\n";
 print "\n\nЕсли в этом списке Вы не находите своего имени,\n";
 print "мыльте мне (To: GATE @ 2:5007/16.19 Subj: HBR)!\n";
 #############################################################################
 print "\n";
 close(STDOUT);
 #############################################################################
 ================
 
 /usr/local/fido/robot/base
 ================
 06.05 Edward Yudanov @ 2:5007/16.19
 15.07 Dmitry W Chmihoon @ 2:5007/16.11
 19.01 Aleksey Bruhanov @ 2:5007/17.17
 22.01 Wladimir A Chmihoon @ 2:5007/16.3
 04.01 Evgeniy Tarakin @ 2:5007/11.206
 24.01 Alexander Kalganov @ 2:5007/20.23
 =================
 Hифига это не работает... То есть работает наполовину...
 Подскажите как вывести результаты в требуемой форме?
 
 -- 
 
 /|>:/ Malik - You Don't Know Malik
 
 --- slrn/0.9.8.0-Edward (Linux)
  * Origin: [ RLU #316941  http://fido.khakassia.ru/ ] (2:5007/16.19)
 
 

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