MQSeries :: Warteschlange. MQSeries :: Warteschlange ist eine OO-Schnittstelle zu den Objekten der MQSeries-Warteschlange.
Jetzt downloaden

MQSeries :: Warteschlange. Ranking & Zusammenfassung

MQSeries :: Warteschlange. Stichworte

Perl-Modul Schnittstelle Mqseries. Oo. OO-Schnittstelle MQSeries-Objekte

MQSeries :: Warteschlange. Beschreibung

MQSeries :: WarteRe ist eine OO-Schnittstelle zu den Objekten der MQSeries-Warteschlange. MQSeries :: WarteRe ist eine OO-Schnittstelle zu den MQSeries-Warteschlangenobjekten. Synopsis verwenden MQSeries; Verwenden Sie MQSeries :: Warteschlange; Verwenden Sie MQSeries :: Nachricht; # # Öffnen Sie eine Warteschlange für Ausgabe, Schleife, um Nachrichten zu erhalten, einigen # Datenbanken mit den Daten aktualisieren. # My $ warterue = mqseries :: warterue-> neu (queuemanager => 'einige.queue.manager', warterue => 'einige.queue', mode => 'input_exclusive',) oder sterben ("Warteschlange nicht möglich). n"); während (1) {mein $ getMmessage = mqseries :: Nachricht-> Neu; $ WarteRe-> Get (Meldung => $ getMmessage, sync => 1,) oder sterben ("MESSAGEN INSTAUMEN)." compcode = ". $ Warteschlange-> Compcode ()." n "." Grund = ". $ Warteschlange-> Grund (). "n"); if (updatesomedatabase ($ getMmessage-> data ())) {$ warteRe-> queueManager () -> Commit () oder sterben ("Änderungen an der Warteschlange nicht begehen)." compcode = ". $ Warteschlange-> Compcode (). "n". "Grund =". $ Warteschlange-> Grund (). "n"); } else {$ warteReue-> queuemanager () -> backout () oder sterben ("Änderungen an der Warteschlange nicht möglich". "comprascode =" . $ Warteschlange-> Vernunft (). "n"); }} # # Legen Sie eine Nachricht in die Warteschlange mit speicherbar, um die Verwendung von # Verweisen als Nachrichtendaten zu ermöglichen. (Hinweis: Dies geschieht für Sie, wenn Sie die # MQSeries :: Nachricht :: speicherbare Klasse verwenden.) # Speicher verwenden Meine $ warteRe = mqseries :: warterue-> neu (queuemanager => 'einige.queue.manager', warterue => 'einige.queue', mode => 'output', putconvert => lagerfähig :: nfreeze, getconvert => Lagerfähig :: thau,) oder sterben ("queue.n können nicht geöffnet.n"); Meine $ putmessage = mqseries :: message-> neu (data => {a => , e => {f => "huh?", G => "wow!",}, H = > 42,},); $ warteRe-> Put (Nachricht => $ Putmessage) oder sterben ("Nachricht nicht auf Queue.n" aufwarten). "compcode =". $ Warteschlange-> Compcode (). "n". "Grund =". $ Warteschlange -> Grund (). "N"); # # Wechselmechanismus zum Angeben der Konvertierungsroutinen. # My $ warterue = mqseries :: warterue-> neu (queuemanager => 'einige.queue.manager', warteRe => 'einige.queue', Mode => 'Ausgang',) oder sterben ("Warteschlange kann nicht geöffnet werden. n"); Meine $ putmessage = mqseries :: message-> neu (data => {a => , e => {f => "huh?", G => "wow!",}, H = > 42,},); $ WarteRe-> Put (Nachricht => $ PutMessage PutConvert => speicherbar :: freeze,) oder sterben ("Nachricht nicht auf Queue.n eingeben." comprascode = " . "Grund =". $ Warteschlange-> Grund (). "N"); Anforderungen: · Perl.

MQSeries :: Warteschlange. Zugehörige Software