| ITERATOR :: Breakon ITERATOR :: Breakon es un módulo PERL para crear iteradores con interrupciones de flujo de control. |
Descargar ahora |
ITERATOR :: Breakon Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Vctor Moral
- Sitio web del editor:
- http://search.cpan.org/~vmoral/Iterator-BreakOn-0.3/lib/Iterator/BreakOn.pm
ITERATOR :: Breakon Etiquetas
ITERATOR :: Breakon Descripción
ITERATOR :: Breakon es un módulo Perl para crear iteradores con interrupciones de flujo de control. ITERATOR :: Breakon es un módulo PERL para crear iteradores con interrupción de flujo de control.Synopsis Use ITERATOR :: Breakon; # # Obtenga una fuente de datos genérica con un siguiente método implementado a quien # devuelve un objeto genérico # # en este ejemplo, el orden de los elementos en el flujo de datos se supone que # para ser: # Ubicación, código postal, nombre # My $ DataSource = $ myschema-> ResultSet ('Mytable') -> búsqueda (); My $ ITER = ITERATOR :: Breakon-> Nuevo (DataSource => $ DataSource, Break_before => , break_after => , on_last_item => sub {impresión "¡Finnecido!";},); # # Hay tres usos Modos: # # Modo completamente automático: inútil, si no se define en el código para los descansos $ iter-> ejecutarse (); # Modo semi-automático: obtenga solo el artículo (ejecute automáticamente los otros # eventos) mientras (MIS $ DATA_ITEM = $ ITER-> Siguiente ()) {# Haga algo con los datos ... 1; } # Modo manual: Obtenga todos los eventos como un objeto mientras (MIS $ EVENT = $ ITER-> Next_Event ()) {if ($ Event-> Nombre () EQ 'antes_location') {# haga algo antes de que llegue una nueva ubicación} elsif ($ Event-> Nombre () EQ 'After_ZIPCODE')) {# Haga algo después del último código postal alcanzado} Elsif ($ Event-> Nombre () EQ 'Siguiente_item') {# Obtenga el artículo (incluida la primera y la última artículos) MIS $ DATA = $ ITER-> Siguiente (); # y haz algo Whit You} Elsif ($ Event-> Nombre () EQ 'Last_Item') {# y haz algo cuando el final de los datos alcanzó}} # Finalizar mientras los requisitos: · Perl
ITERATOR :: Breakon Software relacionado