| HASH :: TYPE HASH :: Type Module bevat pseudo-hashes als arrays vastgebonden aan een "type" (lijst met velden). |
Download nu |
HASH :: TYPE Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Laurent Dami
- Uitgever website:
- http://search.cpan.org/~dami/
HASH :: TYPE Tags
HASH :: TYPE Beschrijving
HASH :: Type module bevat pseudo-hashes als arrays gebonden aan een "type" (lijst met velden). HASH :: Type Module bevat pseudo-hashes als arrays vastgebonden aan een "type" (lijst met velden). Synopsis Gebruik Hash :: Type; # Maak een hash :: Type My $ personype = New Hash :: Type (QW (FirstName Lastname City)); # Creëer en vul een hashes in vast aan $ personage Tie% Wolfgang, $ personypype, "Wolfgang Amadeus", "Mozart", "Salzburg"; $ LUDWIG = NIEUW $ PERSONYTYPE ("LUDWIG", "Van Beethoven", "Wenen"); $ JSB = nieuw $ personypype; $ JSB -> {City} = "Leipzig"; @ {$ JSB} {qw (FirstName Lastname)} = ("Johann Sebastian", "Bach"); # Velden toevoegen Dynamisch $ PersonyType-> Toevoegen ("Geboorte", "Death") of Die "Velden niet toegevoegd"; $ Wolfgang {geboorte} = 1750; # Meer compleet voorbeeld: Lees een plat bestand met headers op de eerste regel My ($ Headerline, @Datalines) = Kaart {Chomp; $ _}; Mijn $ HT = New Hash :: Type (Split / T /, $ Headerline); Foreach My $ Line (@Datalines) {My $ Data = Nieuwe $ HT (Split / T /, $ Line); Work_with ($ Gegevens -> {Sommefield}, $ Gegevens -> {Anderotherfield}); } # Een alternatief voor de tijd :: gmtime en tijd :: lokaal mijn $ TimeType = Nieuwe HASH :: TYPE QW (SEC MIN-uur MAD MON JAAR WAGER YEAG); Mijn $ Lokaal = Nieuw $ TimeGype (lokaal); mijn $ gmtime = nieuw $ timeetype (gmtime); Print $ Lokaal -> {uur} - $ gmtime -> {uur}, "uren verschil ten opzichte van GMT"; # Vergelijking Functions My $ FINAGE = $ PERSONYTYPE-> CMP ("Geboorte: -Num, achternaam, voornaam"); Mijn $ Bynamelepel = $ PersonyType-> CMP (LASTNAME => {Lengte ($ B) Lengte ($ A)}, achternaam => 'alfa', voornaam => 'alfa'); ShowPerson ($ _) Foreach (Sorteer $ Bago @People); showperson ($ _) foreach (sorteer $ Bynamelgth @people); # Speciale vergelijkingen: Datums mijn $ US_DATECMP = $ myhashtype-> CMP ("somedatefield: m / d / y"); My $ FR_INVERSEDATECMP = $ MYHASHTTYPE-> CMP ("OOEDATEFIELD: -D.M.Y"); Vereisten: · Perl
HASH :: TYPE Gerelateerde software