- or download this
#!/usr/bin/perl
use strict;
...
/$RE{net}{IPv6}{-sep => ':'}{-style => 'HeX'}{-keep}/ and printf
+"%s\n", trim($1);
/$RE{net}{MAC}{-keep}/ and printf
+"%s\n", trim($1);
}
- or download this
cat report.txt | ./ips.pl > ips.txt
- or download this
192.168.1.188
fdba:7b43:1916::d34
...
fdba:7b43:1916::d34
fdba:7b43:1916::d34
fdba:7b43:1916::d34
- or download this
cat perlout.txt | sort | uniq
192.168.1.1
...
fdba:7b43:1916::d34
fe80::eade:27ff:feb6:fa8c
fe80::ec78:4ff:fec0:a17b