[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] Re: Fun with pack()



In article <Pine.SOL.3.96.1001226151154.6959A-100000@simpukka>,
	Ilmari Karonen <iltzu@sci.fi> writes:
> perl -le'print map{substr"  ETINAMSDRGUKWOHBLZFCP VX Q YJ",vec(pack("b*"
>          ,$_.1),0,8),1}split/ /,".--- ..- ... -  .- -. --- - .... . .-."
>          ."  .--. . .-. .-..  .... .- -.-. -.- . .-."'
> 

On ircnet spifff and me came up with:

perl -le'print+grep{$_=pack"b*",$_.1;y/\1-z/ ETINAMSDRGUKWOHBLZFCP VX Q YJ/}split$",".--- ..- ... -  .- -. --- - .... . .-.  .--. . .-. .-..  .... .- -.-. -.- . .-."'

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