Using both ARGV and CGI in a Perl script

Question

I am writing a Perl script that can run both from command line and from a web page. The script receives a couple of parameters and it reads those parameters through $ARGV if it started from command line and from CGI if it started from a web page. How can I do that?

my $username;
my $cgi = new CGI;
#IF CGI
$username = $cgi->param('username');
#IF COMMAND LINE
$username = $ARGV[0];

The standard-compliant variable to check against is called GATEWAY_INTERFACE: stackoverflow.com/questions/1914966/… stackoverflow.com/questions/3086655/… stackoverflow.com/questions/4853948/… — daxim
– daxim, Commented Nov 21, 2011 at 18:15

larsen · Accepted Answer · 2011-11-21 17:01:33Z

9

With CGI.pm you can pass params on the command line with no need to change your code. Quoting the docs:

If you are running the script from the command line or in the perl debugger, you can pass the script a list of keywords or parameter=value pairs on the command line or from standard input (you don't have to worry about tricking your script into reading from environment variables)

Wrt your example, it's a matter of doing:

perl script.cgi username=John

answered Nov 21, 2011 at 17:01

larsen

1,4312 gold badges15 silver badges27 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

yko · Accepted Answer · 2011-11-21 17:22:03Z

6

Mojolicious framework uses battle-proven environment autodetection that works on different servers (not Apache only).

So you can use following code:

if (defined $ENV{PATH_INFO} || defined $ENV{GATEWAY_INTERFACE}) {
    # Go with CGI.pm
} else {
    # Go with Getopt::Long or whatever
}

answered Nov 21, 2011 at 17:22

yko

2,71014 silver badges15 bronze badges

Comments

ikegami · Accepted Answer · 2011-11-21 17:14:08Z

4

The cleanest way might be to put the meat of your code in a module, and have a script for each interface (CGI and command line).

You could test for the presence of CGI environment variables ($ENV{SERVER_PROTOCOL}) to see if CGI is being used, but that would fail if the script is used as a command-line script from another CGI script.

If all you want to pass via @ARGV are form inputs, keep in mind that CGI (the module) will check the @ARGV for inputs if the script is not called as a CGI script. See the section entitled "DEBUGGING" in the documentation.

answered Nov 21, 2011 at 17:14

ikegami

391k17 gold badges291 silver badges555 bronze badges

1 Comment

raz3r Over a year ago

I guess you're right, in fact I am going to create a core module and two separate interfaces, thank you to all of you guys :)

parapura rajkumar · Accepted Answer · 2011-11-21 16:28:38Z

3

When invoked through CGI your script will additional environment variables set. You can use them in your if condition.

For example, you could use HTTP_USER_AGENT

if ( $ENV{HTTP_USER_AGENT} )
{
   #cgi stuff
}
else
{
   #command line
}

But if your real need is to test a CGI script stand alone, Try ActiveState Komodo, The debugger lets to Simulate CGI Environment

answered Nov 21, 2011 at 16:28

parapura rajkumar

24.5k2 gold badges58 silver badges86 bronze badges

Collectives™ on Stack Overflow

Using both ARGV and CGI in a Perl script

4 Answers 4

Comments

Comments

1 Comment

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related