Array :: Autojoin. ArrayRefs che stringe come join (",", @ $ IT)
Scarica ora

Array :: Autojoin. Classifica e riepilogo

Array :: Autojoin. Tag

modulo Perl Vettore Array AutoJoin. mkarray autojoin

Array :: Autojoin. Descrizione

Arrayrefs che stringiono come join (",", @ $ IT) Array :: AUTOJOIN è un modulo Perl estremamente breve e semplice che fornisce una funzione esportata, MKarray (... Articoli ...), che rende un arrayRef (contenente tali articoli) appartenente a una classe che non fa nulla di diverso che specificando a Perl che quando vuoi il valore di stringa di quell'arrayref, invece di dare qualcosa come "array (0x171568f)", restituisce una stringa felice composta da join (',', @ $ arrayref). Insolo, piuttosto incidentalmente: * nel contesto booleano (Come la stampa "YOW!" Se $ Arrayref), il valore booleano è vero se il riferimento è a un array contenente almeno un valore booleano-vero. Quindi: mkarray () è booleano-falso - nessun valore su tutti i mkarray ('', '' ", '', '') è booleano-falso - nessun valore è vero mkarray ('', 0, undef) è booleano -False - Nessun valore è vero mkarray ('', 123) è booleano-true - c'è un valore reale (123) mkarray ("torta") è booleano-vero - c'è un vero valore ("torta") * Nel contesto scalare numerico - dove join (',', @ $ arrayref) sarebbe inutile - ottieni il valore numerico del primo oggetto (o zero se non ci sono articoli): My $ Z = MKarray (3,7, 19.63,30); Stampa 39 + $ z; # Numeric $ z produce 3, quindi questa stampe 42 * ". =" è sovraccaricato per aggiungere all'ultimo elemento (o nel caso di un array vuoto, per creare un nuovo elemento): My $ HeadWord = "BISCOCHO"; My $ Gloss = MKarray ("Biscotto", "Biscotto"); $ headword. = "!"; $ Gloss. = "!"; Stampa "$ Headword \: $ Gloss \ N"; # Stampe "BiscoChoko!: Biscotto, biscotto! \ N" Push @ $ Gloss, "Hooboy"; # Vedi, può ancora trattarlo come un normale array ref printf "Conte of Glosses:% d \ n", scalare (@ $ Gloss); # Stampe: Count of Glosses: 3 Stampa "Bits Gloss:", Mappa ("<$ _>", @ $ Gloss), "\ n"; # Stampe: Bits Gloss: Sinossi Usa Array :: Autojoin; My $ HeadWord = "BISCOCHO"; My $ Gloss = MKarray ("Biscotto", "Biscotto"); Stampa "$ Headword \: $ Gloss. \ N"; # Stampe "Biscocho: Biscotto, Biscotto. \ N"; Requisiti: · Perl.

Array :: Autojoin. Software correlato