Posted By: jetpac (LMN) on 'CZscripts'
Title:     perl - doporucuji spustit a vyzkouset! :)
Date:      Mon Jan 28 17:29:43 2002

#!/usr/bin/perl -w                                      # camel code
use strict;

                                           $_='ev
                                       al("seek           ATA,0,                  0;");foreach(1..3)
       {<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(//,"      ump];}$camel.="n";}@camel1hump=split(/n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7173175`      064       print"$_        /LJF7173175`         $_=reverse;print"           ("seek             ;^.*_;;;map{eval"print"$_"";}/.{4}/g; __DATA__   124
               1   50145                    40143141  1551451 54                    147145                     157143   15114116  41511     57156
                                          45162   154                     1                     15514    1162       153                      146     04011     7                      4515      11541  54171                                                      315           714315             114
                      116            4145163                                                                        1671        511641  50                  145162                              155151
                163163                                1511
              57156

Search the boards