Getting fields into perl script

[Hugh Kang]

In Unix script, I use $1 and $2 to get the fields.
For example, when I do,

./start_test start 10

In start_test script, I check
case $1 in
'start')

.....
TIME=$2
.....
;;
esac

How do I do the same thing with a perl script?

Many thnaks in advance
Hugh

 

[Anno Siegel]

In Unix script, I use $1 and $2 to get the fields.
For example, when I do,

In start_test script, I check
case $1 in
'start')

.....
TIME=$2
.....
;;
esac

How do I do the same thing with a perl script?

Well, Perl doesn't have a case statement, so there isn't a direct
equivalent. (See "perldoc -q case", however.)

This does about the same (untested):

#!/usr/bin/perl
use strict; use warnings;

my $time;
$time = $ARGV[ 2] if $ARGV[ 1] eq 'start';

Anno

 

[Jens M. Felderhoff]

In Unix script, I use $1 and $2 to get the fields.
For example, when I do,

In start_test script, I check
case $1 in
'start')

.....
TIME=$2
.....
;;
esac

How do I do the same thing with a perl script?

SWITCH: {
...
$ARGV[0] eq 'start' && do {
...
$time = $ARGV[1];
...
last SWITCH;
};
...
}

But, never forget, TMTOWTDI

Cheers

Jens

 

[Tad McClellan]

In Unix script, I use $1 and $2 to get the fields.

You access command line arguments in Perl via the @ARGV array.

print "$_\n" for @ARGV; # echo all command line arguments