Veri :: Transformatör Bir veri yapısını değiştir, yerinde değiştiriyor
Şimdi İndirin

Veri :: Transformatör Sıralama ve Özet

Veri :: Transformatör Etiketler

yapı Perl modülü perl veri yapısı trafo

Veri :: Transformatör Açıklama

Bir veri yapısını değiştirmek, yerinde değiştirmek Veri :: Transformatör, bir veri yapısını değiştirmek için bir perl modülüdür, yerinde değiştirir. # A: Basit kullanım: # TA içindeki normal dizelerden ekstra boşluk çıkarın. $ trim = sub {local ($ _) = vardiya; $$ _ = ~ s / ^ s * //; $$ _ = ~ s * $ //; }; $ T = Veri :: Transformer-> Yeni (Normal => $ trim); $ t-> travers (ta); # B: Daha karmaşık kullanım: # (a) $ Bütün tepelerin tüm anahtarları $ veri # ve (b) Herhangi bir diziyi Hasşlara dönüştürün: $ UC_HASH = SUP {$ H = Vardiya; @Keys = tuşları% H; foreach (@Keys) {$ UC = UC ($ _); Eğer ($ UC N $ _! Varsa ($ h -> {$ UC})) {$ h -> {$ uch} = $ h -> {$ _}; $ h -> {$ _} sil; } elsif ($ UC ne $ _) {Die "Bad Anahtar $ _: '$ UC' zaten var"; }}}; $ ar_conv = sub {% H = @ {$ _ }; geri dönüş alt {% h}; }; Benim $ T = Veri :: Transformer-> YENİ (HASH => $ UC_HASH, dizi => $ ar_conv, node_limit => 500_000); eval {$ t-> travers ($ veri)}; uyarın "Dönüşüm tamamlanamadı: $ @" Eğer $ @ "; # C: Yıkıcı olmayan geçişler # Aslında hiçbir şeyi değiştirmek zorunda değilsiniz ... $ BOYUTU = 0; $ T = Veri :: Transformer-> YENİ (Normal => Alt {$ Boyut + = Uzunluk ($ {$ _ $ _ $ _ $})}, hash => Alt {$ Boyut + = Uzunluk ($ _) tuşları için { $ _ }},); $ düğümlerim = $ t-> tranverse (ta); "Düğüm sayısı: $ düğüm sayısı "; baskı" tuşlarının boyutu + değerler: $ boyut "; # D: Bir veri yapısının içindeki nesneler # Sınıf adını bir anahtar olarak kullanarak nesneleri etkileyin: My $ t = Veri :: Transformer-> YENİ ('MY :: CLASS' => SUB {Shift-> Set_FOO (' bar ')}); Gereksinimler: · Perl

Veri :: Transformatör İlgili Yazılım