🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #396

Re: Dostep do tekstu

#396
From: Piotr Piatkowski
Date: Mon, 30 Jun 1997 13:39
27 lines
1675 bytes
Marcin Sperka <marcins@kamsoft.com.pl> wrote:
: Dzieki za pomoc, ale takie rozwiazanie dziala pod warunkiem ze otwieram
: plik do odczytu. Co zrobic zeby dzialalo przy pliku otwieranym do
: dopisania (>>)?

Da się, ale w prosty sposób nie. (musiałbyś użyć funkcji tie - jeżeli
chcesz się w to zagłębiać - i stworzyć obiekt który byłby 
odwzorowaniem pliku na dysku, a zmiany w nim powodowały zmiany w 
pliku).

Natomiast najprościej (i najoptymalniej) będzie chyba najpierw plik wczytać

@linie = <FILE>;

potem zmodyfikować co trzeba, a potem zapisać przez:

open(FILE,">nowy_plik") or die "open: $!";
print FILE join "", @linie;
close(FILE);

Chyba że chodzi Ci o coś innego, to wyjaśnij :-)

P.S. Nie pamiętam czy wczytanie do tablicy zachowuje znaki końca 
     linii, chyba tak, ale jeżeli nie, to trzeba użyć join "\n", @linie;

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND
Technical Details
Message-ID: <5p8cur$h1f$1@galaxy.uci.agh.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!ict.pwr.wroc.pl!agh.edu.pl!agh.edu.pl!not-for-mail
References: <33AA68EF.EAFBFDA4@kamsoft.com.pl> <5oduii$h5s$1@helios.man.lublin.pl> <33B7479F.6378A887@kamsoft.com.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!ict.pwr.wroc.pl!agh.edu.pl!agh.edu.pl!not-for-mail
From: kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski)
Newsgroups: pl.comp.lang.perl
Subject: Re: Dostep do tekstu
Date: 30 Jun 1997 15:39:39 +0200
Organization: University of Mining & Metallurgy
Lines: 27
Message-ID: <5p8cur$h1f$1@galaxy.uci.agh.edu.pl>
References: <33AA68EF.EAFBFDA4@kamsoft.com.pl> <5oduii$h5s$1@helios.man.lublin.pl> <33B7479F.6378A887@kamsoft.com.pl>
NNTP-Posting-Host: galaxy.uci.agh.edu.pl
Mime-Version: 1.0
X-Newsreader: TIN [UNIX 1.3 unoff BETA 970307; sun4m SunOS 5.5.1]
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit