AlexBio's Blog /dev/random

Perl

Twitter.pl diventa TwitShell

In Perl, Source on 20 agosto 2009 with no comments

Finalmente mi sono deciso ad aggiornare il mio script per interagire con Twitter (il codice era troppo brutto pure per me).
La modifica principale riguarda l’uso di JSON al posto di XML, in quanto mi sono trovato meglio a lavorare con quello (con l’aiuto del modulo JSON) rispetto ad XML e al modulo che usavo (XML::Parser).
Inoltre [...]

Perl Tip #2: Gtk2 TrayIcon

In GNU/Linux, Perl, Source, Tips on 17 agosto 2009 with no comments

Da qualche tempo mi sono messo a giocare con i moduli Perl per Gtk2. In particolare mi sono interessato alla tray icon, per un picoolo porgetto che sto creando. Vediamo dunque come aggiungere in icona alla tray bar.

#!/usr/bin/perl
 
use Gtk2::TrayIcon;
Gtk2->init;
 
my $trayicon= Gtk2::TrayIcon->new(’prova’);
 
# Carica un’immagine
my $img = Gtk2::Image->new_from_file(’/percorso/immagine’);
$trayicon->add($img);
 
# Crea un tooltip
$tooltip = Gtk2::Tooltips->new;
$tooltip->set_tip( $trayicon, "Questa è una [...]

Perl Tip #1: Check OS

In Perl, Source, Tips on 6 agosto 2009 with no comments

Come dire ad un proprio script Perl in che sistema operativo è stato eseguito? Semplice, usando una delle variabili speciali fornite da Perl stesso.

#!/usr/bin/perl
 
my $os = $^O;
print "Sistema Operativo: $os\n";
 
exit 0;

Per maggiori informazioni

$ perldoc perlvar

Twitter.pl

In Perl, Source on 1 luglio 2009 with no comments

Dopo essermi dilettato con le API di Twitter in PHP (in Google X) ho pensato di continuare a giocarci un pò, questa volta in Perl: ne è venuto fuori questo.
È  brutto quanto basta ma funziona piuttosto bene. Tramite esso è possibile innanzitutto aggiornare il proprio stato (inserendo username e password), mostrare la propria timeline e [...]