Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.

Re: Re: Re: Re: FTP Transfer Status

by DrManhattan (Chaplain)
on Mar 11, 2003 at 23:17 UTC ( #242194=note: print w/replies, xml ) Need Help??

in reply to Re: Re: Re: FTP Transfer Status
in thread FTP Transfer Status

It could very well be hosed under Win32. I'm not sure how well a Win32 perl port would simulate fork(). It does work alright for me under Linux though.

As it's written now, the script exits silently if there's an error. Try copying out the bit listed as "child" into a separate file, setting Debug => 1, and seeing if it gives you any output.

#!/usr/bin/perl use strict; use Net::FTP; my $BYTES_PER_HASH = 1024; # child my $ftp = Net::FTP->new("", Debug => 1); $ftp->login("anonymous","-anonymous\@"); $ftp->cwd("MISC"); $ftp->hash(\*STDOUT, $BYTES_PER_HASH); $ftp->get("NBFCP.TXT"); $ftp->quit;


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://242194]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2023-12-11 22:02 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (41 votes). Check out past polls.