Re: perl script to search and replace comment in .aspx file

[temporal]

in reply to perl script to search and replace comment in .aspx file

You could slurp the file and do a greedy regex substitution over it.

use strict;

my $delim = $/;
$/ = '';
my $file = <DATA>;
$/ = $delim;

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

print $file;

__DATA__
<script type="java/js">
foobie bletch
</script>
<%-- <script>
zelgo mer
</script> -->

[hector89]

this code not working temporal..:(..

[Corion]

You might tell us how the code fails for you, and on what input, and what output you get.

[hector89]

__DATA__ <script type="java/js"> foobie bletch </script> <%-- <script> zelgo mer </script> --> input is same as temporal used.but when i'm executing this code it's not able to make changes in file.i'm using .txt file