Warteschlange :: MMAP. Perl-Erweiterung für freigegebene Warteschlange über MMAP-ED-Datei
Jetzt downloaden

Warteschlange :: MMAP. Ranking & Zusammenfassung

Warteschlange :: MMAP. Stichworte

Perl-Modul Perl geteilt MMAP. gemeinsame Warteschlange.

Warteschlange :: MMAP. Beschreibung

Perl-Erweiterung für freigegebene Warteschlange über MMAP-ED-Datei Warteschlange :: MMAP ist eine freigegebene Kreiswarteschlange über mMAP-ed file.useFull für eine Munitiony Process Task-Warteschlange. Eine Prozess (ES) Push-Task-Nachricht und andere Prozesse (ES) POP und Führen Sie diese Aufgaben aus. Zugriff mit der Verriegelung (FCNTL) garantiert Right Order ohne Konflikte. Wenn die gedrückten Daten die Größe größer haben, können Sie die Datensätze in einigen Datensätzen platzieren. Wenn die gedrückten Daten die Größe mehr aufweist Länge der Warteschlangenlänge => 20, # Länge Ein Datensatz (wenn Daten länger Datensatz, Daten in einigen Datensätzen platziert) mod => 0666, # MACHEN MODE FUME FÜR); Push $ string Push $ string in die warteschlange mit block return false auf fehler Rücksendung ($ time_spend, $ time_wait_lock) in Array Context Return $ time_spend in scalar contextpop POPED Top-Wert von der Warteschlange mit Blockrückgabe C auf leeren queuetop kopieren top Wert von der warteschlange ohne blockrückgabe c auf leer queeedrop Drop Top Wert Von der Warteschlange mit BlockLength-Rendite der Datensätze in Queuestat Return-Array-TOP - Index-Top-Datensätze unten - Index Zuletzt Datensätze Que_len - Kapazität der Warteschlange REC_LEN - lted Eine Rekordlänge Länge des Datensatzes für 4 Bytes. Länge der Datei für 4k.synopsis verwenden Warteschlange :: mMAP; Meine $ q = Neue Warteschlange :: mMAP (Datei => "file.dat", warteRe => 10, # Länge der Warteschlangenlänge => 20, # Länge Ein Datensatz (wenn Daten länger Datensatz, Daten in einigen Datensätzen platziert) mod => 0666, # MODE-Modus für Datei); es sei denn ($ q-> Push ("abcdefghijklmnopqrstuvwxyz")) {Die "Fail-Push"; } My $ w = $ Q-> Push ("abcdefghijk"); Printf "% .6f \ n", $ w; meine ($ t, $ l) = $ q-> Push ("abcdefghijk"); Printf "TOTAL =% .6F, WAIT LOCK% .6F \ N", $ T, $ l; drucken "Länge der Warteschlange ist", $ q-> Länge, "\ n"; meine $ top = $ q-> top; während (definiert (mein $ v = $ q-> pop)) {drucken $ v, "\ n"; } Drucken "Keine Daten \ n"; Anforderungen: · Perl.

Warteschlange :: MMAP. Zugehörige Software