I didn't know about YAPE. Nifty module. Thanks Corion, always seem to stumble into something new from reading your posts =)

hector89, be sure to take some time to understand the code in all these replies it will help you write your own solution next time!

This should do what you want:

use strict;


open my $input_fh, '<', 'your_input.aspx';
my $delim = $/;
$/ = '';
my $file = <$input_fh>;
$/ = $delim;
close $input_fh;

$file =~ s/(<%--)?\s*<script(.*?)>/($1 ? '' : "\n<%-- ") . "<script$2>
+"/ige;
$file =~ s=</script>\s*(-->)?='</script>' . ($1 ? '' : " -->\n")=ige;

print $file;

open my $output_fh, '>', 'your_output.aspx';
print $output_fh $file;
close $output_fh;

[download]

Forgot to turn off greedy matching for the script attributes group in my first post, which might be why you were having issues with input that's all on one line.

Strange things are afoot at the Circle-K.

In reply to Re^7: perl script to search and replace comment in .aspx file by temporal
in thread perl script to search and replace comment in .aspx file by hector89

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.