| Quer Quer é um módulo Perl criado para implementar o comando `deseja '. |
Baixe Agora |
Quer Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Robin Houston
- Site do editor:
- http://search.cpan.org/~robin/Want-0.17/Want.pm
Quer Tag
Quer Descrição
Quer é um módulo Perl criado para implementar o comando `deseja '. Deseja é um módulo Perl criado para implementar o comando `deseja 'com o uso de uso; Sub foo: lvalue {if (deseja (QW'lValue Atribuir ')) {Imprimir "Nós fomos atribuídos", quero (' Atribuir '); loreturn; } elsif (quer ('lista')) {rreturn (1, 2, 3); } elsif (quer ('bool')) {rreturn 0; } elsif (quer (qw'scalar! ref ')) {rreturn 23; } elsif (quer ('hash')) {rreturn {foo => 17, bar => 23}; } Return} Este módulo Generaliza o mecanismo da função GARARARRAY, permitindo que uma função determine em algum detalhe como seu valor de retorno será imediatamente usado. ... exemplos usam carpa 'croak'; usar quer "howmany"; sub números {minha contagem de $ = HOWMANY (); Croak ("não pode fazer uma lista infinita") se! Definido ($ Contagem); return (1 .. $ Contagem); } meu ($ um, $ dois, $ três) = números (); Use quer 'quer'; sub pi () {if (quer ('array')) {return ; } elsif (quer ('lista')) {return (3, 1, 4, 1, 5, 9); } else {return 3; }} Imprimir PI -> ; # imprime 4 impressão ((pi) ); # imprime 1 sub backstr: lvalue {if (quer (qw'lvalue atribuir ')) {my ($ a) = deseja (' atribuir '); $ _ = inverter $ a; retorna undef; } ELSIF (quer ('rvalue')) {my $ t = verso inverso escalar $ _ ; } else {carpa ("não no contexto"); } Return} Imprimir "foo ->", backstr ("foo"), "n"; # foo -> oof backstr (meu $ ROBIN) = "nibor"; Imprimir "$ Robin é agora $ Robinn"; # $ Robin agora é requisitos de Robin: · Perl.
Quer Software Relacionado