🚀 go-pugleaf

On 05.08.2009, Thorvald wrote:
> Witam serdecznie.
>
> Chcialem poprosic o pomoc w wyszukaniu rozwiazania w jaki sposob
> wyswietlic zawartosc strony przy uzyciu perla, zawartosc ktora bedzie
> predefiniowana. Moze nie jasno sie wyrazam, ale powiedzmy mam strone
> www, ktora ma konstrukcje dosc prosta i potrzebuje z niej wyciagnac
> wszystkie linijki kodu ktore zawieraja jakies slowo.... powiedzmy ze
> jest to slowo "test".
[...]
>        my $content = $mech->content;
>       $content =~ /test/;
>         print $content;
>
> Problem polega na tym, ze wyswietlana jest cala zawartosc strony, a
> nie tylko ta jedna linia zawierajaca to czego szukam.

Dziwisz sie? Poprosiles o sprawdzenie czy w $content jest slowo "test";
wynik sprawdzenia cie nie obszedl (nie uzyles go do niczego), a potem
wypisujesz zawartosc zmiennej $content. Nie widze tu ani slowa
o wypisaniu *linijki* ani o wypisaniu jesli warunek jest spelniony.

Czasem warto zrozumiec kod ktory sie pisze.

-- 
Stanislaw Klekot

On 5 Sie, 12:51, "Stachu 'Dozzie' K."
<doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
> Dziwisz sie? Poprosiles o sprawdzenie czy w $content jest slowo "test";
> wynik sprawdzenia cie nie obszedl (nie uzyles go do niczego), a potem
> wypisujesz zawartosc zmiennej $content. Nie widze tu ani slowa
> o wypisaniu *linijki* ani o wypisaniu jesli warunek jest spelniony.
>
> Czasem warto zrozumiec kod ktory sie pisze.

Naiwnie myslalem ze:
my $content = $mech->content;
$content =~ /test/;
print $content;

"podzieli" $content na linie zawierajace slowo test i wypisze mi to co
chcialem.

Zrobilem cos takiego:

Z tego co rozumiem swoj problem, to polega on na tym ze nie za bardzo
potrafie zaimplementowac dodatkowej zmiennej, ktora by zczytywala
tylko to co pasuje (jakas tablica czy cos...), bo nawet:

if ($content =~ /test/)
{ print $content };

wypisze mi cala zawartosc, bo przeciez warunek jest spelniony.

Mam w glowie sposob, jednak pojawia sie chyba brak umiejetnosci
programowania zeby to napisac tak ladnie jak mam to poukladane w
glowie.

Jakies wskazowki ?

>
> --
> Stanislaw Klekot

Pozdrawiam i dziekuje za pomoc,

TH

On 05.08.2009, Thorvald wrote:
> On 5 Sie, 12:51, "Stachu 'Dozzie' K."
><doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
>> Dziwisz sie? Poprosiles o sprawdzenie czy w $content jest slowo "test";
>> wynik sprawdzenia cie nie obszedl (nie uzyles go do niczego), a potem
>> wypisujesz zawartosc zmiennej $content. Nie widze tu ani slowa
>> o wypisaniu *linijki* ani o wypisaniu jesli warunek jest spelniony.
>>
>> Czasem warto zrozumiec kod ktory sie pisze.
>
> Naiwnie myslalem ze:
> my $content = $mech->content;
> $content =~ /test/;
> print $content;
>
> "podzieli" $content na linie zawierajace slowo test i wypisze mi to co
> chcialem.
>
> Zrobilem cos takiego:
>
> Z tego co rozumiem swoj problem, to polega on na tym ze nie za bardzo
> potrafie zaimplementowac dodatkowej zmiennej, ktora by zczytywala
> tylko to co pasuje (jakas tablica czy cos...), bo nawet:
>
> if ($content =~ /test/)
> { print $content };
>
> wypisze mi cala zawartosc, bo przeciez warunek jest spelniony.

Ale i tak juz jest postep. A teraz pomysl tak: bierzesz $content,
dzielisz na linie i dla kazdej linii sprawdzasz czy zawiera slowo
"test".

