Shell Programming and Scripting

What is your intent with regards to IPv6 addresses?

Hello All thanks for update and the script.

Let continue the challenge, Now we converted the ip addresses to ip number.

If I have a file contain the data as follow:

JP|58.0.0.0|131072
IN|58.2.0.0|65536
JP|58.3.0.0|32768
JP|58.3.128.0|32768
JP|58.4.0.0|131072
AU|58.6.0.0|32768
AU|58.6.128.0|32768
AU|58.7.0.0|65536
TH|58.8.0.0|131072
TH|58.10.0.0|131072
JP|58.12.0.0|131072
CN|58.14.0.0|131072
CN|58.16.0.0|65536

Let me explain the content of this file, First two letters represents the location of ip address subnet, second column represents the start of ip subnet, the third column represents how many ips in this subnet.

I thought about after transfer the second column to ip number using the previous script, then I have the start of subnet, then by addition of the number of ips in the third column..... Now I have all the range of ip number in this area which belongs to this country.

The final step is to compare the ip numbers I've had before with this file to know the location of each ip.

Pleaze, Pleaze help me in this script, if you have any inquiries send me

Try to use pack() and unpack().

Code:

$ipaddr = '10.11.15.200';
print unpack('N', pack('C4', split(/\./, $ipaddr)));

which gives "168497096".

To reverse, it's just a reverse:

Code:

$ipnum = '168497096';
print join('.', unpack('C4', pack('N', $ipnum)));

For this sort of things, doing the bit-level manipulations manually is IMO quite noisy.

You can read in the file in the hash, with the IP address as the key and the location as the value. Then, a $hash{$ipaddr} will give you the location, if exists.

Could you explain in more details what is meant by hashing.

To make the issue more clear, I have a list of ip addresses in a file, I want to know the location of each ip address.

Could you send me the script complete in Perl. or equivalent method

Code:

#!/bin/sh
while read ip
do
    s=""
    num=`echo $ip | tr "." " "`  #convert all dots to space
    for n in $num
    do
        s=$s`echo "obase=2;$n" | bc`
    done
    echo "ibase=2;obase=A;$s" | bc # convert binary to decimal
done < "file"

I leave you todo the reverse if you want. See here for the reference

For more and more clarification

Could you help me with the other request?

File 1: Location|subnet

JP|58.0.0.0
IN|58.2.0.0
JP|58.3.0.0
JP|58.3.128.0
JP|58.4.0.0
AU|58.6.0.0
AU|58.6.128.0
AU|58.7.0.0
TH|58.8.0.0
TH|58.10.0.0
JP|58.12.0.0
CN|58.14.0.0
CN|58.16.0.0

File 2: subnet to ip number

973078528
973209600
973275136
973307904
973340672
973471744
973504512
973537280
973602816
973733888
973864960
973996032
974127104
974192640

File 3: ip addresses to ip number

1139043322
1224208041
1094078762
1506936493
3651953455
1280633240
1161801768
1510897669

I want to compare the ip numbers in File 3 with File 2, say that 1139043322 in the some range in File 2, so this ip will be in country XX from File 1