How would you open a file, and replace all occurances of a phrase with another phrase, and save the file?
thanks,
Nicholas
------------------
thanks,
Nicholas
------------------
One method is to read, substitute then overwrite.
if ($flock eq "y") {
flock RFILE, 2;
}
@file=<RFILE>;
close (RFILE);
foreach $line (@file) {
if ($line=~ s/your existing phrase here/your new phrase here/g) {
}
}
open (WFILE, ">path to your file") or &error("Unable to write your file");
if ($flock eq "y") {
flock WFILE, 2;
}
print WFILE @file;
close (WFILE);
[This message has been edited by Dave (edited July 16, 1999).]
Code:
open (RFILE, "<path to your file") or &error("Unable to read your file"); if ($flock eq "y") {
flock RFILE, 2;
}
@file=<RFILE>;
close (RFILE);
foreach $line (@file) {
if ($line=~ s/your existing phrase here/your new phrase here/g) {
}
}
open (WFILE, ">path to your file") or &error("Unable to write your file");
if ($flock eq "y") {
flock WFILE, 2;
}
print WFILE @file;
close (WFILE);
[This message has been edited by Dave (edited July 16, 1999).]
Jul 16, 1999, 11:24 PM
User (207 posts)
Jul 16, 1999, 11:24 PM
Post #4 of 5
Views: 3525
CEGlobe,
I already wrote this script
http://find.virtualave.net/00/
Regards,
Pasha
------------------
find.virtualave.net
I already wrote this script
http://find.virtualave.net/00/
Regards,
Pasha
------------------
find.virtualave.net
Jul 17, 1999, 8:41 AM
User (187 posts)
Jul 17, 1999, 8:41 AM
Post #5 of 5
Views: 3503
I just tried it and it didn't work. It just kep saying website found, and then it said cannont find server.
------------------
[This message has been edited by CEGlobe (edited July 17, 1999).]
------------------
[This message has been edited by CEGlobe (edited July 17, 1999).]