T
Troll
Hi,
This is what I have:
#!/usr/bin/perl -w
use strict;
sub replace {
s/one/two/;
}
open (INFILE, "ARGV[1]") || etc...
while (<INFILE>) {
replace ();
print $_;
}
but the file contents do not get replaced from one to two. Any hints?
This is what I have:
#!/usr/bin/perl -w
use strict;
sub replace {
s/one/two/;
}
open (INFILE, "ARGV[1]") || etc...
while (<INFILE>) {
replace ();
print $_;
}
but the file contents do not get replaced from one to two. Any hints?