Re: Help on multiline regex

my %objects;
my $object;
while (<>) {
   chomp;
   if (
      my ($object_type, $object_id) =
         /^\s*object-group\s+(\S+)\s+(\S+)/
   ) {
      $objects{$object_id} = $object = {
          type    => $object_type,
          entries => [],
      };
   }

   elsif (my ($entry) = /^\s*\S+-object\s+(.*)/) {
      push @{ $object->{entries} }, $entry;
   }
}
[download]

Comment on Re: Help on multiline regex Download Code

Replies are listed 'Best First'.
Re^2: Help on multiline regex by LanX (Saint) on Jun 01, 2011 at 18:05 UTC
better `elsif (my ($entry) = /^\s${object_type}-object\s+(.)/) {` Cheers Rolf	[reply] [d/l]
Re^3: Help on multiline regex by ikegami (Patriarch) on Jun 01, 2011 at 18:40 UTC
That should be `elsif (my ($entry) = /^\s\Q$object->{type}\E-object\s+(.)/) {` [download] but I fixed it with something simpler.	[reply] [d/l]
Re^4: Help on multiline regex by LanX (Saint) on Jun 01, 2011 at 18:50 UTC
`elsif (my ($entry) = /^\s(\S+)-object\s+(.)/)` ehm, if you match the type, $entry is the second match... fun ... untested code reviews... like freestyle rapping xD Cheers Rolf	[reply] [d/l]
Re^5: Help on multiline regex by ikegami (Patriarch) on Jun 01, 2011 at 19:17 UTC
Re^6: Help on multiline regex by Anonymous Monk on Jun 02, 2011 at 00:30 UTC