Reformat multi-line records in perl -


i have commandoutput , want extract lines , join them based on condition. opening file handle command output. below sample data.

 array (sas, unused space: 0  mb)         logicaldrive 9 (931.5 gb, raid 1, ok)        physicaldrive 6c:3:1 (port 6c:box 3:bay 1, sas, 1 tb, ok)       physicaldrive 6c:3:2 (port 6c:box 3:bay 2, sas, 1 tb, ok)  array k (sas, unused space: 0  mb)         logicaldrive 11 (931.5 gb, raid 1, ok)        physicaldrive 7c:3:5 (port 7c:box 3:bay 5, sas, 1 tb, ok)       physicaldrive 7c:3:6 (port 7c:box 3:bay 6, sas, 1 tb, ok)     unassigned        physicaldrive 7c:3:7 (port 7c:box 3:bay 7, sas, 1 tb, ok)       physicaldrive 7c:3:8 (port 7c:box 3:bay 8, sas, 1 tb, ok)   array l (sas, unused space: 0  mb)         logicaldrive 12 (931.5 gb, raid 1, ok)        physicaldrive 8c:3:5 (port 8c:box 3:bay 5, sas, 1 tb, ok)       physicaldrive 8c:3:6 (port 8c:box 3:bay 6, sas, 1 tb, ok)

what i'm trying is:

  1. remove line containing unassigned , physical drives associated it. physical drives in case 2 , 3 or more lines .

  2. join lines containing array , physical drives.

the output should this:

array (sas, unused space: 0  mb) physicaldrive 6c:3:1 (port 6c:box 3:bay 1, sas, 1 tb, ok) physicaldrive 6c:3:2 (port 6c:box 3:bay 2, sas, 1 tb, ok)  array k (sas, unused space: 0  mb) physicaldrive 7c:3:5 (port 7c:box 3:bay 5, sas, 1 tb, ok) physicaldrive 7c:3:6 (port 7c:box 3:bay 6, sas, 1 tb, ok)

as said: in case each physical drive might have 2 drives, script should work more lines containing physical drives after array.

below lines of i/p command .

smart array p410i in slot 0 (embedded) (sn: 500143802128a270)

  array (sas, unused space: 0  mb)     logicaldrive 1 (931.5 gb, raid 1, ok)    physicaldrive 2c:1:1 (port 2c:box 1:bay 1, sas, 1 tb, ok)   physicaldrive 2c:1:2 (port 2c:box 1:bay 2, sas, 1 tb, ok)

array b (sas, unused space: 0 mb)

  logicaldrive 2 (931.5 gb, raid 1, ok)    physicaldrive 2c:1:3 (port 2c:box 1:bay 3, sas, 1 tb, ok)   physicaldrive 2c:1:4 (port 2c:box 1:bay 4, sas, 1 tb, ok)

array c (sas, unused space: 0 mb)

  logicaldrive 3 (931.5 gb, raid 1, ok)    physicaldrive 3c:1:5 (port 3c:box 1:bay 5, sas, 1 tb, ok)   physicaldrive 3c:1:6 (port 3c:box 1:bay 6, sas, 1 tb, ok)

array d (sas, unused space: 0 mb)

  logicaldrive 4 (931.5 gb, raid 1, ok)    physicaldrive 3c:1:7 (port 3c:box 1:bay 7, sas, 1 tb, ok)   physicaldrive 3c:1:8 (port 3c:box 1:bay 8, sas, 1 tb, ok)

array e (sas, unused space: 0 mb)

  logicaldrive 5 (931.5 gb, raid 1, ok)    physicaldrive 4c:2:1 (port 4c:box 2:bay 1, sas, 1 tb, ok)   physicaldrive 4c:2:2 (port 4c:box 2:bay 2, sas, 1 tb, ok)

array f (sas, unused space: 0 mb)

  logicaldrive 6 (931.5 gb, raid 1, ok)    physicaldrive 4c:2:3 (port 4c:box 2:bay 3, sas, 1 tb, ok)   physicaldrive 4c:2:4 (port 4c:box 2:bay 4, sas, 1 tb, ok)

