Daten :: Transformator. Traverse Eine Datenstruktur, die Sie daran ändern
Jetzt downloaden

Daten :: Transformator. Ranking & Zusammenfassung

Daten :: Transformator. Stichworte

Struktur Perl-Modul Perl Datenstruktur Transformator

Daten :: Transformator. Beschreibung

Durchqueren Sie eine Datenstruktur, ändern Sie es an Ort und Stelle Data :: Transformer ist ein Perl-Modul, um eine Datenstruktur zu durchqueren, und ändern Sie es an Ort.Synopsis Verwenden Sie Daten: Transformator; # A: Einfache Verwendung: # Trimmen Sie zusätzliche Whitespace von normalen Saiten in TA. mein $ trim = sub {lokal ($ _) = Schicht; $$ _ = ~ ~ s / ^ s * //; $$ _ = ~ s / s * $ //; }; meine $ t = Daten :: Transformator-> NEU (Normal => $ trim); $ t-> Traverse (TA); # B: mehr komplexe Nutzung: # (a) Großbuchstaben Alle Tasten in allen Hashes, die in $ Data # und (B) enthalten sind, konvertieren Sie alle Arrays in Hashes: My $ UC_Hash = Sub {My $ H = Shift; meine ungenys = schlüssel% h; foreach (@Eys) {My $ uc = uc ($ _); if ($ uc ne $ _! existiert ($ h -> {$ uc})) {$ h -> {$ uc} = $ h -> {$ _}; löschen $ h -> {$ _ _}; } ELSIF ($ UC NE $ _) {Die "BAD-Key $ _:" $ UC "existiert bereits"; }}}; mein $ ar_conv = sub {my% h = @ {$ _ }; Sub sub \ \% h}; }; MEINE $ T = Daten :: Transformator-> NEU (Hash => $ UC_Hash, Array => $ ar_conv, node_limit => 500_000); EVAL {$ t-> Traverse ($ data)}; Warn "konnte die Transformation nicht abschließen: $ @" Wenn $ @; # C: Nicht zerstörerische Traversal # Sie müssen eigentlich nichts ändern ... meine $ size = 0; My $ t = Daten :: Transformator-> NEU (Normal => Sub {$ {$ ® + = Länge ($ {$ _ })}, Hash => sub {$ size + = länge ($ _) für Schlüssel% { $ _ }},); meine $ Knoten = $ t-> tranverse (ta); drucken "Anzahl der Knoten: $ Knoten "; drucken" Größe der Tasten + Werte: $ Größe . Bar ')}); Anforderungen: · Perl.

Daten :: Transformator. Zugehörige Software