[Cascavel-pm] Getopts
Alceu R. de Freitas Jr.
glasswalk3r em yahoo.com.br
Quarta Junho 28 12:38:15 PDT 2006
<code>
use Getopt::Std;
use warnings;
use strict;
my %opts;
getopts('c:t:h', \%opts);
die "Erro: Nao existe essa opcao! Digite -h para
Ajuda\n" unless (scalar(keys(%opts)));
</code>
Repare que a mensagem de erro não condiz com seu email
original aonde você pede para dar uma mensagem de erro
quando o usuário não digita opção nenhuma. Se você só
quer só testar por opções inválidas, basta associar o
hash %opts (e *^%$#!!, eu já escrevi isso no email
anterior!).
Alceu
--- Patty Silva <ptfzs em yahoo.com.br> escreveu:
> :) Sorry again People!!
>
> vai la:
> use Getopt::Std;
> use vars qw($opt_h);
> use vars qw($opt_c);
> use vars qw($opt_t);
>
>
> &getopts('c:t:h') ||die "Erro: Nao existe essa
> opcao! Digite -h para Ajuda\n";
>
> die &about if $opt_h;
>
>
> So que quando digito nada ele rda o programa..
> quero que de algum erro..Vc deve digitar alguma
> opcao ou -h para Help..
> :P
>
> Obrigada
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
Mais detalhes sobre a lista de discussão Cascavel-pm