Check luns AIX-EMC

#!/usr/bin/perl

#

# GNU / FTW

# Loading command output on memory...

open(ERROR, 'errpt | grep "DISK OPERATION ERROR" |');

foreach $a (<ERROR>)

{

@line = split(/ /, $a);

push(@error,"$line[3]:$line[6]");

}

close(ERROR);

open(STATE, 'powermt display dev=all |');

foreach $a (<STATE>)

{

push(@state,"$a");

}

close(STATE);

# Algorit to search and report...

$condition = "";

foreach $line (@error)

{

@report = split(/:/, $line);

foreach $line2 (@state)

{

if ( $line2 =~ /$report[1](.*)/ )

{

$condition = "found";

printf "$report[0] - $report[1] -> $1 \n";

}

}

if ( $condition !~ "found" )

{

printf "$report[0] - $report[1] -> WARNING! NO INFO \n";

}

$condition = "";

}