| Basset :: Maschine. Basset :: Machine ist ein Perl-Modul, das verwendet wird, um Maschinen anzusteuern. |
Jetzt downloaden |
Basset :: Maschine. Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Jim Thomason
- Website des Verlags:
- http://search.cpan.org/~jimt/Basset-1.04/lib/Basset/Machine.pm
Basset :: Maschine. Stichworte
Basset :: Maschine. Beschreibung
Basset :: Machine ist ein Perl-Modul, das zum Status von Maschinen verwendet wird. Basset :: Machine ist ein Perl-Modul, das zum Status von Maschinen verwendet wird. SynopsisEan-Beispiel ist am besten. Lass uns ein einfaches versuchen. Paket meine :: Machine; Verwenden Sie Basset :: Objekt; Basset :: Objekt-> Vererben (__ paket__, 'maschine'); SUBST START {RETURN SHIFT-> STATE ('login'); } Sublogin {mein $ self = schalte; mein $ heap = $ self-> heap; if ($ heap -> {'loggedin}) {return $ self-> staat (' erfolg '); } else {return $ self-> staat ('prompt'); }} Sub Prompt {My $ self = Shift; drucken "Bitte geben Sie Ihren Benutzernamen ein (muss" Bob "sein):"; chomp (mein $ name =); $ self -> {'heap'} -> {'Loggedin'} = 1 wenn $ Name EQ 'BOB'; Rückgabe $ selbst-> Zustand ('Login'); } Suberfolg {mein $ self = shift; drucken "Sie sind angemeldetes Inn"; Rückgabe $ selbst-> Kündigung; } 1; --- #! / usr / bin / perl benutzen meine :: maschine; MY :: Machine-> Ausführen; Anforderungen: · Perl.
Basset :: Maschine. Zugehörige Software