Skip to content

Instantly share code, notes, and snippets.

@masasuzu
Created April 24, 2015 06:52
Show Gist options
  • Save masasuzu/c5e28de0e706f541c19f to your computer and use it in GitHub Desktop.
Save masasuzu/c5e28de0e706f541c19f to your computer and use it in GitHub Desktop.
IPっぽいけどバージョン文字列
use strict;
use warnings;
use Devel::Peek qw( Dump );
my $ip_poi = 192.168.1.1;
Dump $ip_poi;
SV = PVMG(0x6f0af0) at 0x6a4e08
REFCNT = 1
FLAGS = (PADMY,RMG,POK,pPOK,UTF8)
IV = 0
NV = 0
PV = 0x69dfe0 "\303\200\302\250\1\1"\0 [UTF8 "\x{c0}\x{a8}\x{1}\x{1}"]
CUR = 6
LEN = 16
MAGIC = 0x6a6190
MG_VIRTUAL = 0
MG_TYPE = PERL_MAGIC_vstring(V)
MG_LEN = 11
MG_PTR = 0x6acff0 "192.168.1.1"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment