Cravatta :: sotto. legando una subroutine, una funzione o un metodo per un hash
Scarica ora

Cravatta :: sotto. Classifica e riepilogo

Cravatta :: sotto. Tag

modulo Perl perl hash. sottoprogramma

Cravatta :: sotto. Descrizione

Tie :: Sub è un modulo perl che lega una subroutine a un hash.subroutines non ha interpretato in stringhe. La subroutine viene eseguita al recupero hash. A lungo, questo è lo stesso, solo la notazione è più breve. Alternativa a "... $ {\ subroutine ('ABC')} ..." # o "... @ { } ... " # o '...' . Subroutine ('ABC'). '...' Scrivi "... $ subroutine {ABC} ..." A volte la subroutine prevede più di 1 parametro. Quindi invia un riferimento su un array come "tasto hash". La subroutine legata riceverà i parametri sempre come elenco. Utilizzare qualsiasi riferimento per restituire più di 1 valore di ritorno. Il chiamante rimane questo riferimento. Non c'è modo di restituire un elenco.SynopsisinItilizzare Usa severa; Utilizzare Avvertenze; Usa la cravatta :: sub; Legare il mio% di subroutine, 'cravatta :: sub', sub {...}; o inizializzare in ritardo Lega il mio% Subroutine, 'Tie :: sub'; (Tied% subroutine) -> config (sub {...}); o inizializza anche il mio oggetto $ Object = Tie my% subroutine, 'Tie :: sub'; $ Object-> Config (Sub {...}); Subroutine interpolate in una funzione Stringusage come funzione (solo 1 parametro di ritorno) Usa rigoroso; Utilizzare Avvertenze; Usa la cravatta :: sub; Legare il mio% sprintf_04d, 'cravatta :: sub', sub {sprintf 'd', shift}; # Il tasto HASH e il valore di ritorno sono entrambi scalari. Stampa "Vedi $ sprintf_04d {4}, non $ sprintf_04d {5} cifre."; __End__ output: vedere 0004, non 0005 cifre.OR Uso più flessibile Strict; Utilizzare Avvertenze; Usa la cravatta :: sub; Legare il mio% Sprintf, 'Tie :: sub', sub {sprintf shift, shift}; # La chiave hash è un riferimento di array, il valore di ritorno è uno scalare. Stampa "Vedi $ sprintf {} cifre."; __End__ Output: vedere 0004 cifre.USAGGIO come subroutine uso rigoroso; Utilizzare Avvertenze; Usa la cravatta :: sub; Usa inglese QW ($ list_separator); Lega il mio% Sprintf_multi, 'Tie :: sub', sub {ritorno! @_? q {}: @_> 1? : sprintf "d \ n", spostamento; }; # La chiave di hash e il valore di ritorno AR sia scalari o riferimenti array. {usa QW inglese ($ list_separator); list_separator = q {}; Stampa << "eot"; vedere le seguenti linee scalare $ sprintf_multi {10} arrayref @ {$ sprintf_multi {}} e sii fortunato eot} __end__ uscita: vedi le seguenti linee scalare 0010 arrayref 002000210022 ed essere fortunatounage come il metodo usa il metodo severo; utilizzare avvertenze; usa la cravatta :: sub; utilizzare cgi; my $ cgi = cgi-> nuovo; Lega il mio% cgi, 'cravatta :: sub', sub {my ($ metodo, @params) = @_; My @Result = $ cgi-> $ Metodo (@params); Restituzione ! @result? (): @result> 1? \ @Result: $ Risultato ; }; # Il tasto HASH e il valore di ritorno sono entrambi riferimenti array. Stampa << "eot"; ciao $ cgi {} $ cgi {}! EOT __end__ output If "http: //.../noname.pl? FirstName = STEFFENLASTNAME = Winkler": Ciao Steffen Winkler! Leggi la configurazione My $ Config = (Legato% Subroutine) -> Config; Configurazione scrittura My $ Config = ( Subroutine% legato) -> Config (Sub {yourcode}); Homepage del prodotto

Cravatta :: sotto. Software correlato