Perl String Replacing
Posted on 2004-04-20
This is probably so simple that I'll kick myself...
I need a small Perl script which does the following:
Check if Lotus Notes 6 exists (check for existence of Notes.ini in C:\Program Files\Lotus\Notes\)
If not then check for existence of Notes.ini in C:\Lotus\Notes
Open Notes.ini file
See if a line similar to the following exists in the file:
(unfortunately the path in this line could have several variations)
If the line exists modify SiebelMemo.nsf to Siebel7Memo.nsf
If the line doesn't exists then add a line at the end of the file:
I know I need to use either s/foo/bar/ or m/foobar/ or grep or something but my mind is blank and I can't seem to get it into gear. Any help much appreciated!!!