Dotaz: Perl - zapis na zacatek souboru

[pasmen]

Zdravim,
mam skript v Perlu ktery jeden soubor cte, zpracovava a vysledek zapisuje do jineho souboru. Na konci zpracovani potrebuji na zacatek vystupniho souboru zapsat nejaka data zavisejici na tom, co ctu ze vstupniho souboru. Kdyz pouziju

seek(HANDLE, 0, 0)

tak se mi data na zacatku prepisi. Nevi nekdo jak to vyresit? Dik

Odpovědi

[unchallenger]

Piš výsledky do pomocného souboru a na závěr vytvoř definitivní výsledek, kam nejprve zapíšeš to, co mý být na začátku. Pokud ten výstup není opravdu gigantický, tak je to nejepší řešení. Kdybys věděl, kolik místa si máš na začátku vynechat, tak bys mohl použít seek, a tedy se asi takhle neptal, takže předpokládám, že to nevíš.

[pasmen]

Kolik mista si nechat vazne predem nevim, jenom zhruba (0-500 kB, navic formatovaneho textu). Prave to co jsi navrhl se mi delat nechce, vystup ma radove 100 MB. Myslel jsem jestli to nejde nejak lip.

[unchallenger]

Opravit program, co čte ten výstup, aby ho četl ze svou souborů? ;-)

[unchallenger]

@#$%!

s/svou/dvou/

[pasmen]

Tu moznost prakticky nemam nebot jsem ho ja nenapsal a spoustim ho na pocitaci kde nemam prava ho upravit.

[ivast]

Pracujes nad skutocnym suborom, alebo presmeruvas STDOUT ? pretoze zariadenia, rury a sokety nevedia seek. pripadne po 'seek HANDLE' skus 'tell HANDLE'.