array g (sas, unused space: 0 mb)

  logicaldrive 7 (931.5 gb, raid 1, ok)    physicaldrive 5c:2:5 (port 5c:box 2:bay 5, sas, 1 tb, ok)   physicaldrive 5c:2:6 (port 5c:box 2:bay 6, sas, 1 tb, ok)

array h (sas, unused space: 0 mb)

  logicaldrive 8 (931.5 gb, raid 1, ok)    physicaldrive 5c:2:7 (port 5c:box 2:bay 7, sas, 1 tb, ok)   physicaldrive 5c:2:8 (port 5c:box 2:bay 8, sas, 1 tb, ok)

array (sas, unused space: 0 mb)

  logicaldrive 9 (931.5 gb, raid 1, ok)    physicaldrive 6c:3:1 (port 6c:box 3:bay 1, sas, 1 tb, ok)   physicaldrive 6c:3:2 (port 6c:box 3:bay 2, sas, 1 tb, ok)

array j (sas, unused space: 0 mb)

  logicaldrive 10 (931.5 gb, raid 1, ok)    physicaldrive 6c:3:3 (port 6c:box 3:bay 3, sas, 1 tb, ok)   physicaldrive 6c:3:4 (port 6c:box 3:bay 4, sas, 1 tb, ok)

array k (sas, unused space: 0 mb)

  logicaldrive 11 (931.5 gb, raid 1, ok)    physicaldrive 7c:3:5 (port 7c:box 3:bay 5, sas, 1 tb, ok)   physicaldrive 7c:3:6 (port 7c:box 3:bay 6, sas, 1 tb, ok)

unassigned

  physicaldrive 7c:3:7 (port 7c:box 3:bay 7, sas, 1 tb, ok)   physicaldrive 7c:3:8 (port 7c:box 3:bay 8, sas, 1 tb, ok)

enclosure sep (vendor id hp, model hp sas exp card) 248 (wwid: 5001438020b5cc65, box: 3)

expander 250 (wwid: 5001438020b5cc66, box: 1)

sep (vendor id pmcsiera, model src 8x6g) 249 (wwid: 500143802128a27f)

one approach take - , first though - set record separator in perl $/ , process each record regular expressions.

something maybe:

#!/usr/bin/env perl use strict; use warnings;  #set record separator linefeed followed word array.  #if place "array" occurs, linefeed superfluous.  local $/ = "\narray";  while ( <data> ) {    #remove word 'array'.     s/\s*array\s*//g;    #delete after 'unassigned' in array.     s/unassigned.*//gms;    #remove 'logicaldrive' lines.     s/.*logicaldrive.*//g;    #delete linefeeds in record    s,\n,,gms;    #tidy of spaces.    s,\s+, ,g;    s,^\s*,,g;    #print record.     print;    print "\n"; }  __data__ array (sas, unused space: 0  mb)         logicaldrive 9 (931.5 gb, raid 1, ok)        physicaldrive 6c:3:1 (port 6c:box 3:bay 1, sas, 1 tb, ok)       physicaldrive 6c:3:2 (port 6c:box 3:bay 2, sas, 1 tb, ok)  array k (sas, unused space: 0  mb)         logicaldrive 11 (931.5 gb, raid 1, ok)        physicaldrive 7c:3:5 (port 7c:box 3:bay 5, sas, 1 tb, ok)       physicaldrive 7c:3:6 (port 7c:box 3:bay 6, sas, 1 tb, ok)     unassigned        physicaldrive 7c:3:7 (port 7c:box 3:bay 7, sas, 1 tb, ok)       physicaldrive 7c:3:8 (port 7c:box 3:bay 8, sas, 1 tb, ok)  array l (sas, unused space: 0  mb)         logicaldrive 12 (931.5 gb, raid 1, ok)        physicaldrive 8c:3:5 (port 8c:box 3:bay 5, sas, 1 tb, ok)       physicaldrive 8c:3:6 (port 8c:box 3:bay 6, sas, 1 tb, ok)

Comments

Post a Comment

Popular posts from this blog

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more