Unix 2 Perl Module FTP

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

 
if [[ -a file*.ach || -a file2 ]]  #check if files exist
then
   set +x   #turn on debug
   echo     "*********************************************************
+**"
   echo "** The file*.ach and/or file2 file already exists. **"
   echo "***********************************************************"
   exit 99 #if the any one of two files exist exit program
else
   set +x
   echo "*************************************"
   echo "** No files exist, continueing on. **"
   echo "*************************************"
   set -x     
fi

#no files then run the ftp job.
ftp -vin << EOD
open 9.9.9.9     #ip of ftp server
user DOMAIN\/user1 password321   
# DOMAIN\user then password  Microsoft domain login
case
prompt
cd directory1\/directory2
mget file*.ach
quit
EOD
[download]

## Can someone help me convert this to a Net::FTP module. I am good and my modules will work, except for passing the DOMAIN/user1 parameter. I connected to the CLI and did an FTP > OPEN and typed in username DOMAIN\user1 as well as DOMAIN/user1 and user@domain.com they all worked and connected through FTP from the prompt. But in my Perl Module if I declare and initialize my variables with $ftp_user = "DOMAIN\/user" it will not work (tried all kinds of ways, seems as though it only likes to take in single string characters) and always gives me a bad login message. error 530

if I run my perl module with just a regular username and or connect to say ftp.oreilly.com no issues, its when I try to prefix the username with an internal domain name, the FTP server is in house so the domain name must prefix the username.

Comment on Unix 2 Perl Module FTP Download Code

Replies are listed 'Best First'.
Re: Unix 2 Perl Module FTP by talexb (Chancellor) on Sep 28, 2012 at 18:38 UTC
Great -- now show us how you've tried to use Net::FTP to achieve the same thing, and what problems you're running into. Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply]
Re^2: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 18:43 UTC
$ftp_site = '9.9.9.9 5000'; $ftp_dir = '/Directory2'; $ftp_user ='DOMAIN\/user1'; ###here is the problem line $ftp_password = "password321"; my $ftp = Net::FTP->new($ftp_site) or die "Could not connect to $ftp_site: $!"; $ftp->login($ftp_user, $ftp_password) or die "Could not login to $ftp_site with user $ftp_user: $!"; $ftp->cwd($ftp_dir) or die "Could not change remote working " . "directory to $ftp_dir on $ftp_site"; $ftp->get($ftp_get_file) or die "Could not get $ftp_get_file" . "the file is not present in $ftp_dir"; $ftp->quit(); [download]	[reply] [d/l]
Re^3: Unix 2 Perl Module FTP by talexb (Chancellor) on Sep 28, 2012 at 18:49 UTC
`$ftp_user ='DOMAIN\/user1'; ###here is the problem line` First, I'm not sure why you're escaping a forward slash. Secondly, I expect that line's not where the problem is -- I imagine the problem is lower down, where you're trying to log in to the ftp site. What error do you see when you run this script? `Could not log in ..` perhaps? Does the same login work when you try this interactively? Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply] [d/l] [select]
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 19:00 UTC
Re^5: Unix 2 Perl Module FTP by talexb (Chancellor) on Sep 28, 2012 at 19:02 UTC
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 21:06 UTC
Re^5: Unix 2 Perl Module FTP by Mr. Muskrat (Canon) on Sep 29, 2012 at 15:21 UTC
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Oct 01, 2012 at 19:00 UTC
Re^5: Unix 2 Perl Module FTP by talexb (Chancellor) on Oct 02, 2012 at 15:53 UTC
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 18:56 UTC
Re^5: Unix 2 Perl Module FTP by talexb (Chancellor) on Sep 28, 2012 at 19:00 UTC
A reply falls below the community's threshold of quality. You may see it by logging in.
Re^3: Unix 2 Perl Module FTP by runrig (Abbot) on Sep 28, 2012 at 19:02 UTC
Read (at least) the SYNOPSIS of the Net::FTP docs. Change the first $! to $@. Include $ftp->message() in all of the other diagnosic error messages.	[reply]
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 19:26 UTC
Re^5: Unix 2 Perl Module FTP by runrig (Abbot) on Sep 28, 2012 at 19:39 UTC
Some notes below your chosen depth have not been shown here
Re^4: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 19:17 UTC
Re^3: Unix 2 Perl Module FTP by simbalion (Initiate) on Sep 28, 2012 at 18:48 UTC
I get an error 530 invalid user/pass	[reply]
Re^3: Unix 2 Perl Module FTP by Generoso (Prior) on Sep 30, 2012 at 03:06 UTC
Going form UNIX to Windows The file naming is different i.e /Domain/user/ftp in UNIX will be something like "C:\\Domain\\user\\ftp" for Windows.	[reply]


P is for Practical
	PerlMonks