Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Different results from Win and Ubuntu

by yeli (Initiate)
on Mar 03, 2014 at 10:44 UTC ( #1076768=perlquestion: print w/replies, xml ) Need Help??

yeli has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I want to build a program to find out all the "ffn" format from NCBI. The program as followings:
use strict; use warnings; use Net::FTP::Find; use constant NCBI_FTP => "ftp.ncbi.nlm.nih.gov"; use constant BLAST_DB_DIR_VIRUS => "/genomes/Viruses/"; use constant USER => "anonymous"; use constant PASSWORD => "anonymous"; my $ftp; my $ffn_total; $ftp = Net::FTP::Find -> new(NCBI_FTP, Debug => 0) or die "Cannot connect to" . NCBI_FTP . ": $@"; $ftp -> login (USER, PASSWORD) or die "Cannot login to" . NCBI_FTP . ": $@"; $ftp -> cwd (BLAST_DB_DIR_VIRUS); $ftp -> binary(); my @blast_db_files = $ftp->ls(); print "checking the total number of virus files...\n"; $ftp -> find(\&wanted, @blast_db_files); sub wanted { if (/^.*\.ffn\z/s) { print "$_\n"; } }
The result from perl released with ubuntu was blank. I debuged it and found the @blast_db_files was empty!!! I tried this on Win where the perl was Activeperl 5.18.2 and found the @blast_db_files were right. @blast_db_files contained the names of the sub-files. How could this happen? Any helps will be appreciated!

Replies are listed 'Best First'.
Re: Different results from Win and Ubuntu
by Anonymous Monk on Mar 03, 2014 at 10:50 UTC

    How could this happen?

    Turn on the debugging/tracing/verbosity option and get some clues

Re: Different results from Win and Ubuntu
by thezip (Vicar) on Mar 03, 2014 at 23:53 UTC

    Firewall?

    Can you manually do the FTP from the command-line on each box?


    *My* tenacity goes to eleven...
      As I know the sub-files were more than 1000.

        That makes no sense, what question is As I know the sub-files were more than 1000. supposed to answer? What do you get when you make  Debug => 0 something like 9999999?

        Q: Firewall?
        A: As I know the sub-files were more than 1000.
        Q: Can you manually do the FTP from the command-line on each box?
        A: As I know the sub-files were more than 1000.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1076768]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2020-10-28 15:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (261 votes). Check out past polls.

    Notices?