topic Re: Script which calls another perl script in Operating System - HP-UX

Script which calls another perl script

Varghese Mathew — Fri, 24 Jan 2003 17:26:56 GMT

Experts,

Could someone guide me on "how to pass on a variable' value to the called in script which is written in perl", where the calling i.e; the parent script is standard Unix Posix shell.

I'm using the Net /FTP functionality in Perl for my scripting. So from my parent Unix script, i will gather the list of files to be trasferred, and that list will be handed over to the Perl script one by one, using which I would have better error code trappings or so.

Thanks in advance.
Cheers !!!
Mathew.

Re: Script which calls another perl script

Steve Labar — Fri, 24 Jan 2003 17:40:37 GMT

When passing arguments to a Perl script, you use them via the @ARGV. In your shell script call the Perl script using the list as an argument.

Good Luck.

Steve

Re: Script which calls another perl script

Steven E. Protter — Fri, 24 Jan 2003 17:45:17 GMT

attached is a script that takes and processes command line arguments.

it is a perl script.

You can process as many arguments seperated by spaces as you need by modifying this script.

Re: Script which calls another perl script

H.Merijn Brand (procura — Fri, 24 Jan 2003 17:47:21 GMT

Read this thread: http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x0e7fef70e827d711abdc0090277a778c,00.html

Tom asked the same, and got the right answers

Re: Script which calls another perl script

A. Clay Stephenson — Fri, 24 Jan 2003 17:48:18 GMT

Hi:

This should serve as an example:

ftpget.pl file1 file1 file3

See the attached Perl script.
------------------------
Another useful technique is getopts:

use Getopt::Std;
use English;
use strict;

our ($opt_m,$opt_a,$opt_c,$opt_e);
my $mode = 0;
my $knt = 0;
my $epoch = 0;
getopts('mace:');

if (defined($opt_e))
{
$epoch = $opt_e;
++$knt;
}
if (defined($opt_m))
{
$mode = 0;
++$knt;
}
if (defined($opt_a))
{
$mode = 1;
++$knt;
}
if (defined($opt_c))
{
$mode = 2;
++$knt;
}

Note that the 'e' arg is followed by a colon and thus expect a value (-e 45) to be supplied while the others simply expect to be found (or not).

Re: Script which calls another perl script

H.Merijn Brand (procura — Fri, 24 Jan 2003 18:03:44 GMT

Recent versions op Getopt::Long make this *MUCH* easier :)

use strict;
use warnings;
use Getopt::Long qw(:config bundling nopermute);

my $mode = 0;
my $epoch = 0;
GetOptions (
"e:i" => \$epoch,
"m" => sub { $mode = 0 },
"a" => sub { $mode = 1 },
"c" => sub { $mode = 2 },
} or die "bad option";

Re: Script which calls another perl script

H.Merijn Brand (procura — Fri, 24 Jan 2003 18:04:05 GMT

Getopt::Long makes this *MUCH* easier :)

use strict;
use warnings;
use Getopt::Long qw(:config bundling nopermute);

my $mode = 0;
my $epoch = 0;
GetOptions (
"e:i" => \$epoch,
"m" => sub { $mode = 0 },
"a" => sub { $mode = 1 },
"c" => sub { $mode = 2 },
} or die "bad option";