http://www.perlmonks.org?node_id=8563


in reply to This was completely wasted on my wife.

My wife doesn't like variables much, so they were wasted on her.
foreach(split//,'1ECD0289D54B0A4B7052364BF'){print substr(" Jacehklnop +rstu\n",hex($_),1)};

kryten
who feels compelled to admit that he is not actually married, but claims this falls under GPL (General Poetic License.) :)

Replies are listed 'Best First'.
RE: RE: This was completely wasted on my wife.
by marcos (Scribe) on Apr 26, 2000 at 12:10 UTC
    since your wife doesn't like variables very much why not taking away that $_ too ? foreach(split//,'1ECD0289D54B0A4B7052364BF'){print substr(" Jacehklnoprstu\n",hex,1)}; ;) marcos
RE: RE: This was completely wasted on my wife.
by marcos (Scribe) on Apr 26, 2000 at 12:51 UTC
    Let me also add my own version

    map {unless (/^$/) {y/Q-Z/0-9/; print chr hex;}} split /(\w{2})/, "UAX +VXTXUSQWRWEWFXUWYWVXSSQXQWVXSWCSQWYWRWTWBWVXSSR";

    ;)
    marcos
RE: RE: This was completely wasted on my wife.
by cciulla (Friar) on Apr 24, 2000 at 14:18 UTC
    THAT was cool.
RE: RE: This was completely wasted on my wife.
by cciulla (Friar) on Apr 24, 2000 at 14:48 UTC
    foreach(split//,'937A0864251B'){print substr(" .cEiklRsVY\n",hex($_),1)};
      true dat :-)