Si sà, i programmatori sono fondamentalmente dei burloni e come tali si comportano anche quando scrivono cose serie come componenti che poi saranno riutilizzati in giro per il mondo, magari per progetti importanti come Amazon e tanti altri.
Ora, una cosa particolare di tutti i componenti Perl, detti anche moduli, è che devono sempre ritornare un valore true. In Perl è true tutto quanto non è zero quindi, ci si aspetta che tutti i moduli finiscano con
[perl] ....1;
[/perl]
Ma, come dicevo, i programmatori sono burloni e quindi, unisci questo al fatto che, in Perl, ogni valore diverso da zero è true e si ottiene che, non tutti i moduli Perl finiscono con la stringa sopra.
Anzi si viene a scoprire che è stato creato un modulo apposta per cercare e contare i valori di ritorno dei vari moduli del Perl presenti sul CPAN e che, sorpresa, non tutti finiscono in uno.
Eccone un elenco non esaustivo dei più fantasiosi:
Acme-Anything-0.02 ritorna: 'Warning! The consumption of alcohol may cause you to think you have mystical kung-fu powers.'- Acme-CPANAuthors-Italian-0.01 ritorna: "tarallucci e vino"
- CGI-RSS-0.9600 ritorna: "This file is true."
- Git-SVNReplay-1.0211 ritorna: "my codes are perfect (too)"
- JE::Null ritorna "Do you really expect a module called 'null' to return a true value?!"
- Sub-Context-1.00 ritorna: 'your message here, contact $AUTHOR for rates'
e cosi via...ma quando si va a vedere qual'è il valore di ritorno più usato a parte ovviamente l'uno, si scopre che questo è il numero 42 usato in ben 82 moduli.
Nonostante abbia visto il film devo ammettere che ho impiegato una decina di minuti di ricerche su INTERNET prima di capire perchè proprio 42.
E voi, la conoscete la domanda fondamentale sulla vita, l'universo e tutto?
E ora vi lascio con un compitino per casa: cosa stampa il seguente pezzo di codice che usa il modulo Acme::CPANAuthors?
[perl] use Acme::CPANAuthors;my $authors = Acme::CPANAuthors->new('Italian');
my $name = $authors->name('EBRUNI');
print $name;
[/perl]
Lascia un commento