Kako v Perlu insertat text v file?

Ce imas v datoteki samo eno vrstico za zamenjevati, ti sploh ni potrebno pisati skripte. V glavnem daj nek html komentar na zacetek vrstice npr

<!-- start -->

ki naj se nadaljuje s kodo. Kasneje samo zamenjas vrstico z startnim komentarjem in novo kodo. Kar v ukazni vrstici bi to zgledalo takole:

perl -pi -e 's/startni_komentar .*/startni_komentar moja koda/' *.html

perl ti bo tako zamenjal vrstico v vsaki .html datoteki v direktoriju.

Uporabis isto foro kot prej (s///), s tem da v skripti odpres filet za branje (FILET,"$poti_in_ime_fileta")preberes vsebino v nek array @array=<FILET>;, zapres filet, v arrayu zamenjas kar pac imas za zamenjat, odpres datoteko za pisanje open(FILET,">$poti_in_ime_fileta") vanj zapises spremenjeni array print FILET @array in fajl zapres. Lahko pa uporabis zacasno datoteko in sproti beres iz originalne in pises v zacasno (sparas z ramom). Obstajajo tudi finte s -p in -i stikali, sicer pa ti priporocam da si preberes kako se dela s fileti v Perlovi kuharici - Perl Cookbook