8 lines
227 B
Perl
8 lines
227 B
Perl
open INFILE, "<McsDmMsg.mc";
|
|
open OUTFILE, ">OFADmMsg.mc";
|
|
while (<INFILE>)
|
|
{
|
|
$_ =~ s/Domain Migration Agent/OFA Data Gathering Agent/g;
|
|
$_ =~ s/Active Directory Migration Tool/OFA Data Gathering Tool/g;
|
|
print OUTFILE;
|
|
} |