Hung up on the Header

Posted on 2004-10-14
Last Modified: 2008-03-10
I don't even know if this will work this way (the FTP parts work OK), from the web. But I can't get past a 'Valid Header' message and I can't figure out why. I've messed at it for well over an hour.

Any help?


use CGI qw(:standard :shortcuts);

print "Content-type: text/html\n\n";
print "<head><title>Approve Page</title></head>\n";  
print "<html>\n";          
print "<body bgcolor=\"#FFFFFF\">\n";  
print "FTPing \n";  

ftp -i <<**
cd 'pa.test.poffacng'
lcd /export/ford/eccws7/u/mso/www.86.80/fcsd/psl/namer/ftp
mget  *

ftp -i <<**
cd w:/ftp/webtrans/downloads
lcd /export/ford/eccws7/u/mso/www.86.80/fcsd/psl/namer/ftp
mput  *.TXT *.txt
print "</body></html>\n";  
Question by:tmccar10
LVL 48

Accepted Solution

Tintin earned 50 total points
ID: 12312302
You can't just plonk random ftp commands in a Perl script, as you probably know by the errors you get, ie:

Unquoted string "ftp" may clash with future reserved word at line 10.
Ambiguous use of -i resolved as -&i() at line 10.
Use of bare << to mean <<"" is deprecated at line 10.
Semicolon seems to be missing at line 19.
Unquoted string "ftp" may clash with future reserved word at line 20.
Ambiguous use of -i resolved as -&i() at line 20.
Use of bare << to mean <<"" is deprecated at line 20.
syntax error at line 20, near "ftp "
Can't find string terminator "" anywhere before EOF at line 20.

To call FTP from a Perl script, either call a shell script with your ftp commands or use the Net::FTP module.

Author Comment

ID: 12312934
Thanks, as usual, Tintin-

Got plenty to think about.

I'm a learn-as-I go guy with perl. More go then learn, most times. I really didn't (don't) know what's possible and what's not because my knowledge is so spotty.  This'll be a help onseveral levels.

Got myself a hobby for a while.

Thanks again

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Perl output collect 7 65
Perl Scripting from a shell script with if and for 4 82
Using Perl to parse rows 7 93
Perl DBI Transactions Using Custom Module 7 45
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

937 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now