Changeset fc8707b for client/bin/gbq
- Timestamp:
- Oct 2, 2010, 9:20:02 PM (14 years ago)
- Branches:
- master, debian, mac, no-cups
- Children:
- a5cf43b
- Parents:
- 6b7441a
- git-author:
- Jessica B. Hamrick <jhamrick@…> (10/02/10 21:20:02)
- git-committer:
- Jessica B. Hamrick <jhamrick@…> (10/02/10 21:20:02)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
client/bin/gbq
r6b7441a rfc8707b 11 11 use Getopt::Long; 12 12 13 my $usage = "Usage: gbq [-q QUEUE]\n"; 13 # usage 14 my $usage = <<USAGE; 15 Usage: gbq [options] [-q QUEUE] 14 16 17 -q, --queue Specify a queue other than the default 18 -h, --help Print this message 19 USAGE 20 21 # initialize the variables for the options 15 22 my $q = ""; 16 GetOptions ('q|queue=s' => \$q); 23 my $help = 0; 24 25 # parse the options 26 GetOptions ('q|queue=s' => \$q, 27 'h|help' => \$help); 28 29 # if the -h flag was passed, then print the usage and exit 30 if ($help) { 31 print $usage; 32 exit 0; 33 } 17 34 18 35 # if the -q option is not specified, then assume we're using the
Note: See TracChangeset
for help on using the changeset viewer.