hi all -

i'm trying to teach myself some perl, and my first project is to take a bash script i wrote to process some logfiles and port it. that script works well, it's just slow, and the whole thing seemed like a good way to learn.

one really nice thing about my bash script is that it looks at any arguments passed, assigns values to variables, and if it finds something's missing, prompts the user for that information before proceeding. i believe i can make the same logic work using perl, but i'm stumped about some specifics. my googling tells me that i probably want to use Getoptions::Long to handle command line arguments; i've gotten fair results using Switch, but i think GetOptions is likely cleaner. i am, of course, open to suggestions.

anyway, since the script will do a few different operations (a basic find, count occurrences of $string, etc.), i'm using $operation to hold, well, the operation we're performing, and $string to hold the string we're looking for. i believe i can use GetOptions to process arguments properly if i call the script like, for example, this:

logChecker --operation find --address me@domain.com

but what i'd really like to do is to call it like this:

logChecker.pl -f me@domain.dom

(so, find (-f) all instances of the supplied email address)

but i can't figure out how to tell GetOptions to assign values to multiple variables based on one pair of options like that. so that's my question: am i asking too much of GetOptions? is it possible for GetOptions to look at something like '-f me@domain.dom' and assign $operation=find AND $string=me@domain.dom?

i'm hoping it's possible, but i haven't found an example of it yet.

thanks in advance,
-john.

Take a look at Getopt::Std instead, might be more of use for you.

thanks for the reply -

i actually looked at Getopt::Std in the beginning, and i don't think it's what i'm looking for. i also realized i could have been more specific about what i was trying to do. to that end, here's the relevant snippet from the existing bash script i'm trying to replicate:

while [ $# -gt 0 ]; do
case $1 in

-f)     findOnly=1; item=$2; shift 2;;
-v)     set -x; shift;;
-t)     daysBack=$2; shift 2;;
-d)     op=deliveries; shift;;
-h)     op=ham; shift;;
-s)     op=spam; shift;;
-A)     op=all; item=$2; shift;;

esac
done

sub readFromCmdLine()
{
my $helpInfo=0;
GetOptions("type=s" => \$type
"delay=i" => \$configHash{amr_db_mon_delay},
"mode=s" => \$mode,
"help" => \$helpInfo);
if ($helpInfo)
{
print "usage:amr_db_monitor.pl [ --delay=<seconds> ] [--mode=bg & ]\n";
exit 1;
}
}

hi vishal -

thanks for your reply - i couldn't get anywhere with this problem, so i'd put it on the shelf for a while.

can you please explain a bit about what your code does? i can't quite figure it out.

thanks,
-john.

for the most part.. .. . i hate GetOpts commands. Using them is typically
more confusing than just creating a nasty if/then/else statement. This belief
of mine is once again supported by seeing the trouble you're having with it.

So, here's how I would typically approach this problem:

#!/usr/local/bin/perl

### while [ $# -gt 0 ]; do
### case $1 in
###
### -f)     findOnly=1; item=$2; shift 2;;
### -v)     set -x; shift;;
### -t)     daysBack=$2; shift 2;;
### -d)     op=deliveries; shift;;
### -h)     op=ham; shift;;
### -s)     op=spam; shift;;
### -A)     op=all; item=$2; shift;;
###
### esac
### done


for $x ( 0 .. $#ARGV ){

  $arg = $ARGV[$x];

  if ( $arg eq "-f" ){
    $find_only = 1;
    $x++;
    $item = ${ARGV[$x]};
    next;
    }

  if ( $arg eq "-v" ){
    ### no such perl option.
    next;
    }

  if ( $arg eq "-t" ){
    $x++;
    $days_back = ${ARGV[$x]};
    next;
    }

#----------------------------------------------------------------------#
# etc...                                                               #
#----------------------------------------------------------------------#
  }

print "find_only: $find_only \n";
print "item:      $item \n";
print "days_back: $days_back \n";

% girl.pl -f superfrogs -t 123
find_only: 1
item:      superfrogs
days_back: 123

GetOpts is for the benefit of people that use a program, not necessarily the programmer. It emulates/implements the POSIX syntax for command line options, with GNU extensions. That way users (or programmers) that are familiar with those conventions/syntax don't have anything new to learn.