[Perl] Kurs Perl - cz.2 - podstawy dobrego stylu, zmiene - c.d., petle...

[hedVB]

Czyli wychodzi na to że jedyny praktyczny błąd jaki popełniłem to zła kolejność

use strict;
my $imie='hedvb';
my $bonus='(oprocz hashow)';
my $l=-1;

sub pokaz { print "$imie wszystko rozumie $bonus ;P - mozemy leciec dalej :)\n" }

foreach $l (-1..15) {
	$l++;
	if ($l == 0) { print "zero\n" } 
	elsif ($l <=5) { print "malo\n" } 	
	elsif ($l <=10) { print "sredno\n" }
	elsif ($l <=15) { print "duzo\n" }
}
	pokaz;

[TQM]

Wszystko gra, tylko $l++ nie ma tu sensu/zastosowania... jak petla dojdzie do konca, $l bedzie mialo przypisana kolejna wartosc z podanego zakresu...

1. $l=-1, $l++ (daje 0), dostajemy tekst zero
2. $l=0, $l++ (1), dostajemy 'malo'
...
17. $l=15, $l++ (16) - nie dostajemy nic...

dodaj teraz za wszystkimi elsif'ami linie:

else { print "ZA DUZO\n" }

to zobaczysz gdzie przelatujesz poza licznik.

Generalnie kod jest sprawny i nie ma sie do czego przyczepic, poza tym ze nieco zaciemnia sprawe. Proponowalbym sie nie przyzwyczajac do takiego pisania bo pozniej na debugowaniu kodu masa czasu schodzi hihi.

P.S.
Wstawianie tabulacji na poczatku linii nie ma znaczenia dla kodu (jak w pythonie) - sluzy jedynie do poprawy czytelnosci programu.

W nastepnej czesci zanim dojdziemy do regex'ow pokaze jeszcze jak mozna latwo wyswietlac dluzsze teksty a po regexach pokaze jak mozna robic ladnie formatowane tekstowe raporty - np proste tabelki w ascii

[hedVB]

rzeczywiście to $l++ bez sensu, nawet nie wiem jak się tam znalazło ... co do tabów zawsze je robię żeby wszystko było przejrzyście - co raz więcej wiem co raz więcej rozumiem czekam na ciąg dalszy kursu

[TQM]

Ok - w takim razie hashe wyjasnimy przy wyrazeniach regularnych - zrobimy sobie prosty parserek co palaszuje logi apacza i liczy ile requestow bylo z kazdego unikalnego adresu IP i ile adresow IP mamy w logu... a na koniec wyswietlimy ladnie raport w postaci tekstowej tabelki

Pozniej bedziemy przerabiac nasz skrypt na rozne sposoby... dodamy moze baze danych, zrobimy do niego front-end CGI z uploadem plikow oraz jakies statystyki. Bedzie to bardzo proste - bardzo podstawowy kod, jak ktos bedzie mial ochote rozbudowywac to nie ma problemu. Zanim jednak do tego dojdziemy to jeszcze kawalek :P

EDIT:
Moge pozniej pokazac jak zbieram dane z serwerow do generowania wykresow (RRD) z ruchu jaki mam... i dostajemy wykres jak ponizej - tam jest spooooro hashow!

summary.jpg

[hedVB]

Nie mam pojęcia o czym mówisz ale fajnie brzmi

Jeszcze kilka takich małych pytanek - jak wyświetlać znaki specjalne z tablicy ASCII? I jakie mam polecenie na zakończenie danej procedury np if coś tam exit sub? I czy istnieje jakaś obsługa błędów np On error resume next :P

[TQM]

Znajac kod znaku mozemy go uzyskac na kilka sposobow...

print pack("C*", 97); # wyswietli male 'a'
print unpack("C*", 'a'); #zwroci 97
print unpack("H*", 'a'); #0x61 (wyswietli samo '61')
print unpack("B*", 'a'); #01100001

pierwszy parametr pack/unpack to szablon wg jakiego dzialamy, gwiazdka mowi aby zamienil tyle ile sie da... Ostatnio markossx podawal mi haslo do systemu w podobnej postaci wiec dostajac ciag 0 i 1 albo hexow bylo szybkie 'print pack' i juz wiadomo o co chodzi

Drugie pytanie jak rozumiem chodzi o natychmiastowy powrot z funkcji do glownego kodu - najczesciej robi sie to przez return. W petlach sa oczywiscie dostepne next i last.

Obsluga bledow? Hmmmm... next if (warunek); - moze takie cos masz na mysli?

EDIT:
perldoc -f pack
perldoc -f unpack
perldoc -f next

EDIT 2:
No tak... a printf/sprintf to zapomnialem
perldoc -f printf oraz sprintf - dziala tak jak w C

[hedVB]

print pack("C*", 97); # wyswietli male 'a'
print unpack("C*", 'a'); #zwroci 97
print unpack("H*", 'a'); #0x61 (wyswietli samo '61')
print unpack("B*", 'a'); #01100001

O to mi właśnie chodziło Świetny sposób na szybkie przeliczanie systemu binarnego :PCo do błędów to myślałem też coś o jakiejś odgórnej definicji pomijania błędów (w razie błędu lecim dalej) no ale warunkami też można - no już Cię nie męczę czekam na cd

[TQM]

Jeszcze jedno.... pisalem o printf i sprintf - proponuje doczytac http://perldoc.perl.org/functions/sprintf.html sprintf() zwraca wynik swojej pracy do zmiennej (jako skalar), printf() zwraca na STDOUT.

Bardzo czesto oba przydaja sie do formatowania stringow, tylko zwroccie uwage na postac - nie podajemy dlugosci bufora... Najpierw podajemy format string, pozniej zmienne ktore maja byc podstawione w odpowiednie miejsca. Idealna sprawa do formatowania np liczb - potrzebujemy konkretny format zapisu albo konkretna precyzje.

Na pewno wiele osob zapyta jak z buffer overflow'ami - powiem tak... jeszcze nie widzialem ani jednego w kodzie napisanym w Perlu!

TIMTOWTDI

print "Wg ASCII 97 to ", chr(97), "\n";

[Nikow]

A jak to jest z ciągami formatującymi? Tak jak w pythonie Tzn. "Jakiś napis z liczbą %d."%(4214+8742)

[TQM]

Jest opisane - link w moim poprzednim poscie... sa przyklady itd - RTFM.

printf ("Temperatura otoczenia = %.2f\nWilgotnosc = %d%%\n", 
    rand(30), rand(50)+50);

... albo ja nie rozumiem pytania co tez jest jak najbardziej mozliwe.