Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

My First JAPH

by Spidy (Chaplain)
on Sep 11, 2004 at 19:03 UTC ( [id://390302]=obfuscated: print w/replies, xml ) Need Help??

Probably pretty basic, but...

#!/usr/bin/perl -w $standard1 = 4898.384.759838.57274 use strict;my @rray = qw ( 01001010 01110101 01110011 01110100 00100000 01100001 01101110 01101111 01110100 01101000 01100101 01110010 00100000 01010000 01100101 01110010 01101100 00100000 01001000 01100001 01100011 01101011 01100101 01110010 );#my @rray = shift;###### s/01001010/74/for @rray;s/01110101/117/ for @rray;### s/01110011/115/ for @rray;s/01110100/116/ for @rray;# s/00100000/00/for @rray;s/01100001/97/for@rray;###### s/01101110/110/for @rray;s/01101111/111/ for @rray;## s/01101000/104/for @rray;s/01100101/101/for @rray;### s/01110010/114/ for @rray;s/01010000/80/ for @rray;## s/01101100/108/ for @rray;s/01001000/72/ for @rray;## s/01100011/99/ for @rray;s/01101011/107/ for@rray;### ;;foreach(@rray) {print chr($_);};;print "\n";;#@rray


So, what do you think?

Thanks,
Spidy

Replies are listed 'Best First'.
Re: My First JAPH
by cchampion (Curate) on Sep 11, 2004 at 19:30 UTC

    What about this?

    #!/usr/bin/perl -w print pack"B*", $_ for qw( 01001010 01110101 01110011 01110100 00100000 01100001 01101110 01101111 01110100 01101000 01100101 01110010 00100000 01010000 01100101 01110010 01101100 00100000 01001000 01100001 01100011 01101011 01100101 01110010 );

    Perhaps you should have a look at this node ...

    A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://390302]
Approved by cchampion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2024-03-29 00:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found