Klasse :: HPLOO. Klasse :: HPLOO ist eine einfachere Möglichkeit, Klassen auf Perl zu deklarieren, die in der beliebten Klasse {...} -Stil und EPOD basiert.
Jetzt downloaden

Klasse :: HPLOO. Ranking & Zusammenfassung

Klasse :: HPLOO. Stichworte

Perl-Modul Klassen Klassen erklären erklären EPOD-Klassen

Klasse :: HPLOO. Beschreibung

Klasse :: HPLOO ist ein einfacherer Weg, um Klassen auf Perl zu deklarieren, basierend auf der beliebten Klasse {...} -Stil und EPOD. Klasse :: HPLOO ist ein einfacherer Weg, um Klassen auf Perl zu erklären, die in der beliebten Klasse {...} stil und epod.usage verwenden, Klasse :: HPLOO; Klasse FOO erweitert die Bar, BAZ {Verwenden Sie LWP :: Simple QW (erhalten); ## Importieren Sie die Methode, um () in dieses Paket zu erhalten. Attr (Array Foo_list, Int Age, String Name, Foo) ## Definieren Sie Attribute. vars ($ global_var); ## gleich wie: Verwenden von vars qw ($ global_var); mein ($ local_var); ## Konstruktor / Initialisierer: Sub Foo {$ this -> {atatR} = $ _ ; } ## Methoden mit Eingabevariablen deklariert: Sub Get_Pages ($ Base, @pages,% Optionen) {My @HTMLs; if ($ Optionen {Proxy}) {...} Foreach My $ Pages_i (@pages) {My $ URL = "$ base / $ page_i"; MEIN $ HTML = GET ($ URL); Push (@HTMLS, $ HTML); $ This-> Cache ($ URL, $ HTML); } Rendite @HTMLS; } ## methos wie ein normaler perl sub: sub cache {my ($ url, $ html) = @_; $ this -> {Cache} {$ URL} = $ HTML; } SUB-Attribute_Example {$ this-> set_foo_list (QW (A b c d e)); my @l = $ this-> get_foo_list; $ this-> set_age (30); $ this-> set_name ("joe"); $ this-> set_foo (TIME ()); drucken "Name:". $ this-> get_name. "n"; drucken "Alter:". $ this-> get_age. "n"; drucken "foo:". $ this-> get_foo. "n"; }} ## Beispiel für die Verwendung der Klasse: Package Main; mein $ foo = neuer foo (123); $ foo-> get_pages ('http://www.perlmonks.com/', , {Proxy => localhost: 8080 '}); Anforderungen: · Perl.

Klasse :: HPLOO. Zugehörige Software