On [03-02-2005] 17:16 +0200, ANDONE Mures wrote:
> Sal.
> Am o problema cu perl si getopts. stie cineva cum as putea sa fac ca
> getopts sa nu'mi mai afiseze warningurile daca dau alte optiuni?
> ex: (fisierul se cheama w.pl )
> - ----------
> #!/usr/bin/perl
> use Getopt::Std;
> getopts('u:p:h', \%opt) or usage();
> #...
> sub usage(){print "lala"; exit 0;}
> #...
> print $opt{u}
> - ---------
> daca rulez cu:
> perl w.pl -u momo
> merge, imi afiseaza momo
> daca rulez cu:
> perl w.pl -u momo -aaaaaaa
> imi afiseaza de 7 ori ca Unknown option: a
> any ideas?
>
> PS: am ajuns la o solutie de compromis:
> vazand ca getopts scrie pe stderr, am redirectat stderr in /dev/null :D
> ..da' ceva mai elegant nu exista?
Sa inteleg ca e doar o problema de estetica ?
Folosesti 'getopt' sau comentezi linia cu warn in Getopt/Std.pm.
#!/usr/bin/perl -w
use strict;
use Getopt::Std ();
$|=1;
my %opts = ();
my $wtf = Getopt::Std::getopt('uph', \%opts);
if ($wtf) { usage(); }
--
perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'
---
Detalii despre listele noastre de mail: http://www.lug.ro/
