Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

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

Posted on 2015-01-17
2
Medium Priority
?
207 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 84

Accepted Solution

by:
ozo earned 2000 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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.…
Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
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)
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

688 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