Re: Match on line, read backwards to opening xml tag then forward to closing tag

[Anonymous Monk]

use Modern::Perl;

$_ = '
<Dataentry>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
</Dataentry>
<Dataentry>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
</Dataentry>
<Dataentry>
    <Data>aaaaaa</Data>
    <Data>bbbbbb</Data>
    <Data>aaaaaa</Data>
</Dataentry>
<Dataentry>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
    <Data>aaaaaa</Data>
</DataEntry>';


my ($f,@l);my $d='Dataentry';sub p {
push (@l,"$_[0]\n");$f ||= $_[0]=~
m@>bbbbbb<@s;@l = '' if ($_[0]=~
m@</$d>@s);if (($_[0]=~ m@<$d>@s)&&($f))
{pop @l;say "<$d>";print reverse @l;
say "</$d>";@l = '';$f = 0;}}
p $_ for reverse split '\n';

Who do __YOU__ know that writes regex's like that?

[Anonymous Monk]

my ($flag,@lines);

my $d='Dataentry';

sub process {

      push (@lines,"$_[0]\n");
      $flag ||= $_[0]=~ m@>bbbbbb<@s;
        @l ='' if ($_[0]=~m@</$d>@s);

      if (($_[0]=~ m@<$d>@s)&&($flag))
        {
         pop @lines;
         say "<$d>";
         print reverse @lines;
         say "</$d>";
         @lines = '';
         $flag = 0;
        }
      }

process $_ for reverse split '\n';