🚀 go-pugleaf

On Thu, 20 May 2010 07:34:55 +0000 (UTC), tomjas wrote:

> On Thu, 20 May 2010 06:59:41 +0000 (UTC), Stachu 'Dozzie' K. wrote:
>>
>> No to kombinuj, bo to podstawy programowania _w ogóle_.
>>
> Tos mi doradzil. Kombinuje i wymyslilem takie cos:
> 
> while (<IN>) {
>    push (@lista,$_)
>    if (/vert/) {
>       $line = pop @lista;
>       push(@plik,$line);
>    }
> }
> print @plik;
> 
> ale odnosze nieodparte wrazenie, ze jest to, delikatnie mowiac, malo
> eleganckie rozwiazanie.

Przede wszystkim to nie robi tego, co chcesz. Jak już wykonasz ten pierwszy
push, to w @lista masz na końcu *bieżącą*, nie poprzednią linię - i pop
właśnie tę linię umieści w $line, i do @plik trafi bieżąca, nie poprzednia. 

Rozwiązanie poprawne, a raczej kilkanaście jego wersji, już Ci podano, ja
tylko dodam, że jeśli chciałbyś jednak te linie mieć w tablicy, a nie tylko
wypisać, to kombinowałeś w dobrą stronę, tylko nie do końca dobrze - i to
nie jest problem z Twoją znajomością Perla, tylko z myśleniem
algorytmicznym. A można było to zrobić tak:

while (<IN>) {
  # jeśli bieżąca linia *nie* zawiera vert, to usuwamy ostatnio dopisaną
  pop @lista unless /vert/; 
  # a teraz dodajemy bieżącą  
  push @lista, $_;
}
# w tym miejscu w @lista są wyłącznie te linie, po których nastąpiło vert

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H