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

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> -->
[download]

^{Strange things are afoot at the Circle-K.}

Comment on Re: perl script to search and replace comment in .aspx file Download Code

Replies are listed 'Best First'.
Re^2: perl script to search and replace comment in .aspx file by hector89 (Novice) on Jun 08, 2012 at 05:54 UTC
this code not working temporal..:(..	[reply]
Re^3: perl script to search and replace comment in .aspx file by Corion (Patriarch) on Jun 08, 2012 at 06:00 UTC
You might tell us how the code fails for you, and on what input, and what output you get.	[reply]
Re^4: perl script to search and replace comment in .aspx file by hector89 (Novice) on Jun 08, 2012 at 06:15 UTC
__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	[reply]
Re^5: perl script to search and replace comment in .aspx file by Corion (Patriarch) on Jun 08, 2012 at 06:39 UTC
Re^6: perl script to search and replace comment in .aspx file by stevieb (Canon) on Jun 08, 2012 at 07:24 UTC
Re^6: perl script to search and replace comment in .aspx file by hector89 (Novice) on Jun 08, 2012 at 09:25 UTC
Some notes below your chosen depth have not been shown here
Re^6: perl script to search and replace comment in .aspx file by hector89 (Novice) on Jun 08, 2012 at 11:24 UTC
Some notes below your chosen depth have not been shown here

In Section Seekers of Perl Wisdom