| Data :: Diver DATA :: DIVER is een eenvoudige, ad-hoc toegang tot elementen van diep geneste structuren. |
Download nu |
Data :: Diver Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Tye McQueen
- Uitgever website:
- http://search.cpan.org/~tyemq/Data-Diver-1.0101/Diver.pm
Data :: Diver Tags
Data :: Diver Beschrijving
Gegevens: Diver is een eenvoudige, ad-hoc toegang tot elementen van diep geneste structuren. Gegevens: Diver is een eenvoudige, ad-hoc toegang tot elementen van diep geneste structuren.SummaryData :: Diver biedt de duik () en Diveval () functies voor ad-hoc toegang tot elementen van diep geneste gegevenstructuren en de Diveref ( ), DiveError (), DivleClear () en Divedie () Support Functions.Synopsis Gebruik Data :: Diver QW (Dive Diverf DiveError); Mijn $ root = {top => ,} ,},],}; # Stelt $ waarde in op 'ja' # ($ root -> {top} {seconde} {sleutel} {drie} {bestaat}): My $ value = duik ($ root, qw (top 1 tweede sleutel 3 drie bestaat); # Stelt $ waarde in op undef () omdat "ontbreekt" niet bestaat: $ value = duik ($ root, QW (Top 1 tweede sleutel 3 drie ontbrekend)); # Sets $ -waarde aan undef () omdat # $ root -> {top} {tweede} {sleutel} is van het einde van de array: $ value = duik ($ root, qw (Top 1 seconde sleutel 4 ...)); # Sets $ -waarde voor undef () omdat # $ root -> {top} {tweede} {sleutel} zou een fatale fout zijn: $ value = duik ($ root, qw (Top 1 Second-toets -5 ...)); # Sets $ REF naar $ ROOT -> {TOP} {NIEUW} {sub} (die # @ {$ root -> {top}} en Automobifieert twee anonieme hashes): My $ Ref = Diverf ($ Root , QW (top 9 nieuwe sub)); # sterven () s omdat "andere" geen geldig nummer is: $ Ref = Diverf ($ root, QW (top andere ...)); # Doet: $ root -> {num} {1} {2} = 3; # (Automoviveert Hashes ondanks de numerieke toetsen.) Diveval ($ wortel, (QW (num 12))) = 3; # Hetzelfde: $ {diverf ($ root, 'num', 1, 2)} = 3; # Haalt boven de waarde, $ waarde = 3: $ -waarde = Diveval ($ root, 'num', 1, 2) op; # Hetzelfde: $ value = $ {diverf ($ root, (qw (num 12)))}; # Probeert $ wortel te doen -> {top} {1} en sterft # omdat $ root -> {top} een array-referentie is: Diveref ($ root, 'top', 1); # Om alleen in de laatste stap te autoriseren: $ Ref = Diverf (DIVE ($ wortel, QW (Top 1 tweede sleutel 3 drie)), 'Missing'); if ($ Ref) {$$ ref = 'ik ook'} anders {mijn ($ nestedref, $ svkey, $ errdesc) = DiveError (); Die "kon $ nestedref via $$ Svkey: $ ERDODESCN" niet bedragen; } Vereisten: · Perl
Data :: Diver Gerelateerde software