Re: Extract Data Between Lines

[LanX]

TIMTOWTDI :)

use warnings;
use strict;
use Data::Dump;

my $h;
my @a;
while(<DATA>) {
  if (/^object (.*)/) {
    if ($h) {
      push @a,$h;
      undef $h;
    }
    $h->{object}=$1;
  }
  $h->{host}        = $1 if /^\s+host (.*)/;
  $h->{description} = $1 if /^\s+description (.*)/;
}

push @a,$h if $h;

dd \@a;

  

__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