Ad:

Perl Discussion Thread
Unsolved
Views: 1718

Nov 9th, 2009

suggestions for writing automation script

Expand Post »

Hello,

I have created a simple webservice and I am now in the testing mode. I am trying to write a simple script that will use curl to create user accounts and another one to delete user accounts.

I have tried to use system to send curl commands

perl Syntax (Toggle Plain Text)
my $cmd = "c:\\curl\\curl -X PUT -d \"user[email]=email$_\" "
 + "-d \"user[password]=pass$_\" "
 + "http://localhost:3000/site/users/user$_";
print "create user failed\n" if system($cmd);
my $cmd = "c:\\curl\\curl -X PUT -d \"user[email]=email$_\" "
 + "-d \"user[password]=pass$_\" "
 + "http://localhost:3000/site/users/user$_";
print "create user failed\n" if system($cmd);

I've also tried using backtick

perl Syntax (Toggle Plain Text)
$userResponses[$_] =
  `c:\\curl\\curl -u user$_ -X DELETE http://localhost:3000/site/users/user$_`;
$userResponses[$_] =
  `c:\\curl\\curl -u user$_ -X DELETE http://localhost:3000/site/users/user$_`;

BTW, I have been using curl to manually test the service because it supports all of the HTTP methods instead of just GET and POST.

Anyway, the problem I am running into is that I can't figure out a way to interact with curl to provide the required password after sending a command that requires authorization. Is there a way to do this?

Any help would be greatly appreciated. I am open to suggestions, including ones that that don't depend on curl.

Thanks!

Similar Threads

Need help writing a perl script to parse multiple files in Perl
IP-to-Country converter (php script) in PHP
Free Game Script in Game Development
writing a script for nagios checks... in Shell Scripting
Help required writing small script Python in Python

klactose

Reputation Points: 10

Solved Threads: 1

Light Poster

Offline

43 posts
since Feb 2008

Permalink

Nov 9th, 2009

Re: suggestions for writing automation script

In case it makes a difference, is your platform *nix, Windows or Mac?

I don't know much about http or curl but before using the system command make sure the $cmd variable has been built successfully. You may want to use Perl's quote operator qq().

Perl Syntax (Toggle Plain Text)
#!/usr/bin/perl -w
use strict;
my $cmd = "c:\\curl\\curl -X PUT -d \"user[email]=email$_\" "
 + "-d \"user[password]=pass$_\" "
 + "http://localhost:3000/site/users/user$_";
#For now, comment out the system command and see if $cmd contains correct string value
##print "create user failed\n" if system($cmd);
print $cmd;
#!/usr/bin/perl -w
use strict;
my $cmd = "c:\\curl\\curl -X PUT -d \"user[email]=email$_\" "
 + "-d \"user[password]=pass$_\" "
 + "http://localhost:3000/site/users/user$_";
#For now, comment out the system command and see if $cmd contains correct string value
##print "create user failed\n" if system($cmd);
print $cmd;

Running the above gives a lot of error messages.

text Syntax (Toggle Plain Text)

C:\Users\David\Programming\Perl>test.pl
Use of uninitialized value $_ in concatenation (.) or string at C:\Users\David\P
rogramming\Perl\test.pl line 3.
Use of uninitialized value $_ in concatenation (.) or string at C:\Users\David\P
rogramming\Perl\test.pl line 3.
...etc.......

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

Permalink

Nov 9th, 2009

Re: suggestions for writing automation script

Hi thanks for the reply. Perhaps I should have added a bit more detail. I am running in a windows vista 64bit environment, and the code snippets I provided actually are statements in a loop (that's why you are getting uninitialized value errors if you try to run them on their own).

So if you are trying to duplicate what I am experiencing you need to wrap the snippits in a loop like

perl Syntax (Toggle Plain Text)
for(0..n){
 <snippits go here>
}
for(0..n){
 <snippits go here>
}

However, the code I provided wasn't intended to be run outside of my specific test environment, as there are a many environmental conditions that you would have to try to match as well, which isn't really practical.

My question is more conceptual than anything. I realize that to do what I want I need to somehow split the processes so that perl isn't waiting for curl to return, but not really sure how to do that. I'm going to read up on the perlfork and open functions, hopefully I'll find a solution in one of those.

klactose

Reputation Points: 10

Solved Threads: 1

Light Poster

Offline

43 posts
since Feb 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: variable concat and exec cmd question

Next Thread in Perl Forum Timeline: matching and replacing workaround

DaniWeb Message

Cancel Changes

User Name
Password