in reply to Replacing one string with another string

I don't know what type of a file .inf is, but it should be rather easy today, using the split command. Doing something like this: 
open(DATA,"file.inf"); #opens file
@array = <DATA>; #assigns data to an array
close(DATA); #closes the file
@array =~ s/Name/Fullname/g; #substitutes Name with Fullname throughou
+t the file
open(DATA,">file.inf"); #opens file for writing
print DATA @array; #prints data to the file
close(DATA); #closes the data

[download]

- p u n k k i d
"Reality is merely an illusion, albeit a very persistent one." -Albert Einstein

Replies are listed 'Best First'.
RE: Re: Replacing one string with another string
by maverick (Curate) on Aug 18, 2000 at 06:52 UTC
    =~ doesn't operate on arrays (at least not in 5.005) 
    @a = ("one","two","three");
@a =~ s/[oe]/_/g;
print join("\n",@a),"\n";

    [download]
    yields a compilation error 
    Can't modify array deref in substitution at t.pl line 2, near "s/[oe]/
+_/g;"

    [download]
    open(DATA,"file.inf") || die "can't open: $!";
local  $/;      # make a local copy of $/ so we don't trample other fi
+lehanles
undef $/;       # undef it
$file = <DATA>; # so we can slurp up the whole file in one bang
$file =~ s/Name/Fullname/g;

    [download]
    is probably more what like what you were aiming at. But merlyn's (excellent as always) solution is the one I'd end up using.

    /\/\averick

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom