Article View: pl.comp.lang.perl
Article #396Re: Dostep do tekstu
From: Piotr Piatkowski
Date: Mon, 30 Jun 1997 13:39
Date: Mon, 30 Jun 1997 13:39
27 lines
1675 bytes
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-mailReferences:
<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