< Concord
this is a nice basic script that uses oracle's sql to get element names that have an nms State of deleted
more getNmsDeletedElements.pl
#!/bin/perl
use strict;
use warnings;
# simple script that outputs the names of elements that have an nmsState of Deleted
# ie it will find elements that have been turned off for the Alcatel import module
# the data in nmsStats is numeric 1 = active, 2 = deleted, 0 = ?
# i have not find the place in the munual yet with this infomation so this is just a guess
my $oraUser="user name here";
my $oraPassword="password here";
my $oraPath="path to sqlplus command here"; # eg "/oracle/bin"
my $nmsState="2" || die "Missing args $!"; # get required nmsState
my $number="0";
if ($nmsState !~ /0|1|2/) {die "not a valid nmsState";}
my $elements = qx{$oraPath/sqlplus -S $oraUser/$oraPassword <<EOF
set pages 100 lines 1000 head off
SELECT NAME from NH_ELEMENT where NMS_STATE='$nmsState';
exit
EOF };
#print $elements; #works to here.
foreach my $segment (split(/\n/,$elements)) {
next if $segment =~ /^$/;
next if $segment =~ /no rows selected/;
if ($segment =~ /\d[0-10] rows selected/) {$number=$1;}
print "$segment\n";
}
print $number;