Re: I, for one, do not hate perl...

From: Mladen Gogala <gogala.mladen_at_gmail.com>
Date: Wed, 1 Nov 2017 14:20:16 -0400
Message-ID: <515b37ba-a367-4c9c-c3d7-0bae170c4b73_at_gmail.com>

#!/usr/bin/env perl

use warnings;

use strict;

print "What is perl, eh?\n";

                                            $_='ev
                                        al("seek\040D
            ATA,0,                  0;");foreach(1..2)
        {;}my               _at_camel1hump;my$camel;
   my$Camel  ;while(             ){$_=sprintf("%-6

9s",$_);my_at_dromedary           1=split(//);if(defined($ _=)){_at_camel1hum        p=split(//);}while(@dromeda

  ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
         t(_at_dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
        $CAMEL--;if(d efined($_=shift(_at_dromedary1))&&/\S/){
       $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(

_at_camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( defined($_=shift(_at_camel1hump))&&/\S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h ump];}$camel.="\n";}_at_camel1hump=split(/\n/,$camel);foreach(@

camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
$Camel\n";}foreach(_at_camel1hump){chomp;$Camel=$_;y/LJF7\173\17

5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval;   eval

            ("seek\040DATA,0,0;");undef$/;$_=;s$\s*$$g;( );;s
              ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
                \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
                     40\143\141  \155\145\1 54\040\1 51\155\  141
                     \147\145\0  40\151\156 \040\141 \163\16 3\
                      157\143\   151\141\16  4\151\1 57\156
                      \040\167  \151\164\1   50\040\ 120\1
                      45\162\   154\040\15    1\163\ 040\14
                      1\040\1   64\162\1      41\144 \145\
                      155\14    1\162\       153\04 0\157
                       \146\     040\11     7\047\ 122\1
                       45\15      1\154\1  54\171 \040
                       \046\         012\101\16 3\16
                       3\15           7\143\15 1\14
                       1\16            4\145\163 \054
                      \040            \111\156\14 3\056
                     \040\         125\163\145\14 4\040\
                     167\1        51\164\1  50\0 40\160\
                   145\162 \155\151
                 \163\163 \151\1
               57\156\056

On 11/01/2017 01:54 PM, Sweetser, Joe wrote:
> ...but, evidently, others do. 😊
>
> https://www.theregister.co.uk/2017/10/31/perl_most_hated_language/
>
> -joe
>
>
> This e-mail transmission and any attachments that accompany it may contain information that is privileged, confidential or otherwise exempt from disclosure under applicable law and is intended solely for the use of the individual's to whom it was intended to be addressed. If you have received this e-mail by mistake, or you are not the intended recipient, any disclosure, dissemination, distribution, copying or other use or retention of this communication or its substance is prohibited. If you have received this communication in error, please immediately reply to the author via e-mail that you received this message by mistake and also permanently delete the original and all copies of this e-mail and any attachments from your computer. Please note that coverage cannot be bound or altered by sending an email. You must receive written confirmation from a representative of our firm to put coverage in force or make changes to an existing policy.
> ��i��0���zX���+��n��{�+i�^l===

-- 
Mladen Gogala
Oracle DBA
Tel: (347) 321-1217

--
http://www.freelists.org/webpage/oracle-l

Received on Wed Nov 01 2017 - 19:20:16 CET