Ubuntu では問題なく次の Perl コードを使用していますが、activeperl を使用して XP で試してみると、ハングし、エラー メッセージは表示されず、空白の画面が表示されます。標準の perl とアクティブな perl、または windows と ubuntu の間でコードを移動するときに注意すべき問題はありますか?
*sub do_search
{
my $term = shift @_;
my $page = 1;
my @results;
while (scalar @results < $opts{maxresults})
{
my $rset = $handle->search({query=>$term, page => $page, rpp => $opts{rpp} });
print "Searching for $term (page $page)\n" if $opts{verbose};
if (ref $rset eq 'HASH' && exists $rset->{results})
{
# break out if no results came back
last unless @{$rset->{results}};
push @results, @{$rset->{results}};
printf "Now we have %d entries\n", scalar @results if $opts{verbose};
}
# go to the next page
$page++;
}
print_post($_) foreach @results;
}*
ソース: http://www.ibm.com/developerworks/web/library/l-perl-twitter/index.html
-ありがとう