in reply to Re^13: p0fq.pl and pack
in thread p0fq.pl and pack?

No I am feed it as:
 src_ad => $src->intip(),
 dst_ad => $dst->intip(),

[download]

$src->intip() is 3232235778 and $dst-intip() is 3232235777
If If hard coded in the src,dst ip as: 
 src_ad => '3232235778',
 dst_ad => '3232235777',

[download]
It works, seems Convert::Binary::C pack method won't take varible but constant only, isn't that odd?

Replies are listed 'Best First'.
Re^15: p0fq.pl and pack
by ikegami (Patriarch) on Feb 26, 2007 at 01:31 UTC
    intip "converts the IP in integer format and return it as a Math::BigInt object", according to the docs. It doesn't return a number.
[reply]
[d/l]
      I used the wrong method of Net::IP, the hexip did it. now it works except a little problem
      print "Genre    : " .  $data->{genre} . "\n";
print "Details  : " . $data->{detail} . "\n";
print "Distance : " . $data->{dist} . " hops\n";
print "Link     : " . $data->{link} . "\n";
print "Uptime   : " . $data->{uptime} . " hrs\n";

      [download]
      print out:
      Genre    : ARRAY(0x101127d4)
Details  : ARRAY(0x103826d8)
Distance : 0 hops
Link     : ARRAY(0x1016a60c)
Uptime   : 4431 hrs

      [download]
      print Dumper($data)
      : 
      $VAR1 = {'link' => [101,116,104,101,114,110,101,116,47,109,111,100,101
+,109,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'magic' => 233811181,'nat' => 0
+,'score' => -100,'dist' => 0,'genre' => [76,105,110,117,120,0,0,0,0,0
+,0,0,0,0,0,0,0,0,0,0],'fw' => 0,'detail' => [50,46,54,44,32,115,101,1
+08,100,111,109,32,50,46,52,32,40,111,108,100,101,114,44,32,52,41,0,0,
+0,0,0,0,0,0,0,0,0,0,0,0],'tos' => [104,105,103,104,32,116,104,114,111
+,117,103,104,112,117,116,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'uptime' => 4
+431,'id' => 305419896,'type' => 0,'mflags' => 0,'real' => 1}

      [download]
      What is the correct way to print out those information?
      print "Genre    : " .  @$data->{genre} . "\n";

      [download]
      does not help
[reply]
[d/l]
[select]

        There's no such thing as a string in C. Strings are just arrays of characters treated specially. So that means you need to convert the array of chars into a string yourself. 

        foreach (qw( genre detail link tos )) {
   $data->{$_} = pack('c*', $data->{$_});
   $data->{$_} =~ s/\x00.*//;
}

        [download]

        Better yet, you can tell Concert::Binary::C whether a certain field should be treated as a string or as an array. 

        $c->tag('p0f_response.genre',  Format => 'String');
$c->tag('p0f_response.detail', Format => 'String');
$c->tag('p0f_response.link',   Format => 'String');
$c->tag('p0f_response.tos',    Format => 'String');

        [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom