Re: Re: parsing arguments

Yes, this looks nice but I don't have the option of changing the original ksh scripts that would pass the arguments into the new perl program. Maybe I didn't understand your example enough but I still don't see how I can use it. Thanks though. It was a great example in how to use the Getopt::Long module :)

Comment on Re: Re: parsing arguments

Replies are listed 'Best First'.
Re: Re: Re: parsing arguments by Roger (Parson) on Oct 08, 2003 at 02:01 UTC
Ok, you can use a one liner to transform the arguments into key=value pairs in a hash table. `#!/usr/bin/perl -w use strict; use Data::Dumper; my %arg = map{my($key,$val)=split/=/;$key=>$val}@ARGV; print Dumper(\%arg);` [download] And when running this with the command-line parameters in your example, I got the following result: `$VAR1 = { 'lexwhere' => '\'in(\'DIS\', \'DIM\', \'DIR\')\'', 'title' => '\'this is a title\'', 'vchtyp' => 'I', 'jrnltyp' => 'D' };` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: parsing arguments
by Roger (Parson) on Oct 08, 2003 at 02:01 UTC

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %arg = map{my($key,$val)=split/=/;$key=>$val}@ARGV;

print Dumper(\%arg);
[download]

$VAR1 = {
          'lexwhere' => '\'in(\'DIS\', \'DIM\', \'DIR\')\'',
          'title' => '\'this is a title\'',
          'vchtyp' => 'I',
          'jrnltyp' => 'D'
        };
[download]

[reply]
[d/l]
[select]