Desear Desk es un módulo Perl creado para implementar el comando "QUERO".
Descargar ahora

Desear Clasificación y resumen

Desear Etiquetas

Módulo perl implementar implementar la falta quiero comando Desear

Desear Descripción

El deseo es un módulo Perl creado para implementar el comando "QUERO". El deseo es un módulo de Perl creado para implementar el comando 'Want' Command.Synopsis Use lo que desea; Sub foo: Lvalue {if (Want (Qw'lvalue Asignat ')) {Imprimir "Hemos sido asignados", desean (' Asignar '); lnoreturn; } Elsif (QUERO ('Lista')) {RRETURN (1, 2, 3); } Elsif (QUIERO ('BOOL')) {RRETURN 0; } Elsif (¿QUERO (QW'SCALAR! REF ')) {RRETURN 23; } Elsif (Want ('hash')) {rreturn {foo => 17, bar => 23}; } Devolución} Este módulo generaliza el mecanismo de la función WantArray, lo que permite que una función determine en algunos detalles cómo se utilizará su valor de retorno de inmediato. ... Ejemplos Use la carpa 'croak'; Use Want 'Howmany'; Sub números {My $ Count = Howmany (); croak ("no puede hacer una lista infinita") si está definido ($ cuenta); retorno (1 .. $ cuenta); } My ($ uno, $ dos, $ tres) = números (); use la falta 'querer'; Sub Pi () {if (Want ('Array')) {return ; } Elsif (Want ('List')) {retorno (3, 1, 4, 1, 5, 9); } else {return 3; }} Imprimir PI -> ; # Imprime 4 impresión ((PI) ); # Imprime 1 Sub Backstr: Lvalue {if (Want (Qw'lvalue Asign ')) {My ($ A) = QUIERE (' Asignar '); $ _ = inverso $ a; devolver undef; } Elsif (QUERO ('RVALUE')) {MY $ T = SCALAR REVERSO $ _ ; } else {carpa ("No en el contexto Asignar"); } retorno} Imprimir "foo ->", backstr ("foo"), "n"; # foo -> OOF Backstr (My $ Robin) = "nibor"; Imprimir "$ robin es ahora $ robinn"; # $ Robin ahora son requisitos de Robin: · Perl

Desear Software relacionado