How's this?
#! perl -slw use strict; $/ = "\nS"; m[ Device \s Symmetrix \s Name \s+ : \s+ ( [^\n]+ ) .+? Device \s Serial \s ID \s+ : \s+ ( \d+ ) .+? KiloBytes \s+ : \s+ ( \d+ ) .+? SCSI-3 \s Persistent \s Reserve : \s+ ( \S+ ) .+? ]smx and print "name:$1\nID:$2\ncap:$3\nRes:$4" while <DATA>; __DATA__ ******** Two copies of the supplied example ************
Output:
c:\test>junk75 name:0062 (VCM) ID:6000062081 cap:5760 Res:Disabled name:0062 (VCM) ID:6000062081 cap:5760 Res:Disabled
In reply to Re: Multiple line records from a command string
by BrowserUk
in thread Multiple line records from a command string
by Preceptor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |