Re: [FWP] Fun with pack()

[Ian Phillipps <igp_list2@tesco.net>]

On Wed, 10 Jan 2001 at 15:59:01 +0000, Ian Phillipps wrote:
> On Tue, 26 Dec 2000 at 15:19:10 +0200, Ilmari Karonen wrote:
> > 
> > perl -le'print map{substr"  ETINAMSDRGUKWOHBLZFCP VX Q YJ",vec(pack("b*"
> >          ,$_.1),0,8),1}split/ /,".--- ..- ... -  .- -. --- - .... . .-."
> >          ."  .--. . .-. .-..  .... .- -.-. -.- . .-."'
> 
> Splendid... but it  needs this reposte:
> 
>  perl -le'print map{substr"  ETINAMSDRGUKWOHBLZFCP VX Q YJ",vec(pack("b*"
> >          ,$_.1),0,8),1}split/ /,".--- ..- ... -  .- -. --- - .... . .-."

Sorry, this one escaped early. I suppose I'll really *have* to code my
morse code encoder now :-0

Ian

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