#!/usr/bin/perl -w use strict; use Getopt::Std; sub usage { print <<NOW; usage : $0 [-h] -l<something> -t<somethig> -f<file> syntax: -h prints this help text and exists -l sometihng -t someting -f something NOW exit 0; } my $o={} ; getopt('hltf', $o); #usage() if $$o{h}; if ($$o{h}) { usage(); }
In reply to getopt::std help by convenientstore
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |