[perl] basic array vraagje maar kom er niet uit

[usr-local-dick]

Hoi

Ik wil in een aantal files een string replacen.
De filenames zitten in een array.
Dus dacht ik:

code:

#!/usr/bin/perl
@files = ('/tmp/test', '/tmp/test2', '/tmp/test3');

foreach $file (@files) {
        print "Changing $file...\n";
        perl -pi 's/foo/bar/g' $file;
}

Maar dan krijg ik:

Scalar found where operator expected at ./replace.pl line 6, near "'s/foo/bar/g' $file"
(Missing operator before $file?)


Ik doe echt mijn best om te begrijpen wat er mis gaat maar helaas

[Verwijderd]

Eerst de hele file openen en dan de replace uitvoeren

code:

open(FILE, $file) or die "Unable to open file $file\n";
while (<FILE>)
{
    $line=$_;
    $line=~s/foo/bar/g;
}           
close(FILE);

[ Voor 106% gewijzigd door Verwijderd op 22-09-2004 12:51 ]

[JaWi]

Of in een keer:

code:

perl -i.bak -pe "s/foo/bar/g" <file1> <file2> <file3>

Krijg je nog mooie backups van je oude bestanden ook :-)

[Verwijderd]

Zoek eens naar "regular expressions". deze zijn daar uitermate geschikt voor!

[usr-local-dick]

Verwijderd schreef op 22 september 2004 @ 12:46:
Eerst de hele file openen en dan de replace uitvoeren

code:

open(FILE, $file) or die "Unable to open file $file\n";
while (<FILE>)
{
    $line=$_;
    $line=~s/foo/bar/g;
}           
close(FILE);

Als ik die doe gebeurt er niks??
Moet er niet ergens gewrite worden?
Heb wederom 3 uur gezocht en 100 keer allerlei dingen geprobeerd maar nog steeds werkt het niet

[Verwijderd]

Bij mij lukt het volgende commando op de prompt:

perl -pi -e"s/name/naam/g" <file1> <file2> ....

(op HP-UX perl versie 5.6.1 en 5.005_02)

Om dit in een script te gooien lukt mij niet.

edit:

Door gebruikt te maken van
system("perl -pi -e's/iets/anders/g' <file>");
is het me wel gelukt.

[ Voor 30% gewijzigd door Verwijderd op 22-09-2004 16:35 ]

[bRight]

ff bufferen:

code:

open(FILE, $file) or die "Unable to open file $file\n";
while (<FILE>)
{
    $line = $_;
    $line =~ s/foo/bar/g;
    $buffer .= $line;
}            
close(FILE);

unlink($file);

open(FILE, ">$file") or die "Unable to open file $file\n";
print FILE $buffer;
close(FILE);

edit:

vergeet niet die buffer te flushen als je dit in een loop met meerdere files gooit

[ Voor 21% gewijzigd door bRight op 22-09-2004 18:27 ]