[FWP] binary to ascii to binary

[Joey Mitchell Comeau <aw096@chebucto.ns.ca>]

	Hi, I dunno if this is the sort of thing that goes on on the list.
I've written a fun little utility that converts ascii to binary and vice
versa. I am not entirely sure if I did it the best way possible, (well,
ok, I'm CERTAIN there are many better ways) but I've got it working now.
Here is some sample output...

---------------------
BinarytoASCIItoBinary
       (untoward)
---------------------
a for ascii->bin
b for bin->ascii
(q to quit)
:a
Enter the ASCII STRING: JAPH that's still learning
Binary equivalent is;
01001010 01000001 01010000 01001000 00100000 01110100 01101000
01100001 01110100 00100111 01110011 00100000 01110011 01110100
01101001 01101100 01101100 00100000 01101100 01100101 01100001
01110010 01101110 01101001 01101110 01100111
<......presenterwhendone......>


and the opposite....

---------------------
BinarytoASCIItoBinary
       (untoward)
---------------------
a for ascii->bin
b for bin->ascii
(q to quit)
:b
Enter the binary bytes separated by spaces followed by a
blank line by itself.
---------------------
01001010 01000001 01010000 01001000 00100000 01110100 01101000
01100001 01110100 00100111 01110011 00100000 01110011 01110100
01101001 01101100 01101100 00100000 01101100 01100101 01100001
01110010 01101110 01101001 01101110 01100111

Ascii equivalent;
JAPH that's still learning
<......presenterwhendone......>


The source file is available at www.chebucto.ns.ca/~aw096/bin2asc.pl
Take a look and let me know what you think, what I did that was stupid
and/or counterproductive. Also, if you think it's neat.

Have a good day,
Joey



==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe