what happened with this error?

Discussion in 'Perl Misc' started by Uno, Nov 6, 2011.

  1. Uno

    Uno Guest

    [sorry can only paste as quotation]

    > $ perl nov1.pl
    > Net::FTP>>> Net::FTP(2.77)
    > Net::FTP>>> Exporter(5.63)
    > Net::FTP>>> Net::Cmd(2.29)
    > Net::FTP>>> IO::Socket::INET(1.31)
    > Net::FTP>>> IO::Socket(1.31)
    > Net::FTP>>> IO::Handle(1.28)
    > Net::FTP=GLOB(0x8c59978)<<< 220 FTP Server ready.
    > Net::FTP=GLOB(0x8c59978)>>> USER u63263303
    > Net::FTP=GLOB(0x8c59978)<<< 331 Password required for u63263303
    > Net::FTP=GLOB(0x8c59978)>>> PASS ....
    > Net::FTP=GLOB(0x8c59978)<<< 230 User u63263303 logged in
    > Net::FTP=GLOB(0x8c59978)>>> TYPE I
    > Net::FTP=GLOB(0x8c59978)<<< 200 Type set to I
    > Net::FTP=GLOB(0x8c59978)>>> CWD /vids/
    > Net::FTP=GLOB(0x8c59978)<<< 250 CWD command successful
    > Net::FTP=GLOB(0x8c59978)>>> ALLO 43230955
    > Net::FTP=GLOB(0x8c59978)<<< 202 No storage allocation necessary
    > Net::FTP=GLOB(0x8c59978)>>> PASV
    > Net::FTP=GLOB(0x8c59978)<<< 227 Entering Passive Mode (50,21,179,12,240,67).
    > Net::FTP=GLOB(0x8c59978)>>> STOR munga1.flv
    > Net::FTP=GLOB(0x8c59978)<<< 150 Opening BINARY mode data connection for munga1.flv
    > Net::FTP=GLOB(0x8c59978): Timeout at /usr/share/perl/5.10/Net/FTP/dataconn.pm line 74
    > Use of uninitialized value $@ in concatenation (.) or string at nov1.pl line 15.
    > put failed
    > $


    > $ cat nov1.pl
    > #!/usr/bin/perl -w
    > use strict;
    > use Net::FTP;
    > my $domain = 'www.altgreendesigns.com';
    > my $username = 'u63263303';
    > my $password = '';
    > my $file = 'munga1.flv';
    > my $file2 = 'dl1.flv';
    >
    > my $ftp = Net::FTP->new($domain, Debug=>1, Passive=>1) or die "Can't connect: $@\n";
    > $ftp->login($username, $password) or die "Couldn't login\n";
    > $ftp->binary();
    > # $ftp->mkdir('/vids/');
    > $ftp->cwd('/vids/') or die "death $@\n";
    > $ftp->put($file) or die "put failed $@\n";
    > $ftp->get($file, $file2) or die "get failed $@\n";
    > $


    Maybe something with Passive?
    --
    Uno
    Uno, Nov 6, 2011
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Replies:
    2
    Views:
    597
    dbtid
    Oct 2, 2003
  2. James Dalton

    what happened to opencores.org

    James Dalton, Jul 23, 2004, in forum: VHDL
    Replies:
    8
    Views:
    1,794
  3. Jos
    Replies:
    1
    Views:
    359
    blenderdude
    Aug 7, 2003
  4. FrzzMan[
    Replies:
    3
    Views:
    1,659
    FrzzMan[
    May 30, 2004
  5. Quentin Huo
    Replies:
    0
    Views:
    673
    Quentin Huo
    Oct 1, 2004
Loading...

Share This Page