Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask


by Anonymous Monk
on Sep 21, 2003 at 18:38 UTC ( #293017=obfuscated: print w/replies, xml ) Need Help??

With all the animated stuff posted lately, I decided to chip in. It's only been tested on Linux, as that's all I really have access to right now, so tell me if it's broken on something else.

sub'_{select$_[3],$_[2],$_[1],$_[0]}$:=?y??y::::q;:;;$:.=qq:-:; @%=map{$:.$_}qw:) ) ( / o P P:;sub'__{@_=$c->(@:);while($_=pop) {unless($*){$*=length;if(m+^$"*$+i){_$|if(length$&<$-)}else{$.= shift@%}}if(/ /){pop@|for(length..++$*);push@|,$,for(length..-- $*)}print+chr$:;push@|,chop;print for@|;substr($.,0,1)=q$;$if$. =~/P/;print$"x(27-@|).$..$"x5;_$=/1.e3;length&&redo;$**=length; @|=(split($\,join$",split/\s/,join+q,,,@|),$,=$");next if@_}}$c =sub{map{join$!,map{chr hex}/../g}@_};++$|;$:=2*@%-$|;$-=47%$:; @:=qw;2c72656b636168 6c726550 2020202020202020 61426c6175736956 2020202020 4c4f424f43 20202020 6176614a 726568746f6e61 7473754a ;;__;print+chr@:


Brandan L.

Replies are listed 'Best First'.
Re: typojaph
by b-funk (Sexton) on Sep 21, 2003 at 18:41 UTC
    Whoops. Forgot I wasn't logged in when I posted that.

    Brandan L. again
Re: typojaph
by jonadab (Parson) on Sep 21, 2003 at 20:38 UTC

    Interesting effect. For the record, it works on ActiveState Perl, not only under cygwin but even in the WinMe command prompt.

    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
Re: typojaph
by OverlordQ (Hermit) on Sep 26, 2003 at 01:31 UTC
    C:\Perl\bin\scripts>perl Just another Perl hacker, ;-P
    This is perl, v5.8.0 built for MSWin32-x86-multi-thread
    Works on Win-Perl, nicely done :) *care to explain it now? lol*
      I thought that was your job, but I won't pass up an opportunity to talk about myself.

      Brandan L.
Re: typojaph
by sandfly (Beadle) on Sep 25, 2003 at 19:56 UTC
    Very nice. I did a double-take the first time it ran.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://293017]
Approved by jeffa
Front-paged by jeffa
[LanX]: I have my doubts, IMHO its a workaround if the glyph is missing
[LanX]: (they are pronounced differently)
[choroba]: perl -Mutf8 -Mfeature=fc -wE 'say fc "straße" eq fc "strasse"'
[choroba]: returns 1 for me
[choroba]: are they?
[LanX]: strict rules : the a is long in "straße" and short in "strasse"
[choroba]: So the "a" is different, not the "s" ;-)
[LanX]: people knowing that it's a workaround will pronounce it right
[LanX]: well
[LanX]: Maße and Masse are two very different words.

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (11)
As of 2018-03-21 15:47 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (268 votes). Check out past polls.