Hello cheako,
Thank you for your time and effort reading and replying to my question.
I modified the code as you propose and also I am using use diagnostics; as I found online to assist me identifying the error. Still I can not understand why my send packet is wrong.
This is the output that I am getting when I execute the code.
Client Transmit: Sat Mar 7 02:29:37 2015 $VAR1 = [ 'B8 C3 N10 B32', '00100011', '0', '0', '0', '0', '0', '0', '0', '0', 1425691777, 761152, '0', '0', 1425691777, 761152 ]; Invalid type '1' in pack at NTPperl.pl line 50 (#1) (F) The given character is not a valid pack or unpack type. See "pack" in perlfunc. (W) The given character is not a valid pack or unpack type but use +d to be silently ignored. Uncaught exception from user code: Invalid type '1' in pack at NTPperl.pl line 50.
Line 50 is:
my $send_sntp_packet = pack @argsforpacksend_sntp_packet;
In reply to Re^2: SNTP pack and unpack
by thanos1983
in thread SNTP pack and unpack
by thanos1983
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |