Welcome to WebmasterWorld Guest from

Forum Moderators: coopster & jatar k & phranque

Message Too Old, No Replies

Help with Perl Script

Advanced Find/Replace CGI Application

2:39 am on Jan 12, 2004 (gmt 0)

New User

10+ Year Member

joined:Mar 29, 2003
votes: 0

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:


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


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

Thanks in advance!

9:05 am on Jan 12, 2004 (gmt 0)

Senior Member

WebmasterWorld Senior Member 10+ Year Member Top Contributors Of The Month

joined:Oct 4, 2001
votes: 14

Look into regular expressions, you'll find endless info if you do a search.
1:49 pm on Jan 12, 2004 (gmt 0)

Preferred Member

10+ Year Member

joined:Dec 30, 2003
votes: 0

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.