Lines Matching refs:substr
307 my ($id, $len) = unpack("nn", substr($options, $p, 4));
308 push(@parsed_options, [ $id, substr($options, $p + 4, $len) ]);
328 my $oro_num = unpack("n", substr($data, $i*2, 2));
338 my $srv = inet_ntop(AF_INET6, substr($data, $i*16, 16));
347 my $srv = inet_ntop(AF_INET6, substr($data, $i*16, 16));
365 my $oro_num = unpack("n", substr($data, $i*2, 2));
376 printf '%02X', ord(substr($data, 0, 1));
378 printf ':%02X', ord(substr($data, $i, 1));
384 unpack("N", substr($data, 0, 4));
385 printf "${indent} T1: \%d\n", unpack("N", substr($data, 4, 4));
386 printf "${indent} T2: \%d\n", unpack("N", substr($data, 8, 4));
389 foreach my $option (unpack_options(substr($data, 12))) {
395 uc(inet_ntop(AF_INET6, substr($data, 0, 16)));
397 unpack("N", substr($data, 16, 4));
399 unpack("N", substr($data, 20, 4));
402 foreach my $option (unpack_options(substr($data, 24))) {
407 my $enterprise_number = unpack("N", substr($data, 0, 4));
412 foreach my $option (unpack_options(substr($data, 4))) {
417 my $code = ord(substr($data, 0, 1));
418 my $msg = substr($data, 1);
433 my $msg_type = ord(substr($packet, 0, 1));
434 my $trans_id = substr($packet, 1, 3);
441 ord(substr($trans_id, 0, 1)),
442 ord(substr($trans_id, 1, 1)),
443 ord(substr($trans_id, 2, 1));
447 foreach my $option (unpack_options(substr($packet, 4))) {
Indexes created Sun Apr 12 00:22:20 UTC 2026