#!/usr/bin/perl 
 
use warnings; 
use strict; 
 
use Net::IPTrie; 
my $tr = Net::IPTrie->new(version=>6); # IPv6  
 
open LEXO, "<", "lexo.txt" or die "Could not open file lexo.txt in read mode: $!\n"; 
open IPV6, "<", "IPv6.txt" or die "Could not open file IPv6.txt in read mode: $!\n"; 
 
my @lexo_content = <LEXO>; 
my @ipv6_content = <IPV6>; 
 
foreach my $ip (@ipv6_content) { 
        chomp $ip; 
        foreach my $line (@lexo_content) { 
                chomp $line; 
                if($line =~ m/prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){ 
                        my $prefix = $1; 
                        my $data = $2; 
                        my $address = $tr->add(address=>"$ip", prefix=>"$prefix", data=>"$data"); 
                        if ($address->parent->address eq $line->address) { 
                                print "ip::[$ip]\nprefix::[$prefix]\ndata::[$data]\n"; 
                        } 
                } 
        } 
} 
 
close LEXO; 
close IPV6;

if ($address->parent->address eq $line->address) { 
print "ip::[$ip]\nprefix::[$prefix]\ndata::[$data]\n"; 
}

#!/usr/bin/perl 
 
use warnings; 
use strict; 
 
use Net::IPTrie; 
my $tr = Net::IPTrie->new(version=>6); # IPv6  
 
open LEXO, "<", "lexo.txt" or die "Could not open file lexo.txt in read mode: $!\n"; 
open IPV6, "<", "IPv6.txt" or die "Could not open file IPv6.txt in read mode: $!\n"; 
 
my @lexo_content = <LEXO>; 
my @ipv6_content = <IPV6>; 
 
foreach my $ip (@ipv6_content) { 
        chomp $ip; 
        foreach my $line (@lexo_content) { 
                chomp $line; 
                if($line =~ m/address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){ 
                        my $address = $1; 
                        my $prefix = $2; 
                        my $data = $3; 
                        my $n = $tr->add(address=>"$address", prefix=>"$prefix", data=>"$data"); 
                        my $a = $tr->add(address=>"$ip", prefix=>'128', data=>"$data");; 
                        if ($a->parent->address eq $n->address) { 
                                print "\$a is ". $a->address . " and parent of \$a is ". $a->parent->address ." and data of parents is: ". $a->parent->data. "\n"; 
                        } 
                } 
        } 
} 
 
close LEXO; 
close IPV6;

my @lexo_content = <LEXO>;

if($line =~ m/address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/){  
... 
}

# Notes: '^' anchors the expression at line start, simplifying the line scan. 
# 'o' precompiles the regex so it executes faster on the 2nd and succeeding iteration. 
if ( $line =~ /^address=>/o ) { 
    $line =~ /^address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/)/o; 
    ... 
}

 
# Warning: untested, snippet. 
 
my $lexo_hash = {}; 
foreach my $line (@lexo_content) { 
    chomp($line); 
    $line =~ /^address=>\'(.*?)\',\s*prefix=>\'(.*?)\',\s*data=>\'(.*?)\'/)/o; 
    next unless ( defined($1) and defined($2) and defined($3) );  
    my $n = $tr->add(address=>"$1", prefix=>"$2", data=>$3); 
    # Not sure if we're allowed to cache Net::Trie thingies, so convert to a hash. 
    $lexo_hash->{$n->{address}} = { address => $n->address, prefix => $n->prefix, data => $n->data }; 
} 
 
foreach my $ip ( $ipv6_content ) { 
    chomp($ip); 
    my $a = $tr->add(address=>"$ip", prefix=>"128", data=>'blah');   # Assumes $a->data isn't significant. 
    next unless defined( $a->parent ); 
    next unless exists($lexo_hash->{$a->parent->address}); 
    print "\$a is ". $a->address . " and parent of \$a is " 
           . $a->parent->address . " and data of parents is: " 
           . $lexo_hash->{$a->parent->address}->{data} . "\n"; 
}