Perl的网络编程<ftp::NS>问题

剑心

在看parker的代码时，遇到一个问题
就是<ftp::NS>输出的问题，看了很多文档。看来这个用法很老了，有的文档推荐用NET::FTP
而不推荐用ftp.pl
代码片断如下：
[php]
ftp::dir_open("-lR /");
  open(T, ">$TMPDIR/$site.tmp") || die "cannot create file $TMPDIR/$site.tmp\n";
  print T "/\n";
  while ( <ftp::NS> ) {
    s/\s+$//g;
    print T "$_\n";
  }

[/php]