Dar vieno analitiko svetainė

Petras Kudaras

Šventasis moxliukas

Nagi šiandien tapau 236-uoju Perlmonks šventuoju. Tai vat. Pasigyriau.

Acme::Apache::Werewolf

Acme::Apache::Werewolf yra naujas ir labai naudingas Perlo modulis, kuris leidžia apsaugoti Apache serverio direktorijas nuo vilkolakių. io modulio pagalba galima uždrausti priėjimą prie Apache direktorijų mėnulio pilnaties metu, tereikia į httpd.conf įrašyti: <Directory /fullmoon> PerlAccessHandler Acme::Apache::Werewolf PerlSetVar MoonLength 4 </Directory> Tris kart valio CPAN, nes dabar mano Apachei nebaisūs jokie vilkolakiai.

Perl 5.6.2

Šeštadienį buvo išleista 5.6.2 Perlo versija. Perlo 5.6.x šaka nėra mirusi, ji vis dar palaikoma. Pagrindinis šios versijos tikslas buvo galimybė sukompiliuoti Perlą su naujais įrankiais (kaip kad gcc 3.3) ir operacinėmis sistemomis, kurios atsirado jau po Perl 5.6.1 išleidimo (AIX 5 ir Mac OS X). Tuo pačiu buvo atnaujinti ir kai kurie moduliai. Parsisiųsti 5.6.2 galima iš čia.

Num2LTWord Perlu

Kai kam prireikė funkcijos, kuri verstų skaičius į lietuvių kalbą. Tad parašiau Perlinį moduliuką – gal bus dar kam nors naudingas. (Parsiųsti kaip normalų modulį galima iš čia) #!/usr/bin/perl -w package Num2LTWord; =head1 Num2LTWord -- skaičiai lietuviškai Modulis verčiantis (sveikus) skaičius į lietuvių kalbą =head2 NAUDOJIMAS use Num2LTWord; num2ltword(2003); =head2 FUNKCIJOS =head3 num2ltword ( skaičius ) Ši funkcija grąžina suformuotą lietuvišką skaičiaus pavadinimą. =head2 RIKTAI IR APRIBOJIMAI Funkcija C<num2ltword> supranta tik sveikus skaičius intervale (- 1 000 000 000; 1 000 000 000) =head2 AUTORIUS Petras Kudaras aka moxliukas (moxliukas@delfi. Skaityti toliau…

IE įdomybės ir bluejackinimas

Labai įdomus dalykas, kurį šiandien aptikau benaršydamas internetą buvo Internet Explorerio featuras, kurio pagalba galima išsikviesti Notepad. Tereikia parašyti kažką panašaus į: <img src="view-source:file:///C:/WINNT/system32/shell32.dll"> Ir jei jūsų Windows sėdi kataloge C:WINNT, greit pajausite kaip Notepad pradeda prakaituoti stengdamasis parodyti bylą shell32.dll. O juk galima įdėti ir kelias tokia nuorodas ir staiga swape gali atsirasti kokia pora gigabaitų duomenų. Įdomu dar ir tai, kad tokių dalykų nepagauna jokios Popup blokavimo programos. Tiesiog tai vienas iš Internet Explorer featurų. Skaityti toliau…

Testai perl-dev

Pridėjau šiandien į perl-dev CVS kodo testus. Šiaip atrodo Lietuvoje niekas lyg ir nedaro web aplikacijų kartu su testais (test based programming), nors Perlmonksuose teko girdėti apie tai nemažai. Esmė yra tame, kad pakeitus kažkokį failą automatiškai prasitestuojama ar viskas veikia kaip ir turėtų, ar tie pakeitimai nesugriovė kokio nors kodo kuris seniau jau veikė. Šiek tiek gal ir su eXtreme Programming susiję (ten pradžioj parašomas testas kuris neveikia, o paskui stengiamasi padaryt kad jis Skaityti toliau…

Perlinis alarm()

Turėjau šiokių problemų su perlific, mat jeigu jis kurį laiką nevykdydavo jokios MySQL užklausos, MySQL uždarydavo ryšį su perlu ir duomenų bazė tapdavo nebepasiekiama. Norint išlaikyti atvirą jungtį su MySQL reikia kas kažkiek laiko papinginti duombazę iškviečiant $dbh->ping();. Tai galima padaryti keleta būdu (juk čia Perlas): fork()‘int ir atskirame procese daryti while(1) { sleep(60); $dbh->ping(); }, galima naudotis gijomis (jei Perlas kompiliuotas su jomis) – use<br /> threads;, galima apsirašyti funkciją on_ping (nes juk Skaityti toliau…

Pirmas Bluejack’inimas

Grįždamas namo troleibusu pirmą kartą sėkmingai „nubluejackinau“ vieną merginą. Bluejackinimas yra gana paprastas ir smagus dalykas – paprasčiausiai tai tėra tik žinučių (ar objektų) siuntinėjimas per Bluetooth, kai gavėjai dažnai net nežino, kad pas juos yra tas Bluetooth ;-) (plačiau apie tai http://bluejackq.com). Veiksmo eiga tokia: susikuri savo mobiliajame telefone naują kontaktą, vietoj vardo įrašai žinutę (na, aš kaip neturintis lakios vaizduotės tai įrašiau tik „hi“), eini į „Send Contact“, pasirenki kad siųstų per Skaityti toliau…

Kelios naujienos ir Mac OS X

Pirma naujiena yra apie tai, jog išleistas Perl 5.8.2 Release Candidate 2, krį galima parsisiųsti iš http://www.cpan.org/authors/id/N/NW/NWCLARK/perl-5.8.2-RC2.tar.bz2. Pagrindiniai pokyčiai nuo praeito Release Candidate: mod_perl dabar jau lyg veikia normaliai su šia versija, keletas pataisymų Perlo gijose, UNIVERSAL modulio pakeitimai bei %INC kešavimas buvo išimti, nes manoma jog tai nepakankamai ištestuotas kodas. Galutinė Perl 5.8.2 versija turėtų pasirodyti už kokios pusantros paros, jei nebus rasta kokių nors klaidų. Be to išleistas ir nauja PHP 5. Skaityti toliau…

Išleistas Parrot 0.0.13

Ką tik gavau laišką, pranešantį, jog išleista speciali Parrot versija Halloween proga. Parsisiųsti galima iš http://www.cpan.org/authors/id/L/LT/LTOETSCH/parrot-0.0.13.tar.gz arba per CVS iš http://dev.perl.org/cvs/ Pagrindiniai pokyčiai: imcc dabar buildinamas kaip parrot, objektai vis labiau pabaigti, isa ir does metodai PMC, extension galimybių pradžia, dinaminės operacijų kodų bibliotekos, ekspermentinis tinklo funkcijų palaikymas, ncurses, postgresql ir pcre bibliotekų palaikymas ir t.t.