As best as I can understand, you are trying to do the following: check a list of IP addresses (IPs.txt) against a list of IP address ranges (provided in source.txt), and print each address in the list of IP addresses, along with a region if the address matched a range.

Going on this premise, I've rewritten most of your code to do just that. The big problems with your existing code are as follows:

• No use strict or use warnings -- always, always, always write your code with these two pragmas.
• Strange split syntax -- I don't know what you intended to do with split(' ',/,/,4), but that ain't it.
• Non-existent hash keys -- You try to do a comparison against $table{$ip2}, which you've never assigned to.
• Incorrect comparisons -- the <= and >= operators are for numerical comparisons. The IP addresses in your program are strings.
• Non-descriptive variable names -- variable names like $line1 get confusing because they have no meaning when trying to understand an expression.

Here is the code, rewritten to comply with the guidelines I listed, and intended to accomplish the goal I guessed you're trying for.

source.txt

123.123.123.123 124.124.124.124 Canada BC
111.111.111.111 112.112.112.112 Canada AB
11.11.11.11 12.12.12.12 USA WA
22.22.22.22 23.23.23.23 USA OR
33.33.33.33 34.34.34.34 USA CA
[download]

IPs.txt

10.10.10.10
11.11.12.12
123.123.122.122
123.123.124.125
[download]

Perl program

#!perl
#

use strict ;
use warnings ;
                     
open INFO, 'IPs.txt' or die $! ;
chomp( my @IPs = <INFO> ) ;
close INFO ;

my @rows = () ;
open IN, ' source.txt' or die $! ;
while (<IN>)
{
    next if /^$/ ;
    my %table = () ;
    @table{ 'ip', 'ip2', 'country', 'region' } = split ;
    $table{ 'num_ip' }  = sprintf '%03d' x 4, split /\./, $table{ 'ip'
+ } ;
    $table{ 'num_ip2' } = sprintf '%03d' x 4, split /\./, $table{ 'ip2
+' } ;
    push @rows, \%table ;
}
close IN;

open OUT, '>>conversion.txt' or die $! ;
foreach my $ip ( @IPs )
{                                       
    my $match = 0 ;
    my $num_ip = sprintf '%03d' x 4, split /\./, $ip ;
    foreach my $row ( @rows )
    {
        if ( $num_ip >= $row->{'num_ip'} && $num_ip <= $row->{'num_ip2
+'} )
        {
            printf OUT "%-16s %s\n", $ip, $row->{'region'} ;
            $match++ ;
        }
    }
    printf OUT "%-16s\n", $ip if !$match ;
}
close OUT;
[download]

Output

10.10.10.10     
11.11.12.12      WA
123.123.122.122 
123.123.124.125  BC
[download]

Let me know how close to the mark this is.

_______________
D a m n D i r t y A p e
Home Node | Email