| Argv. fornece uma interface OO a um vetor arg |
Baixe Agora |
Argv. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- David Boyce
- Site do editor:
- http://search.cpan.org/~dsb/
Argv. Tag
Argv. Descrição
Fornece uma interface OO para um vetor arg A Argv é um módulo Perl que fornece uma interface OO a um Arg Vector.Synopsis usa argv; # Uma maneira rotunda de obter a versão do Perl. meu $ pl = argv-> novo (qw (perl -v)); $ pl-> Exec; # Corra / bin / gato, mostrando como fornecer opções de "predigeradas". Argv-> Novo ('/ bin / gato', , @Argv) -> sistema; # Uma maneira rotunda de globbing. meu $ echo = argv-> novo (qw (echo m *)); $ echo-> glob; minhas $ globbed = $ echo-> qx; imprimir "'echo m *' globs para: $ globbed"; # Uma demonstração de comportamento de cabeça (abortando cedo) meu $ maxlinestoprint = 5; Meu $ Callback = Sub {Imprimir Shift; return! (- $ maxlinestoprint); }; Minha $ Head = Argv-> Novo ('Ls', ); $ Head-> Readonly ("Sim"); $ Head-> Tube ($ Callback); # Uma demonstração do comportamento builtin xargs. my @files = split (/ s + /, $ globbed); meu $ ls = argv-> novo (qw (ls -d -l), @files); $ ls-> analisar (QW (d l)); $ ls-> dbglevel (1); $ ls-> qxargs (1); meu @long = $ ls-> qx; $ ls-> dbglevel (0); Imprimir @long; # Uma demonstração de como usar conjuntos de opções em um programa de wrapper. @Argv = qw (que -a -y foo -r); # hacke up um @Argv my $ OMS = argv-> novo (@Argv); # Instantiate $ Quem-> dbglevel (1); # definir verbosidade $ OWER-> OPTSET (QW (UNAME FOO OMS)); # Defina 3 conjuntos de opções $ Quem-> Parseuname (QW (A m n P)); # Analise estes para definir o Uname $ OWER-> PARSEFOO (QW (Y = S Z)); # analise -y e -z para foo $ Quem-> parsewho ('r'); # Para o 'Quem' cmd warn "tem -y bandeira na opção definir fofa" se $ OMS-> flagfoo ('y'); Imprimir argv-> Novo ('Uname', $ Quem-> Oprsuname) -> QX; $ Quem-> Prog (LC $ Quem-> Prog); # Força $ 0 a minúsculas $ OWER-> EXEC (QW (OMS)); # Exec que os requisitos da OMS CMD: · Perl.
Argv. Software Relacionado