Zurück

#!/usr/bin/perl -w
use strict;
                                            $_='ev
                                        al("seek\040D
            ATA,0,                  0;");foreach(1..2)
        {<DATA>;}my               @camel1hump;my$camel;
   my$Camel  ;while(             <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
  ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
         t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
        $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
       $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
      @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
      defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
      L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
       ump];}$camel.="\n";}@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(@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$/;$_=<DATA>;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