Re: All in one

You use a technique seems like the one used on the previous post, but I like very much your lambada ;)
I can't see the results, but I'll track your code while i singing ...

perl -e 'eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'
[download]

Interesting. You put part for $@ in reversed form, character by character on the array @b:

.1 enil e- ta )?"just" daol ot togrof uoy spahrep( "just" egakcap aiv 
+"rila" doh
[download]

And then print the indexed elements

turo@indus:/tmp$ perl -ne 'print $_,"\n" for ((/#([^\(|^\!].*)$/))' p.
+pl | sort | perl -ne 'print (scalar(split //),", ")'
[download]

26, 27, 28, 29, 4, 21, 6, 16, 20, 88, 5, 80, 4, 57, 5, 80, 8, 9, 88, 2
+1, 103, 70, 5, 80
[download]

and the magic:

perl -e 'eval{alir tsuj}; 1 while($b[$j++]=chop($@)); for ((26, 27, 28
+, 29, 4, 21, 6, 16, 20, 88, 5, 80, 4, 57, 5, 80, 8, 9, 88, 21, 103, 7
+0, 5, 80)){ print "$b[$_]"; }
[download]

Jesus!, nothing!!!

ol oeti?sjnhe"nh ejtC nh
[download]

ufff, pretty obfuscate!! :-P ...

26 J
27 u
28 s
29 t
4, ' '
21, a
6,  n
16, o
20, t
88, h
5,  e
80, r
4,  ' '
57, P
5,  e
80, r
8,  l
9,  ' '
88, h
21, a
103, c
70, k
5,  e
80  r
[download]

;) ...

Chorando se foi ... lalalala lala la lala

turo

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

Comment on Re: All in one Select or Download Code

Replies are listed 'Best First'.
Re^2: All in one by smokemachine (Hermit) on Jan 10, 2006 at 20:20 UTC
My @b: `.2 enil lp.4sbo/. ta )?"just" daol ot togrof uoy spahrep( "just" egakc +ap aiv "rila" dohtem tcejbo etacol t'naC` [download]	[reply] [d/l]
Re^3: All in one by turo (Friar) on Jan 10, 2006 at 22:03 UTC
I didn't notice that the node "Simple, but i liked too much..." was yours ^_^ ... Okay, i suppose that was my fault ... `perl -e '; eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'` [download] that prints out the same as you... `.2 enil e- ta )?"just" daol ot togrof uoy spahrep( "just" egakcap aiv +"rila" dohtem tcejbo etacol t'naC` [download] Wait a minute, I've got what was the problem, we must call the file exactly as 'obs4.pl' and call it by put the './obs4.pl' to obtain the result ... but ... buff ... :'( ... and I was thinking that the result was an homophonic cipher ... to be decoded cheers `perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'`	[reply] [d/l] [select]