zapis na zacatek souboru

[Roztocil Bohuslav]

Načíst celý soubor do pole, vložit text kam chci a zapsat pole
do stejného souboru. Třeba takto:

   my $soubor = "D:/adresar/soubor.txt";
   my @soubor;
   my @begin = (
     "Tohle všechno přijde na začátek\n",
     "\n",
     localtime() . "\n",
     "\n",
     ('=' x 72) . "\n",
   );
   my @middle = (
     ('-' x 72) . "\n",
     "... a tohle za desátý řádek...\n",
     ('-' x 72) . "\n",
   );

   open F, "<$soubor";
   my @pole = <F>;
   close F;

   unshift @pole, @begin;
   splice @pole, 10, 0, @middle;

   open F, ">$soubor";
   print F @pole;
   close F;

Pak je tu ještě spouštěcí option '-i' (in-place editing), ale to
jsem nikdy nezkoušel - viz 'perlrun'.

Bob

-----Original Message-----
From: daemon na pandion.vslib.cz [mailto:daemon na pandion.vslib.cz]On Behalf
Of cernik na nemcb.cz (Tomas Cernik)
Posted At: Monday, May 17, 1999 5:29 PM
Posted To: cz.comp.lang.perl
Conversation: zapis na zacatek souboru
Subject: zapis na zacatek souboru


Prijemne odpoledne.

Jde prosim vas nejakym zpusobem zapsat neco na zacatek nebo doprostred
souboru, bez toho ze bych to presypaval do jineho souboru?
Mam na mysli otevreni souboru a na danou pozici zapis tak aby se puvodni
text posunul dolu.
Dekuji
--------------------------------
Tomas "Pavouk" Cernik
Nemocnice C. Budejovice
mailto:cernik na nemcb.cz
http://www.nemcb.cz/pavouk.html
--------------------------------------------------------------
Linux is like a wigwam - no windows, no gates, apache inside!
--------------------------------------------------------------