Das :: Wachtrij Bind een array over een tokytyrant db
Download nu

Das :: Wachtrij Rangschikking & Samenvatting

Das :: Wachtrij Tags

database Perl-module Array tie Array TokyTyrant databank TokyTyrant

Das :: Wachtrij Beschrijving

Bind een array over een tokytyrant db Bind een array over een tokyTylant DB en laat het duwen, pop-shift-gegevens. Stropdas :: Wachtrij vereist Tokyotyrant (database en perl-module.) Als de serialisatie vereist is, is de module-gegevens :: Serilizer ook vereist dat de normale arrayfunctie aanwezig is dat Push POP-verschuiving bestaat Sync-reparatie De volgende functie wordt niet geïmplementeerd. Extend Store Delete Splicesynopsis Gebruik TIE :: Wachtrij; Gebruik gegevens :: Dumper; ## Queue Creation # Deze wachtrij wordt niet opnieuw geïnitialiseerd bij elke uitvoering van het script # De standaardnaamruimte is 'Tie-Queue' # en elk item zijn niet-geserialiseerd stropdas mijn @a, 'Tie :: Queue', '127.0. 0,1 ', 1978, 0; # Deze wachtrij wordt niet opnieuw geïnitialiseerd bij elke uitvoering van het script # en elk item zijn niet-geserialiseerd # De naamruimte is 'Second_QUEUE' DAS MY @B, 'TIE :: QUEE', '127.0.0.1', 1978, 1, 0, 'tweede_queue'; ## Zet wat gegevens in de wachtrij voor (101 .. 110) {Push @a, $ _; } Voor (1001 .. 1005) {Push @AB, $ _; } Duw @B, 'wat tekst'; Push ## Toon de inhoud van de Dumper van de wachtrij (@A); ## Print de grootte van de wachtrij afdrukken "Grootte van array =". Scalar @a. " "; ## Verwijder het nieuwste geduwde element uit de wachtrij (de nieuwste) $ RES1 = POP @A; Print" Nieuwste element $ 1 ", afdrukken" Grootte van array = ". SCALAR @A." "; Print Dumper (@A); $ res2 = $ A ; print" element 3 = $ res2 "; ## Verwijder het eerste element uit de wachtrij (de oudste) $ Res3 = SHIFT @A; Print" First Element $ Res3 ", afdrukken" Grootte van array = ". SCALAR @A." "; Print Dumper (@A); als (bestaat $ A ) {print" elem 4 bestaat ";} anders {print" elem 4 bestaat niet ";} Als (bestaat $ A ) {print" elem 40 bestaat ";} anders {print" Elem 40 bestaat niet ";} (gebonden @A) -> duidelijk; print" grootte van array = ". SCALAR @A." "; ############################### # Deze wachtrij wordt opnieuw geïnitialiseerd bij elke uitvoering van het script # en elk item is geserialiseerd # en de naamruimte Is 'Third_Queue_Serialized' Bind My @c, 'Tie :: Queue', '127.0.0.1', 1978, 1, 1, 'Third_queue_Serialized'; My% Test = (A => 'Key_A', B => 'Key_B' , C => 3); Print Dumper (\% test); duw @D, \% test; mijn $ r = pop @d; print dumper ($ R) ############## ########## Vereisten: · Perl

Das :: Wachtrij Gerelateerde software