| Mqseries :: cola MQSERIES :: Laue es una interfaz OO para los objetos de cola MQSERIES. |
Descargar ahora |
Mqseries :: cola Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Morgan Stanley, Dean Witter and Co.
- Sitio web del editor:
- http://search.cpan.org/~hbiersma/MQSeries-1.25/MQSeries/Queue.pm
Mqseries :: cola Etiquetas
Mqseries :: cola Descripción
MQSERIES :: la cola es una interfaz OO para los objetos de cola MQSERIES. MQSERIES :: la cola es una interfaz OO para los objetos de cola MQSERIES. HSYNOPSIS Use MQSERIES; Usa MQSERIES :: Cola; Use MQSERIES :: MENSAJE; # # Abra una cola para la salida, el bucle Obtenga mensajes, actualizando algunos # Base de datos con los datos. # My $ Queue = MQSeries :: Queue-> Nuevo (QueueManager => 'some.queue.manager', cola => 'some.queue', MODE => 'input_exclusive',) o muere ("No se puede abrir la cola. norte"); Mientras (1) {My $ GetMessage = MQSeries :: Mensaje-> Nuevo; $ cola-> obtener (mensaje => $ getmessage, sincronización => 1,) o muere ("No se puede obtener Messagen". "Compiode =". $ Queue-> Compiode (). "N". "Razón =". $ cola-> Razón (). "N"); if (UpdateSomedAdatabase ($ GetMessage-> Data ())) {$ Queue-> QueueManager () -> Commit () o Die ("No se puede confirmar cambios en queue.n". "Compiode =". $ colco-> compsode (). "N". "Razón =". $ cola-> Razón (). "N"); } else {$ Queue-> QueueManager () -> BackOut () o Muele ("No se puede retroceder en los cambios en Queue.n". "Compiode =". $ colco-> compsode (). "n". "Razón =" . $ cola-> Razón (). "N"); }} # # Ponga un mensaje en la cola, use almacenable para permitir el uso de # referencias como datos de mensajes. (Nota: Esto se hace para usted si usa el # MQSERIES :: MENSAJE :: Clase almacenable). # Use almacenable; My $ Queue = MQSeries :: Queue-> Nuevo (QueueManager => 'some.queue.manager', cola => 'some.queue', modo => 'salida', putconvert => almacenable :: nfreeze, getconvert => Almacable :: descongele,) o muere ("No se puede abrir Queue.N"); My $ PUTMESSASE = MQSERIES :: MENSAJE-> Nuevo (DATOS => {A => , E => {F => "¿Huh?", G => "WOW!",}, H = = > 42,},); $ cola-> PUT (Mensaje => $ PutMessage) o Muele ("No se puede colocar el mensaje en queue.n". "compchode =". $ colche-> compsode (). "n". "Razón =". $ cola -> Razón (). "N"); # # Mecanismo alternativo para especificar las rutinas de conversión. # My $ Queue = MQSeries :: Queue-> Nuevo (QueueManager => 'some.queue.manager', cola => 'some.queue', MODE => 'SALIDA',) O DIE ("No se puede abrir la cola. norte"); My $ PUTMESSASE = MQSERIES :: MENSAJE-> Nuevo (DATOS => {A => , E => {F => "¿Huh?", G => "WOW!",}, H = = > 42,},); $ cola-> PUT (Mensaje => $ PutMessage PutConvert => Alterable :: Freeze,) o Muele ("No se puede colocar el mensaje en queue.n". "Compcode =". $ colco-> compsode (). "n" . "Razón =". $ Cola-> Razón (). "N"); Requisitos: · Perl
Mqseries :: cola Software relacionado