Help with Perl Script

Advanced Find/Replace CGI Application

[CustomFit]

Does anyone have quick pointers on how to write a small Perl script to run on a linux server that'll address some advanced find & replace functions inside document(s) source code?

Here is what I'm trying to do. We'll call the Perl cgi script "engine" in this explanation.

If engine finds a file name ending in *.asp (inside the HTML source code, of course), the engine will rewrite it as *.aspex.

In addition, when engine finds a file name ending in *.asp, it will also adding a predefined line of code ("/newdir/") inside the HTML source code, provided they're all inside an anchor.

Another way to visualize the concept:

Current:

<a href="/index.asp">Link</a>

New:

<a href="/newdir/index.aspex">Dir Link</a>

Thanks in advance!

[IanKelley]

Look into regular expressions, you'll find endless info if you do a search.

[SeanW]

OTTOMH (untested):

perl -p -i.bak -e 's/(href=\")(.*?asp)\"/$1\/newdir$2ex\"/g' *.asp

Then rename the files yourself (assuming you're using Windows, I think ren *.asp *.aspex will do it.

Sean