🚀 go-pugleaf

Marcin Sperka <marcins@kamsoft.com.pl> wrote:
> Mam pytanie: Czy za pomoca Perla mozna szybko przyporzadkowac kolejnym
> zmiennym poszczegolne linie w pliku tekstowym. Mialoby to robic cos
> takiego:
> -otwierma plik tekstowy
> -tworze tablice i jako kolejne elementy wprowadzam linie tekstu,
> - tworze inny plik na podstawie danych z pierwszego, ale z tym to juz
> sobie jakos poradze. Probowalem z odczytem do tablicy @test=<PLIK>, ale
> nie pozwala w ten sposob dostac sie do konkretnej linii, np. 3

$linia_nr_3 = $test[2];

HTH, Pedro

-- 
Maciej "Pedro" Jastrzebski                  pedro@golem.umcs.lublin.pl

"As the people here grow colder / I turn to my computer
And spend my evenings with it / Like a friend."
                                     Kate Bush, "Deeper Understanding"

> > Mam pytanie: Czy za pomoca Perla mozna szybko przyporzadkowac
> kolejnym
> > zmiennym poszczegolne linie w pliku tekstowym. Mialoby to robic cos
> > takiego:
> > -otwierma plik tekstowy
> > -tworze tablice i jako kolejne elementy wprowadzam linie tekstu,
> > - tworze inny plik na podstawie danych z pierwszego, ale z tym to
> juz
> > sobie jakos poradze. Probowalem z odczytem do tablicy @test=<PLIK>,
> ale
> > nie pozwala w ten sposob dostac sie do konkretnej linii, np. 3
> 
> $linia_nr_3 = $test[2];
> 
> Maciej "Pedro" Jastrzebski                  pedro@golem.umcs.lublin.pl
> 
Dzieki za pomoc, ale takie rozwiazanie dziala pod warunkiem ze otwieram
plik do odczytu. Co zrobic zeby dzialalo przy pliku otwieranym do
dopisania (>>)?

Pozdrawiam
-- 
Marcin Sperka
KAMSOFT
Katowice
POLAND
mailto:marcins@kamsoft.com.pl

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