Newsgroup: it.comp.lang.perl
Titolo: Net::FriendFeed

Sto cercando degli esempi in rete di questo interessante modulo.
A me accade che l'interprete Perl si blocchi appena riceve
l'istruzione seguente:
$frf->fetch_user_feed('user');
il gruppo di istruzioni è:
use strict;
use warnings;
use CGI;
use Net::FriendFeed;
my $q = CGI->new();
my $frf = Net::FriendFeed->new;
$frf->fetch_user_feed('user');
Grazie in anticipo a chi voglia rispondere
http://oreste.parlatano.org

Per fare un po' di troubleshooting puoi provare ad utilizzare il
metodo $frf->ua() che ti restituisce l'oggetto LWP::UserAgent. Magari
su questo puoi impostare un timeout opportuno (il default credo sia di
180 secondi).
Altra cosa: sei per caso dietro ad un proxy? In questo caso, per
vedere se funziona prova ad impostarlo esplicitamente, tipo:
my $frf = Net::FriendFeed->new;
$frf->ua()->proxy(http => 'http://your.proxy.domain:port/');
$frf->fetch_user_feed('user');
e guarda se funziona. In caso positivo... forse servirà inviare una
patch (il metodo ua() non è documentato per cui è improprio
utilizzarlo).
Ciao,
   Flavio.


 l'istruzione seguente:
Aggiungi:
 use LWP::Debug qw(+);
e guarda su quale richiesta si blocca.
Max

 metodo $frf->ua() che ti restituisce l'oggetto LWP::UserAgent. Magari
Grazie del suggerimento che proverò al più presto, per il momento ho
risolto con un programmino poco elegante, ma funzionante. Avevo
bisogno di recuperare solo la data ed il messaggio di seguito lo
script per tua conoscenza:
use CGI;
use strict;
use warnings;
use Encode;
use XML::Simple;
use LWP::Simple;
my $q = CGI->new();
my $url = '
http://friendfeed-api.com/v2/feed/user?format=xml
';
my $xml = get $url;
my %linee;
my $temp;
my $conta = 0;
if (defined($xml)) {
my $friendfeed = XMLin($xml);
my $rHoHoH = $friendfeed;
for my $k1 (keys %$rHoHoH ) {
if ($k1 eq 'entry') {
for my $k2 ( keys %{$rHoHoH->{ $k1 }} ) {
for my $k3 ( keys %{$rHoHoH->{ $k1 }->{ $k2 }} ) {
if ($k3 eq 'body') {
$temp = $rHoHoH->{ 'entry' }->{ $k2 }->{ 'body' };
$linee{$rHoHoH->{ 'entry' }->{ $k2 }->{ 'date' }} = encode('utf-8',
$temp);
}
}
}
}
}
print $q->header(-charset=>'utf8');
for my $k4 ( sort { $b cmp $a } keys %linee ) {
print $q->hr();
print $q->p($k4);
print $q->p($linee{$k4});
}
} else {
messaggio di errore
}

 e guarda su quale richiesta si blocca.
Grazie del suggerimento che proverò al più presto, per il momento ho
risolto con un programmino poco elegante, ma funzionante. Avevo
bisogno di recuperare solo la data ed il messaggio di seguito lo
script per tua conoscenza:
use CGI;
use strict;
use warnings;
use Encode;
use XML::Simple;
use LWP::Simple;
my $q = CGI->new();
my $url = '
http://friendfeed-api.com/v2/feed/user?format=xml
';
my $xml = get $url;
my %linee;
my $temp;
my $conta = 0;
if (defined($xml)) {
my $friendfeed = XMLin($xml);
my $rHoHoH = $friendfeed;
for my $k1 (keys %$rHoHoH ) {
if ($k1 eq 'entry') {
for my $k2 ( keys %{$rHoHoH->{ $k1 }} ) {
for my $k3 ( keys %{$rHoHoH->{ $k1 }->{ $k2 }} ) {
if ($k3 eq 'body') {
$temp = $rHoHoH->{ 'entry' }->{ $k2 }->{ 'body' };
$linee{$rHoHoH->{ 'entry' }->{ $k2 }->{ 'date' }} = encode('utf-8',
$temp);
}
}
}
}
}
print $q->header(-charset=>'utf8');
for my $k4 ( sort { $b cmp $a } keys %linee ) {
print $q->hr();
print $q->p($k4);
print $q->p($linee{$k4});
}
} else {
messaggio di errore
}
è possibile osservare il funzionamento comparando la pagina "Notizie"
del mio sito
http://oreste.parlatano.org
e la pagina del mio FrienFeed
http://friendfeed.com/oreste

 wrote:
