Tag: perl

  • mod_perl – „zabawne”

    Jest sobie klient. Klient dostaje od swojej nadrzędnej jednostki miejsce na serwerze. Do tej pory cool. Dostałem więc namiary na konto, ftp’a, mysql’a. Środowisko lokalne ustawione, aplikacja webox wygenerowana, szablon wstukany, więc wgrywam na serwer. Pierwsze pozytywne wrażenie: włączony mod_rewrite oraz allowOverride ustawione na all. Cudnie, bo do niedawna i to trzeba było się kopać. Potem było już tylko gorzej. Nie ma mod_perla, więc napisałem poprzez system ticketowy prośbę o jego włączenie, a oto otrzymana […]

  • nowy cpan – brak listy

    Nowy system, świeża instalacja i po zainstalowaniu cpan’a miałem problem z pobieraniem modułów. Rozwiązaniem jest wybranie z listy geograficznej., którą uzyskujemy po odpaleniu: perl -MCPAN -e shell za pomocą polecenie: o conf init urllist

  • rekonfiguracja mirrorów CPAN’a

    Na szybko przeklikałem się przez konfigurację w efekcie pierwszym mirrorem był ftp.piotrkosoft.net, który jest martwy. Nie odpowiada, albo odpowiada źle. Nie sprawdzałem. teoretycznie po: perl -MCPAN -e shell cpan> o conf init Powinienem móc ponownie skonfigurować. Szkopuł w tym, że nadal łączyło się z tym nieszczęsnym mirrorem i … zamarzało. Wywaliłem ~/.cpan … ale nic nie pomogło. Dopiero ręczne wycięcie z pliku: /etc/perl/CPAN/Config.pm Dało mi to czego potrzebowałem.

  • konwersja napisu na numer telefonu

    Chciałem poszukać sobie numeru komórki który będzie jakimś fajnym napisem. Nie chciało mi się tego napisu „konwertować” patrząc na klawiaturę telefonu. Nie chciało jak diabli. #!/usr/bin/perl -w use strict; if ( @ARGV ) { my $number = ”; foreach my $o ( @ARGV ) { print $o; my @data = split ”, '22233344455566677778889999′; map { my $c = ord lc $_;$number .= $c > […]