Re: Extract Data Between Lines


Don't ask to ask, just ask
	PerlMonks

Re: Extract Data Between Lines

by wazat (Monk)

on Apr 04, 2014 at 03:38 UTC ( [id://1081064]=note: print w/replies, xml )

Need Help??

in reply to Extract Data Between Lines

While the other suggestions are superior, you don't need to use a regex with $/

use strict; 
use warnings; 

$/ = "\nobject ";

while (<DATA>) 
{
    chomp;
    print "'$_'\n"
}

__DATA__
object network Microsoft.Lync.Host.3
 host 138.108.25.111
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.4
 host 138.108.25.112
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.5
 host 138.108.25.113
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.6
[download]

output

'object network Microsoft.Lync.Host.3
 host 138.108.25.111
 description Help Desk Ticket #476739'
'network Microsoft.Lync.Host.4
 host 138.108.25.112
 description Help Desk Ticket #476739'
'network Microsoft.Lync.Host.5
 host 138.108.25.113
 description Help Desk Ticket #476739'
'network Microsoft.Lync.Host.6
'
[download]

The first record needs to be massaged since object isn't preceded by a newline.