×
Create a new article
Write your page title here:
We currently have 3,189 articles on s23. Type your article name above or create one of the articles listed here!



    s23
    3,189Articles

    Concord/GetNamefromIP

    this is a nice basic script that uses oracle's sql to get the element names that have a matching IP address.

    # more getNamefromIP.pl
    #!/bin/perl
    use strict;
    use warnings;
    # simple script that outputs the names of elements that have an IPaddress given as and argument
    # added in a simple IP address test (NOTE this is not a full IPV4 test ie it will alow 333.x.x.x)
    # but we wont worry about that as its only querying a database and will just retuirn no values 
    # if not found. usage 'getNamefromIP.pl x.x.x.x'
    
    
    my $oraUser="user name here";
    my $oraPassword="password here";
    my $oraPath="path to sqlplus command here"; # eg "/oracle/bin"
    my $ipAddress=$ARGV[0] || die "Missing args  $!";      # get  ipAddress
    
    if ($ipAddress !~ /^(d{1,3}).(d{1,3}).(d{1,3}).(d{1,3})$/) {die "not a valid IPAddress";}
    my $elements = qx{$oraPath/sqlplus -S $oraUser/$oraPassword <<EOF
    set head off
    SELECT NAME from NH_ELEMENT where IP_ADDRESS='$ipAddress';
    exit
    EOF };
    
    foreach my $segment (split(/ /,$elements)) {
       next if /^$/;
       next if /rows selected\.$/;
       next if /no rows selected/;
       print "$segment\n";
    }
    

    related: Perl

    Back to Concord Index

    Cookies help us deliver our services. By using our services, you agree to our use of cookies.
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.