how to run the perl script by passing it's arguments using system ??

[vijayarl]

Hi all,

i have perl script, which is used to send mail. its a command line utility.
if we run this perl script in command line by passing all it's required arguments, it works very well.there no issues.

my problem is :
am just call this perl script by using "system" command inside the another perl script. ie,

mail.pl --contains:

system(perl sendEmail.pl -f [e-mail]  -t [e-mail] -s aaabbbcc.ddd.com -u "Test Mail" -m "Test Mail");
 

here arguments stands for:

-t ADDRESS [ADDR ...] to email address(es)
-u SUBJECT message subject
-m MESSAGE message body
-s SERVER[:PORT] smtp mail relay.

when i try to run mail.pl, i get this error :

C:\sendEmail-v1.55>perl mail.pl
Array found where operator expected at mail.pl line 1, at end of line
Array found where operator expected at mail.pl line 1, at end of line
syntax error at mail.pl line 1, near "pl -f "
Execution of mail.pl aborted due to compilation errors.
 

am not able to sort this problem ??

am using Win2k OS & Activestate V5.10.0 perl.
can any one help me out this ????

Regards,
Vijayarl

[numberwhun]

You are going to really run into a lot of syntactical issues calling that the way that you are. My suggestion would be to convert your sendmail.pl script into your own internal module that you can include in your script(s) and call the code as a function with all the necessary options. It would be a cleaner way to do it, especially since it appears this will not be a one-off solution, but instead used over and over.

Regards,

Jeff

[Icecrack]

First off, i agree with numberwhun on that point,

second your getting errors because,

system(perl sendEmail.pl -f [e-mail] -t [e-mail] -s aaabbbcc.ddd.com -u "Test Mail" -m "Test Mail");

try this:

system(`perl sendEmail.pl -f [e-mail] -t [e-mail] -s aaabbbcc.ddd.com -u "Test Mail" -m "Test Mail"`);

you forgot to cancel the @, - .... etc.

also i think to help you find problems we will need a print out of sendEmail.pl code.


also on another note: have you read the other post you posted
http://bytes.com/forum/thread839929.html

[vijayarl]

Hi Jeff/Icecrack,

Thanks for your valueable suggestions.

i used icecrack 1st solution, it worked :-)

really, i would love to takeup jeff idea & implement..since am runningout of time..
i had to choose other one...

anyway's thanks guys for your help & support..your doing great work..!!!
please keep going..it helps all perl newbie's...

ahhh icecrack.. i have seen the other post which u have replied..am still not yet tried that one...

Bye
Vijayarl