Welcome to WebmasterWorld Guest from 54.156.56.73

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
posts:33
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:

Current:

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

New:

<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

joined:Oct 4, 2001
posts:1265
votes: 13


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
posts:428
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.

Sean

 

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week

Featured Threads

Free SEO Tools

Hire Expert Members