ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5061/32      08 Jun 2001  10:49:42
 To : All
 Subject : Re: несколько Japh'ов
 -------------------------------------------------------------------------------- 
 

 >  KS> #! /usr/bin/perl
 >  KS> print ucfirst lc(join('',((split
 >  KS> file://,join'',map{for((''.localtime(
 >  KS> $_*2764800))=~/(\w+\s+\w+)/){y/y
 >  KS> /k/;$;=$_};$;}(0..16))[39,40,28,
 >  KS> 49,24,19,41,67,30,50,12,15,3,26,
 >  KS> 12,15,48,17,50,5,68,34,12,20])))
 >
 > Дает "Jufw anoieeh pehl eecker" ;) Hо идея хорошая.
 
 неправда.
 пишет нормально (Win32, ActivePerl)
 --- Microsoft Outlook Express 5.50.4133.2400
  * Origin: Demos online service (2:5061/32.0)
 
 

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