Keskustelu: Ohjelmointikysymykset: Perl: Rivin lisääminen tiedoston alkuun?

Tällä saan lisättyä rivin tiedoston loppuun:

open (TIEDOSTO, ">>$Tiedosto");
print TIEDOSTO "Uusi rivi\n";
close (TIEDOSTO);

mutta kuinka saan lisättyä uuden rivin tiedoston alkuun?

Luet tiedoston muistiin, kirjoitat lisättävän ja lopuksi koko vanhan tiedoston siihen perään.

Olisko esimerkkikoodia?

No jäi tuo käytettävä kieli vähän epäselväksi.

Perliltä toi näyttäis.

Joo kyseessä on Perl.

Ei ole Perliä hetkeen tullut koodailtua mutta jotenkin tähän tyyliin se muistaakseni menee.

open(FH, '<tiedosto.txt');
@data = ( "Lisättävä rivi\n", <FH> );
close(FH);

open(FH, '>tiedosto.txt');
print FH @data;
close(FH);