Solved

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

Posted on 2015-01-17
2
201 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

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

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

Suggested Solutions

Recently, an awarded photographer, Selina De Maeyer (http://www.selinademaeyer.com/), completed a photo shoot of a beautiful event (http://www.sintjacobantwerpen.be/verslag-en-fotoreportage-van-de-sacramentsprocessie-door-antwerpen#thumbnails) in An…
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 how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)

770 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