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

#!/usr/bin/perl 
my $file_name = "test.txt";
my @aspxfiles=glob('.*aspx');
foreach $file(@aspxfiles)
{

   open(INF,$file) || die "file could not open\n";
my @line;
while(@line = <INF>) {

        if ( $line =~ s/<\/script/<\%\-\-<script/g) {
               open(INF,'>>$file_name') || die "could not open in writ
+e mode";
                
                close(INF);
        } 
        close(INF);
}
}
[download]

this is partial coding which i tried.i'm very weak in scripting language

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

Replies are listed 'Best First'.
Re^3: perl script to search and replace comment in .aspx file by aaron_baugher (Curate) on Jun 07, 2012 at 17:29 UTC
You are going line-by-line through each file and replacing the string `</script` with the string `<%--<script` . I don't know aspx, but I suspect that's not quite what you want. It seems more likely that your opening comment tag would come before your `<script>` tag, and a closing one after your `</script>` tag, but you'll have to show us some sample data to know for sure. If that's successful, you open a file for appending, but you never write anything to it, and you never write your changed `$line` anywhere. Presumably you want to write it to a file, and perhaps move that file into the place of the original? ADDED: One more thing: by using single quotes around your output filename, you prevent interpolation, so you will open a file named `$file_name`, not `test.txt`. Aaron B. Available for small or large Perl jobs; see my home node.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: perl script to search and replace comment in .aspx file
by aaron_baugher (Curate) on Jun 07, 2012 at 17:29 UTC

You are going line-by-line through each file and replacing the string </script with the string <%--<script . I don't know aspx, but I suspect that's not quite what you want. It seems more likely that your opening comment tag would come before your <script> tag, and a closing one after your </script> tag, but you'll have to show us some sample data to know for sure.

If that's successful, you open a file for appending, but you never write anything to it, and you never write your changed $line anywhere. Presumably you want to write it to a file, and perhaps move that file into the place of the original?

ADDED: One more thing: by using single quotes around your output filename, you prevent interpolation, so you will open a file named $file_name, not test.txt.

Aaron B.
Available for small or large Perl jobs; see my home node.

[reply]
[d/l]
[select]