Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

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

by stevieb (Hermit)
on Jun 07, 2012 at 16:26 UTC ( #974984=note: print w/ replies, xml ) Need Help??


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

Please share with us what you have tried.


Comment on Re: perl script to search and replace comment in .aspx file
Re^2: perl script to search and replace comment in .aspx file
by hector89 (Novice) on Jun 07, 2012 at 16:53 UTC
    #!/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); } }

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

      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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://974984]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (12)
As of 2014-10-02 15:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (64 votes), past polls