Lines Matching refs:options
192 my( $lcid, @parts, $grepdef, $options, $single);
195 for ($options = 0; $options < @ARGV && $ARGV[$options] =~ /^--/; ++$options)
197 if ($ARGV[$options] eq '--single') { $single = 1; }
198 else { print "Unknown option: $ARGV[$options]\n"; }
200 if (@ARGV == 1 + $options)
203 if ($ARGV[$options] =~ /^0/) {
205 elsif ($ARGV[$options] =~ /^[0-9]/) {
206 $lcid = $ARGV[$options]; }
209 $grepdef = $ARGV[$options];
215 elsif (@ARGV == 2 + $options)
217 for (my $i = $options; $i < 2 + $options; ++$i)