1

我在 Ubuntu 中使用以下 Perl 代码没有任何问题，但是当我在 XP 中使用 activeperl 尝试它时，它挂起，没有错误消息，只是一个空白屏幕。在标准 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

-谢谢

4

1 回答 1

2

关于 Windows 特定的 perl 问题有相当广泛的手册页 - perlwin32。

脚本使用的唯一非核心包是Net::Twitter ，在 Windows平台测试矩阵下似乎有很好的测试结果。

于 2011-03-10T09:09:38.837 回答