[aprssig] Perl socket programming

Andrew Rich vk4tec at people.net.au
Thu Apr 10 15:46:19 EDT 2008


Thanks Guys

Works well now

It helps to have wireshark to look at the packets.

I also have a little tracker here that still sends ascii

I want to BCD that to get the payload down.

Cheers


----- Original Message ----- 
From: "Mark Miller" <kramrellim at tx.rr.com>
To: "TAPR APRS Mailing List" <aprssig at lists.tapr.org>
Sent: Friday, April 11, 2008 1:06 AM
Subject: Re: [aprssig] Perl socket programming


> 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.
>
>
>
> _______________________________________________
> aprssig mailing list
> aprssig at lists.tapr.org
> https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig
> 





More information about the aprssig mailing list