> Mam w glowie sposob, jednak pojawia sie chyba brak umiejetnosci
> programowania zeby to napisac tak ladnie jak mam to poukladane w
> glowie.

Jesli nie umiesz tego zapisac jako kod (czy pseudokod), to chyba znaczy
ze jednak nie masz tego poukladanego.

-- 
Stanislaw Klekot

On 5 Sie, 13:58, "Stachu 'Dozzie' K."
<doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
> Ale i tak juz jest postep. A teraz pomysl tak: bierzesz $content,
> dzielisz na linie i dla kazdej linii sprawdzasz czy zawiera slowo
> "test".
my $content = $mech->content;
       my @array = split (/ /, $content);
        foreach my $array (@array)
        {
            if ( $array =~ /test/ )
            {
            print $array;
            }
        }

Ladnie ? :)

> --
> Stanislaw Klekot

Dziekuje i pozdrawiam,
TH

On 05.08.2009, Thorvald wrote:
> On 5 Sie, 13:58, "Stachu 'Dozzie' K."
><doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
>> Ale i tak juz jest postep. A teraz pomysl tak: bierzesz $content,
>> dzielisz na linie i dla kazdej linii sprawdzasz czy zawiera slowo
>> "test".
> my $content = $mech->content;
>        my @array = split (/ /, $content);
>         foreach my $array (@array)
>         {
>             if ( $array =~ /test/ )
>             {
>             print $array;
>             }
>         }
>
> Ladnie ? :)

No widzisz, od razu lepiej. Tylko ty akurat chciales wiersz po wierszu,
a dzielisz na spacjach.

-- 
Stanislaw Klekot

On 5 Sie, 14:27, "Stachu 'Dozzie' K."
<doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
> No widzisz, od razu lepiej. Tylko ty akurat chciales wiersz po wierszu,
> a dzielisz na spacjach.

To juz nie problem :). To co wkleilem to byla wersja beta hehe.
Tylko dla sprawdzenia samego algorytmu. Oczywiscie zawarlem \n w split
i dziala cudownie ;).


> --
> Stanislaw Klekot

Dziekuje Ci serdecznie.

Pozdrawiam
TH

On 05.08.2009, Thorvald wrote:
> On 5 Sie, 14:27, "Stachu 'Dozzie' K."
><doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
>> No widzisz, od razu lepiej. Tylko ty akurat chciales wiersz po wierszu,
>> a dzielisz na spacjach.
>
> To juz nie problem :). To co wkleilem to byla wersja beta hehe.
> Tylko dla sprawdzenia samego algorytmu. Oczywiscie zawarlem \n w split
> i dziala cudownie ;).

To teraz ci jeszcze podpowiem parę rzeczy.
#v+
my $content = $mech->content;
       my @array = split (/ /, $content);
        foreach my $array (@array)
        {
            if ( $array =~ /test/ )
            {
            print $array;
            }
        }
#v-

Raz, że to powinno wyglądać tak (modulo ilość spacji na wcięcia):

#v+
my $content = $mech->content;
my @array = split (/ /, $content);
foreach my $array (@array)
{
  if ( $array =~ /test/ )
  {
    print $array;
  }
}
#v-

Nierówne wcięcia bardzo utrudniają późniejsze czytanie kodu.

Dwa, że @array mogłeś sobie darować:

#v+
my $content = $mech->content;
foreach my $array (split (/ /, $content))
{
  if ( $array =~ /test/ )
  {
    print $array;
  }
}
#v-

Trzy, że mogłeś użyć zmiennej domyślnej $_:

#v+
my $content = $mech->content;
foreach (split (/ /, $content))
{
  if ( /test/ )
  {
    print $array;
  }
}
#v-

Aż wreszcie mogłeś użyć grepa i notacji postfiksowej:

#v+
print for grep { /test/ } split /\n/, $mech->content;
#v-

-- 
Stanislaw Klekot

