perl -lane '$F[2]=~/(..)(..)(..)(..):(....)$/;printf qq/ip:%d.%d.%d.%d port:%d inode:%d\n/, map hex, $4,$3,$2,$1,$5,$F[9]' /proc/net/tcp6 実行してみるとこんな感じ。 $ perl -lane '$F[2]=~/(..)(..)(..)(..):(....)$/;printf qq/ip:%d.%d.%d.%d p…