Settings

The page will reload to apply your changes.
Theme

ASCII Art Font

ASCII Art Menu

Original Usenet message from alt.ascii-art, 17 Nov 2003.
[pic] [perl] italy

[pic] [perl] italy

Here's a pic I saw at <URL:http://www.perlmonks.org> a while ago, which
I thought was quite good. I'm not sure who it's by as I can't find the
page it was on right now. It prints out "italians code Perl better!"



use strict;
use warnings;

                     @                           
               _=q*A*;my$                        
       m   ;  @_[7,6]=($_[0]                     
       )x2;my@i;@{_}[1..2]=(                     
  'T','T');@i=($[,$!,$]);*t::_                     
  =\&t;$m=\$";$_[4]='L';$"=""                    
 ;$_={}+1;sub q{&e;&r};@                          
 i=(u=>n=>i=>q(n));$i[4                          
 ]=lc$_[2];$_[-1]++ for#                         
 1..3;$_[1]++;$m=uc(uc(                          
    @i[2    ,].@_[2,].@_                         
    [0        ,]));$_[3]=                        
              $_[5]='O';@i[1
               ,0]=(qw(r i p))                   
               [0,2]; $::{$m}                    
              = sub{_(&e(&d(&o                   
                 (&{c}))))};sub                  
                   _{eval"@i\" \"                
                     "};eval"sub @_\{@i(          
                       \$::@_=~/^.* ::(           
        .*              ?)\$/ix)}";&i&&&t    ;  
    *_::n=\&                 n;a(),&::l;{{&i}    
    };eval "                  \&@{[lc$_[0]]};";  
     *X::=$/                     ;_::n()&&&s();& 
     _;ITA(0                      );*X::=     $/ 
      ;$/.=                          '';#        
     P()=>&                          q,&l,&      
      _; s(                           u)(b(      
                                      ));        
                                     e(b(        
                       ) );$    _={}*@_;         
                      map{$_->_}(q(t));          
                       &q(&t);*_::_              
                          =\&{'!'};              
                            _::_('EN             
                                D')      


-- 
Mark Hill <use...@mark.ukfsn.org> (Yahoo address not read)
GPG KeyID: 4A3B58AC

Original message headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,b2a767f90f213f58,start
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2003-11-16 18:20:11 PST
Path: archiver1.google.com!news2.google.com!fu-berlin.de!news-FFM2.ecrc.net!news.erlm.siemens.de!newsr1.ipcore.viaginterkom.de!btnet-peer1!btnet!zen.net.uk!lovejoy.zen.co.uk.POSTED!not-for-mail
Newsgroups: alt.ascii-art
From: Mark Hill <mar...@yahoo.co.uk>
Subject: [pic] [perl] italy
Reply-To: Mark Hill <use...@mark.ukfsn.org>
Mail-Copies-To: nobody
X-OS: Slackware Linux current
X-Linux-Counter-ID: 329679
X-Jabber-ID: lea...@jabber.com
X-Y: Z
Message-ID: <200...@heaney.example.org>
User-Agent: slrn/0.9.8.0 (Linux)
Date: 17 Nov 2003 02:20:08 GMT
Lines: 50
Organization: Zen Internet
NNTP-Posting-Host: 217.155.199.78
X-Trace: 1069035608 lovejoy.zen.co.uk 12677 217.155.199.78
X-Complaints-To: abu...@zen.co.uk
Xref: archiver1.google.com alt.ascii-art:525
About this message. This message was posted publicly to the newsgroup alt.ascii-art in 2003 and is mirrored here unchanged as part of the Historic Archives – only email addresses are masked. The artwork and text belong to their original authors: if you copy a piece, keep the artist's initials or signature intact and credit them where you can. Are you the author? Contact us to get your posts attributed, connected to your artist profile, or removed.

Report this message

Help us keep the archive clean and accurate. Reports are reviewed by a person – nothing is changed automatically.

Help classify this post