Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

This was completely wasted on my wife.

by cciulla (Friar)
on Apr 16, 2000 at 05:20 UTC ( [id://7757]=perlcraft: print w/replies, xml ) Need Help??

   1: $a=" Jacehklnoprstu";@b=split//,"1ECD0289D54B0A4B7052364B";
   2: foreach $c(@b){$d.=substr($a,hex($c),1);}print"$d\n";

Replies are listed 'Best First'.
RE: This was completely wasted on my wife.
by kryten (Scribe) on Apr 21, 2000 at 23:28 UTC
    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.) :)
      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
      Let me also add my own version

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

      ;)
      marcos
      foreach(split//,'937A0864251B'){print substr(" .cEiklRsVY\n",hex($_),1)};
        true dat :-)
      THAT was cool.
RE: This was completely wasted on my wife.
by Anonymous Monk on Apr 21, 2000 at 21:30 UTC
    Slick.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2024-04-25 11:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found