[aprssig] Perl socket programming

Mark Miller kramrellim at tx.rr.com
Thu Apr 10 11:06:35 EDT 2008


Oh no sorry I didn't look closely enough.

73,
Mark N5RFX

Take out the print $val."\n";

73,
Mark N5RFX

At 09:04 AM 4/10/2008, you wrote:
>And what I don't get is
>
>print $sock 
>chr(34),chr(0),chr(16),chr(244),chr(4),chr(27),chr(2),chr(10),chr(169),chr(180),chr(224),chr(148),chr(4),chr(32),chr(40),chr(0);
>
>Sends one UDP packet with 16 bytes,
>
>while
>
>$data = "34 0 16 244 4 27 2 10 169 180 224 148 4 32 40 0";
>@array = split(" ",$data);
>foreach $val (@array)
>{
>print $sock chr($val);
>print $val."\n";
>}
>sleep 1;
>close $sock;
>
>Sends 16 UDP packets, 1 byte each.






More information about the aprssig mailing list