ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     08 Jun 2001  14:05:19
 To : "Alexander V. Gaiduk"
 Subject : Re: несколько Japh'ов
 -------------------------------------------------------------------------------- 
 

 Alexander V. Gaiduk <gav@lesobank.ru> wrote:
 
 >>  >>  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> неправда.
 >>
 >> Хотел бы я знать, что значит "неправда"? :) Я с экрана копировал.
 AVG> 
 AVG> то и значит, что нормально пишет.
 AVG> вот у меня с экрана:
 AVG> - ------------------------------
 AVG> D:\Plsrc\hacks>type 3.pl
 AVG> print ucfirst lc(join('',((split
 AVG> file://,join'',map{for((''.localtime(
 AVG> $_*2764800))=~/(\w+\s+\w+)/){y/y
 AVG> /k/;$;=$_};$;}(0..16))[39,40,28,
 AVG> 49,24,19,41,67,30,50,12,15,3,26,
 AVG> 12,15,48,17,50,5,68,34,12,20])))
 AVG> 
 AVG> D:\Plsrc\hacks>perl 3.pl
 AVG> Just another perl hacker
 AVG> 
 AVG> D:\Plsrc\hacks>perl -v
 AVG> 
 AVG> This is perl, v5.6.0 built for MSWin32-x86-multi-thread
 AVG> (with 1 registered patch, see perl -V for more detail)
 AVG> 
 AVG> Copyright 1987-2000, Larry Wall
 AVG> 
 AVG> Binary build 623 provided by ActiveState Tool Corp.
 AVG> http://www.ActiveState.com
 AVG> Built 16:27:07 Dec 15 2000
 AVG> - ------------------------------
 AVG> 
 AVG> система:
 AVG> Win2000 server (rus) SP1
 AVG> 
 AVG> если б были не в фидо, я б графический скриншот сюда кинул.
 
   # cat > a.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])))
   # perl a.pl
   syntax error at a.pl line 2, near "file:"
   syntax error at a.pl line 4, near "$_}"
   Execution of a.pl aborted due to compilation errors.
   # perl -v
   This is perl, version 5.005_03 built for i386-linux
   ...
   #
 
                wbw,artur
 
 -- 
 Мужчина должен быть вонюч, волосат и свиреп.
 --- ifmail v.2.15dev5
  * Origin: Sonera Ltd. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: несколько Japh\'ов   Artur Penttinen   08 Jun 2001 14:05:19   Re: несколько Japh\'ов   Alexander V. Gaiduk   08 Jun 2001 16:56:38