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 odpowiedź:

ze względów bezpieczeństwa oraz wydajności serwera nie mamy w ogóle uruchomionego mod_perl. Na razie jest Pan jedyną osobą, która zgłosiła potrzebę użycia Perla, więc nie możemy tego uruchomić, ponieważ pożytek z mod_perl dla Pana będzie mniejszy niż szkoda dla wszystkich pozostałych użytkowników serwera.

Przyznam się, że strach mnie ogrania jak widzę taki poziom niewiedzy u kogoś kto teoretycznie zarządza serwerem.

Ale w myśl zasady o kopaniu, dostałem jeszcze propozycję nie do odrzucenia:

Zgaduję, że nie jest Pan zadowolony z wgranego domyslnie SkyblueCanvas. Polecam Quick.CMS – jest on prostszy od Skyblue i również nie wymaga bazy danych. Jeżeli potrzebuje Pan czegoś o wiekszych możliwościach to polecam Joomlę. Najwięcej możliwości oferuje chyba Drupal, ale zrobienie strony w nim jest bardzo pracochłonne.
Generalnie, może Pan użyć czegokolwiek, co jest napisane w PHP.

Prawda, że miłe? Prosisz o perla, a sugerują ci php’a.

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 > 57 ? $data[ $c - 97 ]:$_ } split '', lc $o;
        $number .= ' ';
    }
    print ': ' . $number;
}
else {
    print 'usage: convert.pl string';
}
print "\n";

pobierz plik: konwersja-napisu-w-numer.pl