[perl] klein replace vraagje

[usr-local-dick]

Hoi

Ik heb een map met tig HTML files. Die zien er ongeveer zo uit:

code:

blah
blah
*******BEGIN CONTENT*******
content
*******END CONTENT*********
balh 
blah

Nou heb ik een perl ding gemaakt wat de content eruit haalt:

code:

perl -ne 'print if (/BEGIN CONTENT/) .. (/END CONTENT/)' file.html

Nou echoot hij het naar stdout, maar ik wil dat ie de html file vervangt.
Hoe zou ik dat aan kunnen pakken?

[drm]

code:

> file.html

erachter plakken lijkt me 1 van de vele opties. Maar ik kan me voorstellen dat je 't wat generieker wilt hebben, dus vertel 'ns wat meer over de context?

[kenneth]

drm, gaat niet werken. Je shell maakt nl. een leeg bestand file.html aan, en koppelt die aan de stdout, vooraleer perl gestart wordt. Perl krijgt dan een lege file om te parsen.

[drm]

kenneth:
drm, gaat niet werken. Je shell maakt nl. een leeg bestand file.html aan, en koppelt die aan de stdout, vooraleer perl gestart wordt. Perl krijgt dan een lege file om te parsen.

mja, idd Niet bij stil gestaan dat dat (kennelijk) ongebufferd gebeurt.

Maar goed, dat maakt opzich niet zoveel uit, dan kun je gewoon eerst file.html renamen naar file.html.org en dan dezelfde exercitie uitvoeren met > file.html erachter.

[BOOTZ]

in je perlscript kan je wel iets veranderen.

Perl:

open(OUTF,">outfile.html");
print OUTF "$content";
close OUTF;

dit is vrij algemeen over het schrijven van een bestand. aan je huidige print-statements kan je dus de file-handle toevoegen (dus print HANDLE "$content";), en dan krijg je het niet meer naar stdout.
om de bestaande file te vervangen kan je bijvoorbeeld een variabele bijhouden met de hele content, en die dan op het eind pas wegschrijven, als je de oude file al gesloten hebt. het wordt dan zoiets:

Perl:

$content = "";
open(INPF,"file.html");
# parse-code, elk print-statement wordt:
$content .= "parsed stuk"
close INPF;

open(OUTF,">file.html");
print OUTF "$content";
close OUTF;