Thanks, the first one works great. Now after all that trouble is there any
way to use Getopt::Std to parse these? I found it in the Perl Cookbook.
Here's what it says:
use Getopt::Std;
# -v ARG, -D ARG, -o ARG, sets $opt_v, $opt_D, $opt_o
getopt("vDo");
# -v ARG, -D ARG, -o ARG, sets $args{v}, $args{D}, $args{o}
getopt("vDo", \%args);
getopts("vDo:"); # -v, -D, -o ARG, sets $opt_v, $opt_D, $opt_o
getopts("vDo:", \%args); # -v, -D, -o ARG, sets $args{v}, $args{D}, $args{o}
Now, that is fine but can it get multiple values for a single argument, '-f'
here and store an array reference in the hash for all the values of '-f'
arguments? If so, it may be easier. Thanks for all your help.
--Jess
-----Original Message-----
From: Chas Owens [mailto:[EMAIL PROTECTED]]
Sent: Monday, February 04, 2002 2:56 PM
To: Balint, Jess
Subject: RE: Hash Question
You know, I almost always test my examples, and when I don't it always
bites me. The following examples have been tested this time. Try one
of these instead:
<example type="short">
for (0..$#ARGV) {
if ($ARGV[$_] =~ /^-f(.+)|^-f/) {
if (defined($1)) {
push @keys, $1;
} else {
$_++;
push @keys, $ARGV[$_];
}
}
}
</example>
<example type="perlish">
while (@ARGV) {
$_ = shift @ARGV;
if (/^-f(.+)|^-f/) {
if (defined($1)) {
push @keys, $1;
} else {
push @keys, shift @ARGV;
}
}
}
</example>
<example type="safer perlish">
my @argv = @ARGV;
while (@argv) {
$_ = shift @argv;
if (/^-f(.+)|^-f/) {
if (defined($1)) {
push @keys, $1;
} else {
push @keys, shift @argv;
}
}
}
</example>
On Mon, 2002-02-04 at 13:53, Balint, Jess wrote:
> That seems like the best way to do it, but if I enter -f 3, $tables[n] = "
"
> and not 3 like it should. I think that $1 is defined as " " in this
> argument. What can I do about this?
>
> -----Original Message-----
>
> On Fri, 2002-02-01 at 15:23, Balint, Jess wrote:
> > A scalar value based on the number of command line arguments put into an
> > array.
> >
> > if( $ARGV[$_] =~ /^-f/ ) {
> > # PARSE TABULATION VALUES
> > if( $table ) {
> > $table = $ARGV[$_];
> > $table =~ s/-f//;
> > $table = $ARGV[$_+1] if( length( $table ) == 0
);
> > $tables[$tblcnt] = $table;
> > $tblcnt++;
> > } else {
> > $table = $ARGV[$_];
> > $table =~ s/-f//;
> > $table = $ARGV[$_+1] if( length( $table ) == 0
);
> > $tables[0] = $table;
> > $tblcnt++;
> > }
> >
> <snip />
>
> First off, you don't need $tblcnt. @tables in a scalar context will
> return the number of elements and you can simply push the value onto the
> array (see perldoc -f push). This also gets rid of the if $table
> business.
>
> Second off, I assume that you are trying to treat -f table and -ftable
> the same. In which case shouldn't you increment $_ if you grab the next
> arg?
>
> if ( $ARGV[$_] =~ /^-f(.*)/ ) {
> # PARSE TABULATION VALUES
> if (defined($1)) { #if there was something after -f
> push @tables, $1;
> } else { #otherwise use next arg
> $_++;
> push @tables, $ARGV[$_];
> }
> }
>
> print "There were ", scalar(@tables), "tables on the cmdline.\n";
>
>
> Thirdly, where are the keys for the hashes going to come from? And how
> are you going to know at which level in the hash you want to store the
> data?
>
> To clarify:
> In my example I read the keys from the first three words of a line where
> the first word was the first key, the second word was the second key,
> and the third word was the the third key and then treated the fourth
> word as the data.
>
> --
> Today is Boomtime the 32nd day of Chaos in the YOLD 3168
> Hail Eris!
>
> Missle Address: 33:48:3.521N 84:23:34.786W
--
Today is Setting Orange the 35th day of Chaos in the YOLD 3168
Hail Eris, Hack Linux!
Missle Address: 33:48:3.521N 84:23:34.786W
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
