Hi,
I am beginner to perl,
I have a file name cxout and i want to capture just the LUN 415, LUN 815
into arrray & then print from the array. my idea is to capture different
element form this file and the print form the array. Any help would be much
appericated. my sample script looks as below.
$filename = "cxout" ;
open (FILE, "< $filename" ) or die "Could not open $filename: $!";
while (<FILE>) {
if ( $line = (/\^LUN \d+/) ) {
print $line ;
};
};
-------------------------------------------------------------------------------------
Pseudo name=emcpower3a
Logical device ID=600601601496160012288D48703EDB11 [LUN 415]
state=alive; policy=CLAROpt; priority=0; queued-IOs=0
Owner: default=SP A, current=SP A
==============================================================================
---------------- Host --------------- - Stor - -- I/O Path - -- Stats
---
### HW Path I/O Paths Interf. Mode State Q-IOs
Errors
==============================================================================
2306 [EMAIL PROTECTED]/[EMAIL PROTECTED]/[EMAIL PROTECTED] c6t30d0s0 SP
B0 active alive 0
0
2306 [EMAIL PROTECTED]/[EMAIL PROTECTED]/[EMAIL PROTECTED] c6t31d0s0 SP
B1 active alive 0
0
Pseudo name=emcpower4a
Logical device ID=6006016014961600625987643E38DB11 [LUN 815]
state=alive; policy=CLAROpt; priority=0; queued-IOs=0
Owner: default=SP B, current=SP B
==============================================================================
---------------- Host --------------- - Stor - -- I/O Path - -- Stats
---
### HW Path I/O Paths Interf. Mode State Q-IOs
Errors
==============================================================================
2306 [EMAIL PROTECTED]/[EMAIL PROTECTED]/[EMAIL PROTECTED] c6t30d1s0 SP
B0 active alive 0
0
2306 [EMAIL PROTECTED]/[EMAIL PROTECTED]/[EMAIL PROTECTED] c6t31d1s0 SP
B1 active alive 0
0
Thanms in advance.
Sj
