Comments on: Perl Socket programming Tutorial – How to code Client and Server https://www.binarytides.com/perl-socket-programming-tutorial/ News, Technology, Entertainment and more Sat, 01 Aug 2020 14:23:41 +0000 hourly 1 https://wordpress.org/?v=6.8.2 By: sam https://www.binarytides.com/perl-socket-programming-tutorial/comment-page-1/#comment-65625 Tue, 30 Jul 2013 22:04:00 +0000 http://www.binarytides.com/?p=2972#comment-65625 I am having trouble getting data from a locally connected device on one of my servers via udp.
I know it works but the program i created obviously does not. here is what I have, but i can not get a response from the device. when I send the hex data it responds with another frame coming back. but this doesnt seem to work.

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
$| = 1;
my $rec_data;
my $flags;
my $socket = new IO::Socket::INET(
PeerAddr => ‘10.250.250.10’,
PeerPort => 20000,
Proto => ‘udp’,
Timeout => 1) or die (‘Error opening socket.’);
my $data = “1616161600FFFFFFFFFF”;

$socket->send($data);
$socket->recv($rec_data,64,$flags);
print “$rec_datan”;
$socket->close();

]]>