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 |
Line | |
---|---|
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.