Hi everyone,
I've got a command (if you're familiar with EMC and PowerPath, you'll
recognize the output) that outputs a long list of information like this:
# powermt display dev=all
Pseudo name=emcpower0a
Symmetrix ID=000187720658
Logical device ID=00AD
state=alive; policy=SymmOpt; priority=0; queued-IOs=0
========================================================================
======
---------------- Host --------------- - Stor - -- I/O Path - --
Stats ---
### HW Path I/O Paths Interf. Mode State
Q-IOs Errors
========================================================================
======
3072 [EMAIL PROTECTED]/SUNW,[EMAIL PROTECTED]
c5t50060482CC18F487d109s0 FA 8aA
active alive 0 0
3073 [EMAIL PROTECTED]/SUNW,[EMAIL PROTECTED]
c6t50060482CC18F497d109s0 FA 8bA
active alive 0 0
3074 [EMAIL PROTECTED]/SUNW,[EMAIL PROTECTED]
c7t50060482CC18F488d109s0 FA 9aA
active alive 0 0
3075 [EMAIL PROTECTED]/SUNW,[EMAIL PROTECTED]
c8t50060482CC18F498d109s0 FA 9bA
active alive 0 0
That's the output from ONE device, there are sometimes hundreds of
these. What I'd like to do is transform this into the following:
emcpower0a -> c5t50060482CC18F487d109
emcpower0a -> c6t50060482CC18F497d109
emcpower0a -> c7t50060482CC18F487d109
emcpower0a -> c8t50060482CC18F497d109
I wrote some code to attempt this, but I'm way off ... I know there's a
way to do this, it's just eluding me. The code I was trying out is
below. I wouldn't run it, it fails miserably:
#!/usr/bin/perl
use warnings;
use strict;
my @powerout = `powermt display dev=all`;
my $name;
my @device;
foreach( @powerout ) {
if( /Pseudo name/ .. /^$/ ){
$name = $1 if /Pseudo name.*(emc.*)$/;
push @device, $1 if /(c\dt.+)s\d/;
}
print "$name = $_\n" foreach( @device );
$name = undef;
@device = undef;
}
Thanks ahead-of-time for any help!
--Errin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
