Solved

Need assistance modifying an existing PERL script to compute IP Address metrics

Posted on 2015-01-17
2
199 Views
Last Modified: 2015-01-17
Hi Team,

   Just need some assistance modifying an existing PERL script to accommodate new fields I have to eventually import to our mysql database.

1. I have a raw file ip_search.csv  which contains a "Device_Name", 'IP_ADDRESS", "BASE_IP", "MASK"

[me@mypc]# cat ip_search.csv
Firewall_A,10.1.40.3,10.1.40.0,24
Firewall_B,10.8.40.1,10.8.40.0,24
Firewall_C,10.8.31.3,10.8.31.0,28
Firewall_D,10.8.31.1,10.8.31.0,28

Open in new window


2. After being processed by the PERL script below, the output now has  "Device_Name", 'IP_ADDRESS", "BASE_IP", "MASK", "START_IP_RANGE", "END_IP_RANGE", "START_DECIMAL", "END_DECIMAL"   where the START and END Decimals are the decimal equivalent of the IP addresses (INET_ATON function).

[me@mypc]# ./FirewallIPRange 
Firewall_A,10.1.40.3,10.1.40.0,24,10.1.40.1,10.1.40.254,167847937,167848190
Firewall_B,10.8.40.1,10.8.40.0,24,10.8.40.1,10.8.40.254,168306689,168306942
Firewall_C,10.8.31.3,10.8.31.0,28,10.8.31.1,10.8.31.14,168304385,168304398
Firewall_D,10.8.31.1,10.8.31.0,28,10.8.31.1,10.8.31.14,168304385,168304398

Open in new window


3. The PERL script that is doing that is this:
[me@mypc]# cat FirewallIPRange 
#!/usr/bin/perl

use strict;
use warnings;
use Net::IP;
use Socket;

open my $csv, '<', 'ip_search.csv' or die "failed to open 'ip_search.csv' $!";

while( my $record = <$csv>) {
    chomp $record;
    my($network, $cidr) = (split(/,/, $record))[-2,-1];
    
    my $lan = Net::IP->new("$network/$cidr");
    my @first = split(/\./, $lan->ip);
    $first[-1]++;
    my $first_ip = join('.', @first);
    
    my @last  = split(/\./, $lan->last_ip);
    $last[-1]--;
    my $last_ip = join('.', @last);
    
    my $first = unpack("N", inet_aton($first_ip) );
    my $last  = unpack("N", inet_aton($last_ip) );
    
    print join(',', $record, $first_ip, $last_ip, $first, $last), "\n";
}
close $csv;

Open in new window


4. My new customer now sends me a raw file which contains less info, (base IP is missing)  but still needs similar fields (with a couple extra) as the output:

a. New source files looks like this  --> "Device_Name", 'IP_ADDRESS", "MASK"

[me@mypc]# cat ip_search_new.csv
Firewall_A,10.1.40.3,24
Firewall_B,10.8.40.1,24
Firewall_C,10.8.31.3,28
Firewall_D,10.8.31.1,28

Open in new window


b. but the resulting csv output would need to look like this:

 "Device_Name", 'IP_ADDRESS", "BASE_IP", "MASK",  "MASK_CIDR", "START_IP_RANGE", "END_IP_RANGE", "START_DECIMAL", "END_DECIMAL"

[me@mypc]# ./FirewallIPRangeNEW 
Firewall_A,10.1.40.3,10.1.40.0,24,255.255.255.0,10.1.40.1,10.1.40.254,167847937,167848190
Firewall_B,10.8.40.1,10.8.40.0,24,255.255.255.0, 10.8.40.1,10.8.40.254,168306689,168306942
Firewall_C,10.8.31.3,10.8.31.0,28,255.255.255.240,10.8.31.1,10.8.31.14,168304385,168304398
Firewall_D,10.8.31.1,10.8.31.0,28,255.255.255.240, 10.8.31.1,10.8.31.14,168304385,168304398

Open in new window


Would appreciate if someone could just help me modify the existing PERL script listed above so the new version can also compute the BASE IP and the CIDR value, based on initial IP address and mask?

Thanks very much.
0
Comment
Question by:rleyba828
2 Comments
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 40555775
while( my $record = <$csv>) {
    chomp $record;
    my($network, $cidr) = (split(/,/, $record))[-2,-1];
    my $mask=-(1<<(32-$cidr));
    my $mask_ip=join('.',unpack'C4',pack"N",$mask);
    my $first = unpack("N", inet_aton $network );
    my $last = $first|~$mask;
    my $last_ip = join('.',unpack'C4',pack"N",--$last);
    $first &= $mask;
    my $first_ip = join('.', unpack'C4',pack"N",++$first);
    print join(', ', $record, $mask_ip, $first_ip, $last_ip, $first, $last), "\n";
}
0
 

Author Comment

by:rleyba828
ID: 40555836
Perfect!
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many situations when we need to display the data in sorted order. For example: Student details by name or by rank or by total marks etc. If you are working on data driven based projects then you will use sorting techniques very frequently.…
This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
Learn the basics of strings in Python: declaration, operations, indices, and slicing. Strings are declared with quotations; for example: s = "string": Strings are immutable.: Strings may be concatenated or multiplied using the addition and multiplic…
The viewer will learn how to count occurrences of each item in an array.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now