ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5061/32      08 Jun 2001  12:35:34
 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о идея хорошая.
 >  AG> неправда.
 >
 > Хотел бы я знать, что значит "неправда"? :) Я с экрана копировал.
 
 то и значит, что нормально пишет.
 вот у меня с экрана:
 - ------------------------------
 D:\Plsrc\hacks>type 3.pl
 print ucfirst lc(join('',((split
 file://,join'',map{for((''.localtime(
 $_*2764800))=~/(\w+\s+\w+)/){y/y
 /k/;$;=$_};$;}(0..16))[39,40,28,
 49,24,19,41,67,30,50,12,15,3,26,
 12,15,48,17,50,5,68,34,12,20])))
 
 D:\Plsrc\hacks>perl 3.pl
 Just another perl hacker
 
 D:\Plsrc\hacks>perl -v
 
 This is perl, v5.6.0 built for MSWin32-x86-multi-thread
 (with 1 registered patch, see perl -V for more detail)
 
 Copyright 1987-2000, Larry Wall
 
 Binary build 623 provided by ActiveState Tool Corp.
 http://www.ActiveState.com
 Built 16:27:07 Dec 15 2000
 - ------------------------------
 
 система:
 Win2000 server (rus) SP1
 
 если б были не в фидо, я б графический скриншот сюда кинул.
 
 =GAV
 --- Microsoft Outlook Express 5.50.4133.2400
  * Origin: Demos online service (2:5061/32.0)
 
 

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

Тема:    Автор:    Дата:    Re: несколько Japh\'ов   Alexander Babanov   08 Jun 2001 01:49:15   Re: несколько Japh\'ов   Alexander V. Gaiduk   08 Jun 2001 12:35:34