SPUG: Re: ping anyone around

[Aaron W. West]

Yeah, I'm around. But I was reading about OCaml (or actually, an OCaml
programmer, or music notation software...), not Perl, at the moment. And I
can't figure out what your binary is trying to say...(a pack("B*",$_) of
your string with spaces removed doesn't look meaningful... Perhaps each 4
bits is a digit. But then I get this string, and don't know what to do with
it:

$ perl -e '$_="0100 0001 0110 1100 0110 1100 0010 0000 0111 1001 0110 1111
0111 0101 0111 0010 0010 0000 0110 0010 0110 0001 0111 0011 0110 0101 0010
0000 0110 0001 0111 0010 0110 0101 0010 0000 0110 0010 0110 0101 0110 1100
0110 1111 0110 1110 0110 0111 0010 0000 0111 0100 0110 1111 0010 0000 0111
0101 0111 0011 0010 0001"; s/ //; while($_){print pack "B8","0011" .
substr($_,0,4); $_=substr(
$_,4,999)}'

41330<<100>933<>538840308<138<<5100<1388<5100<2314<<33<<>31<40390<?100>538<4
1

oh well, i give up (easily)

----- Original Message ----- 
From: "Joseph Ronie" <phocuser at yahoo.com>
To: <spug-list at mail.pm.org>
Sent: Wednesday, July 28, 2004 7:25 AM
Subject: SPUG: ping anyone around


test?

=====
0100 0001 0110 1100 0110 1100 0010 0000 0111 1001 0110 1111 0111 0101 0111
0010 0010 0000 0110 0010 0110 0001 0111 0011 0110 0101 0010 0000 0110 0001
0111 0010 0110 0101 0010 0000 0110 0010 0110 0101 0110 1100 0110 1111 0110
1110 0110 0111 0010 0000 0111 0100 0110 1111 0010 0000 0111 0101 0111 0011
0010 0001