On 6 Sie, 00:58, "Stachu 'Dozzie' K."
<doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
> To teraz ci jeszcze podpowiem parę rzeczy.
> Raz, że to powinno wyglądać tak (modulo ilość spacji na wcięcia):
> Nierówne wcięcia bardzo utrudniają późniejsze czytanie kodu.
> Dwa, że @array mogłeś sobie darować:
> Trzy, że mogłeś użyć zmiennej domyślnej $_:
> Aż wreszcie mogłeś użyć grepa i notacji postfiksowej:
> #v+
> print for grep { /test/ } split /\n/, $mech->content;
> #v-
No widzisz, jestem raczej noga z programowania szczegolnie w perlu :).
Staram sie cos tam dziergac na wlasne potrzeby a tutaj mozna sie potem
wielu rzeczy nauczyc co pokazuje Twoja ostatnia (no w sumie
przedostatnia) linijka ;). Tak czy inaczej dumny jestem z tych
kilkudziesiecu linii kodu, ktore z Twoja pomoca wydziergalem i ciesze
sie jak lysy z grzebienia ze dziala! :).

Jeszcze raz serdeczne dzieki.


> --
> Stanislaw Klekot

Pozdrawiam
TH

On 06.08.2009, Thorvald wrote:
> On 6 Sie, 00:58, "Stachu 'Dozzie' K."
><doz...@dynamit.im.pwr.wroc.pl.nospam> wrote:
>> To teraz ci jeszcze podpowiem parę rzeczy.
>> Raz, że to powinno wyglądać tak (modulo ilość spacji na wcięcia):
>> Nierówne wcięcia bardzo utrudniają późniejsze czytanie kodu.
>> Dwa, że @array mogłeś sobie darować:
>> Trzy, że mogłeś użyć zmiennej domyślnej $_:
>> Aż wreszcie mogłeś użyć grepa i notacji postfiksowej:
>> #v+
>> print for grep { /test/ } split /\n/, $mech->content;
>> #v-
> No widzisz, jestem raczej noga z programowania szczegolnie w perlu :).
> Staram sie cos tam dziergac na wlasne potrzeby a tutaj mozna sie potem
> wielu rzeczy nauczyc co pokazuje Twoja ostatnia (no w sumie
> przedostatnia) linijka ;).

Dlatego nie podalem ci tej linijki od razu, tylko najpierw sam napisales
to co chciales zeby skrypt robil. Dopiero po tym moglem sobie pozwolic
na pokazanie ulepszen (nie za duzo zmian w jednym kroku, bo istotne
rzeczy potrafia umknac).

> Tak czy inaczej dumny jestem z tych
> kilkudziesiecu linii kodu, ktore z Twoja pomoca wydziergalem i ciesze
> sie jak lysy z grzebienia ze dziala! :).

Glad to help.

-- 
Stanislaw Klekot

On Wed, 5 Aug 2009 23:58:02 +0000 (UTC), Stachu 'Dozzie' K. wrote:

> Trzy, że mogłeś użyć zmiennej domyślnej $_:
> 
> #v+
> my $content = $mech->content;
> foreach (split (/ /, $content))
> {
>   if ( /test/ )
>   {
>     print $array;
>   }
> }
> #v-

Ta wersja jest błędna :->
 
-- 
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

On 06.08.2009, Szymon Sokół wrote:
> On Wed, 5 Aug 2009 23:58:02 +0000 (UTC), Stachu 'Dozzie' K. wrote:
>
>> Trzy, że mogłeś użyć zmiennej domyślnej $_:
>> 
>> #v+
>> my $content = $mech->content;
>> foreach (split (/ /, $content))
>> {
>>   if ( /test/ )
>>   {
>>     print $array;
>>   }
>> }
>> #v-
>
> Ta wersja jest błędna :->

Coz, tak czasem bywa gdy sie za bardzo ufa kompilatorowi w glowie i nie
puszcza programu na komputerze ;)

Powinno byc:
#v+
my $content = $mech->content;
foreach (split (/ /, $content))
{
  if ( /test/ )
  {
    print;
  }
}
#v-
O ile ten kompilator nie zawodzi i tym razem ;>

Za twoja czujnosc wisze ci piwo :)

-- 
Stanislaw Klekot