Thanks jethro,

Will update them.

The troubling regex is $xmlBody =~ s/$CbBlkTx/$bBlkTx/xgi; within the while.

just trying to replace back the replaced result '$bBlkTx' in "$xmlBody" but its not perfoming.

I may be wrong in trying this please add some advice in this.

    #Processing BlockAmendments
    while ($xmlBody =~ m/(<BlockAmendment [^>]*>(.+?)<\/BlockAmendment
+>)/gi){
        $CbBlkTx = $1;
        $bBlkTx = $CbBlkTx;
        if ($bBlkTx =~ m/(<BlockAmendment [^>]+><P2>(.*?)<\/P2><\/Bloc
+kAmendment>)/){
            $bBlkTx =~ s/<BlockAmendment [^>]+><P2>(.*?)<\/P2><\/Block
+Amendment>/\n<lq><P2>$1<\/P2>\n<\/lq>/xgi;
            $bBlkTx =~ s/<P2><Pnumber>([^<]+)<\/Pnumber><P2para><Text>
+(.+?)<\/Text>(.*?)<\/P2para><\/P2>/\n<s1><no>($1)<\/no>\n<pt>$2<\/pt>
+$3\n<\/s1>/xgi;
            $bBlkTx =~ s/<P3><Pnumber>([^<]+)<\/Pnumber><P3para><Text>
+(.+?)<\/Text>(.*?)<\/P3para><\/P3>/\n<s2><no>($1)<\/no>\n<pt>$2<\/pt>
+$3\n<\/s2>/xgi;
            $bBlkTx =~ s/<P4><Pnumber>([^<]+)<\/Pnumber><P4para><Text>
+(.+?)<\/Text>(.*?)<\/P4para><\/P4>/\n<s3><no>($1)<\/no>\n<pt>$2<\/pt>
+$3\n<\/s3>/xgi;
            $bBlkTx =~ s/<P5><Pnumber>([^<]+)<\/Pnumber><P5para><Text>
+(.+?)<\/Text>(.*?)<\/P5para><\/P5>/\n<s4><no>($1)<\/no>\n<pt>$2<\/pt>
+$3\n<\/s4>/xgi;
        }
        $bBlkTx =~ s/<\/pt>\n<\/s([0-9])><Text>(.+?)<\/Text>/ $2<\/pt>
+<\/s$1>/xgi;
        print "$CbBlkTx\n\n=====>\n$bBlkTx\n\n";
        $xmlBody =~ s/$CbBlkTx/$bBlkTx/gi;
    }

[download]

thanks

In reply to Re^2: Help required inText manipulation by thirilog
in thread Help required inText manipulation by thirilog

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.