ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Okunev Igor                          2:5020/400     03 Aug 2004  11:01:20
 To : Alexander Balandin
 Subject : Re: uuencode
 -------------------------------------------------------------------------------- 
 

 On Tue, 03 Aug 2004 01:49:02 +0400, Alexander Balandin wrote:
 
  AB>  Здравствуй, Hаpод /*ЮДД---ъъъъъ*/
  AB> 
  AB> Подскажите, плиз, как раскодировать uue файл....
  AB> Что-то типа while (<file>) {print file2 unpack ("u",$_)} не 
  AB> работает... Вернее
  AB> работает, но не правильно...
 
  while ( <> ) {
    if ( /^begin\s*\d+\s*(\S+)/ ) {
     undef $/;
     $in = <>;
     $name = $1;
     $name =~ s#.*/([^/]+)$#$1#;
     print $name,"\n";
     open ( OUT, ">$name" ) || die $!;
     print OUT unpack( 'u*', $in );
    }
  }
 
 -- 
 With best regards,
 Okunev Igor            mailto: gosha<at>nis-nn.ru
                        http://www.mts-nn.ru/~gosha
 
 --- ifmail v.2.15dev5.3
  * Origin: NIS (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    uuencode   Alexander Balandin   03 Aug 2004 02:49:02   Re: uuencode   Okunev Igor   03 Aug 2004 11:01:20