source:
trunk/tp-perl/getoptstd.pl
@
351
| Last change on this file since 351 was 268, checked in by nanardon, 13 years ago | |
|---|---|
| File size: 142 bytes | |
| Rev | Line | |
|---|---|---|
| [268] | 1 | #!/bin/env perl -W |
| 2 | ||
| 3 | use strict; | |
| 4 | use Getopt::Std; | |
| 5 | ||
| 6 | getopts('tp:', \my %opts); | |
| 7 | ||
| 8 | $opts{p} ||= ''; | |
| 9 | ||
| 10 | if (!$opts{t}) { | |
| 11 | print $opts{p} . "\n"; | |
| 12 | } |
Note: See TracBrowser
for help on using the repository browser.
