Hi, How do i 1. ftp directories recursively 2. Compress/bzip2 files larger than 5MB 3. Parallel ftp
Regards Mubariz -----Original Message----- From: Allegakoen, Justin Devanandan [mailto:[EMAIL PROTECTED]] Sent: Thursday, September 05, 2002 5:52 AM To: [EMAIL PROTECTED] Subject: RE: Eval and Net::FTP -----------------8<--------------------------------------------------------- - ## long-time operations here: $ftp = Net::FTP->new($site, Timeout => 60, Passive => 1, Debug => 3) or die "Can't connect: $@\n"; $ftp->login($username,$password) or die "Couldn't authenticate.\n"; -----------------8<--------------------------------------------------------- - Suggestion: you call a subroutine should the connection fail. The great thing is you're actually half way there with the 'or die'. I suggest you try something akin to:- $ftp = Net::FTP->new($site, Timeout => 60, Passive => 1, Debug => 3) || \&SendMail Where \&SendMail is a reference to a subroutine that holds the code to send mail. Just in - Engineer by name, butcher by profession . . . perl -e "@n=split(//,'f96:v4*MdE*^=!N&[AjJJJKaD75'); @s=split(//,',LENV]DmIek0RU&C)a:/8&k47RG'); foreach $i(0..$#n){while(1){$c=chr(28+int rand(1+255-28));if($c eq ($n[$i]^$s[$i])){sleep 1;print $c;last;}else{print \"$c\b\";}}}" _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs