ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : mihail kapitanov                     2:465/239      07 May 2001  01:28:48
 To : All
 Subject : uue декодер
 -------------------------------------------------------------------------------- 
 

 написал я сабж. вроде работает, но люди говорят что он жутко кривой. интересует 
 что именно криво сделано?
 
 -+- Windows Clipboard ---
 open(pntuue, "x:/tmp/pntseg.uue");
 @fulluue=<pntuue>;
 $suue=0;
 $euue=0;
 for($i=0;$i < scalar(@fulluue-1);$i++)
 {
     $_=@fulluue[$i];
     chomp;
     if(m/^begin\s\d+\s.+$/)
     {
         $suue=$i+1;
         s/^begin\s\d+\s(.+)$/$1/;
         tr/A-Z/a-z/;
         $uuefname=$_;
     }
     if($_ eq "`")
     {
         $_=@fulluue[$i+1];
         chomp;
         $euue=$i-1 if($_ eq "end");
     }
 }
 errorexit() if($suue==0 or $euue==0 or $suue > $euue or
 $uuefname!~m/^\d{3}-\d{3}\.pnt$/i);
 $uuefname=~tr/A-Z/a-z/;
 for($i=$suue;$i <= $euue; $i++)
 {
     $uue=$uue.@fulluue[$i];
 }
 $uue=unpack("u", $uue);
 $uue=~s/\r\n/\n/g;
 sleep(8) while(-e "x:/var/flags/pntchk.flag");
 close(flag) if(open(flag, ">x:/var/flags/pntchk.flag"));
 open(pntuue, ">x:/tmp/$uuefname");
 print(pntuue $uue);
 close(pntuue);
 -+- Windows Clipboard ---
 
 mihail
 
 --- GoldED+/W32 1.1.4.7
  * Origin: human resource 380-62-3821639 (2:465/239)
 
 

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