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