Get Perl here, if you don't have it yet:
The following Perl modules are necessary for this source to work (Perl complained to me about needing them):
Rule.pm
- download it from http://search.cpan.org/src/RCLAMP/File-Find-Rule-0.28/lib/File/Find/Rule.pm
- put it in the directory C:\Perl\lib\File\Find
Compare.pm
- download it from http://search.cpan.org/src/RCLAMP/Number-Compare-0.01/Compare.pm
- put it in the directory C:\Perl\lib\Number
Glob.pm
- download it from http://search.cpan.org/src/RCLAMP/Text-Glob-0.06/lib/Text/Glob.pm
- put it in the directory C:\Perl\lib\Text
REM First parameter: directory where the .WIKI / .AWIKI files are REM Second parameter: the string to replace (watch out, regular expressions!) REM Third parameter: The string to replace with (watch out, regular expressions!) REM --------------- REM example: REM perl SearchReplace.pl C:\\temp\\WikiBases\\MyWiki 001d043702\/helpdesktest helpdeskbase REM --------------- pause
#-------------------------------
# This Perl script is made to help with the transfer of .WIKI / .AWIKI files to a webserver
# with a different name. It Replaces a text with another text. This is handy to replace links in the .WIKI files that point to a different webserver.
# Make a backup of the files you want to replace first!
# Arguments:
# 1: directory where the .WIKI / .AWIKI files are
# 2: the string to replace (watch out, regular expressions!)
# 3: The string to replace with (watch out, regular expressions!)
#
# NOTE: The filedate / time is preserved by this script (otherwise the "Recent Changes" list will be useless)
#-------------------------------
# License Statement
# Feel free to use this sourcecode for personal or commercial purposes.
# The Software comes "as is", with no warranties. None whatsoever. This means
# no express, implied or statutory warranty, including without limitation, warranties
# of merchantability or fitness for a particular purpose or any warranty of title or
# non-infringement. The author will not be liable for any damages, either indirect, special, consequential,
# or incidental related to the Software.
#
# Author: WouterCX
# Date: 09-09-2004
#-------------------------------
use File::Find::Rule;
use File::stat;
use Time::localtime;
#-------------------------------
# get arguments from commandline
#-------------------------------
### first argument = directory where the wiki's are
$path = shift(@ARGV);
### second argument = old text
$oldtext = shift(@ARGV);
### third argument = new text
$newtext = shift(@ARGV);
@files = File::Find::Rule->file()
->in("$path");
foreach $filename (@files)
{
## Does the filename end with .wiki or .awiki?
if ($filename =~ /\.wiki$|\.awiki$/)
{
print "$filename \n";
## Store the file date / time
$store_date = stat($filename)->mtime;
## Open the file
open (IN, "$filename") || die $!;
## print the modified contents to .bak file
open (OUT, ">$filename.bak") || die $!;
while ($_ = <IN> ) {
## If text exists, replace text
## Search = case insensitive
if ($_ =~ /$oldtext/i) {
# Replace text, all instances on a line (/g), case insensitive (/i)
$_ =~ s/$oldtext/$newtext/gi;
}
print OUT "$_";
}
close (OUT);
close (IN);
} # if ($filename =~ /\.wiki|\.awiki/)
## copy the modified .bak file contents to the original file,
## thereby overwriting the original
rename("$filename.bak","$filename") || die $!;
### modify file date / time back to original
### first parameter = accessed time, second parameter = modified time, third parameter = filename
utime $store_date, $store_date, $filename;
} #foreach $filename (@files)
Back to FlexWikiTools