Prty::Program - Basisklasse für Programme
Prty::Process
Prty::Hash
Programm:
#!/usr/bin/env perl use Prty::Program; exit Prty::Program->run('MyProg')->exitCode; # eof
Programm-Klasse:
package MyProg; use base 'Prty::Program'; sub main { my $self = shift; ... return; } # eof
Optionen und Argumente:
my ($error,$opt,$argA) = $self->options( ... -help=>0, ); if ($error) { $self->help(10,"ERROR: $error"); } elsif ($opt->help) { $self->help; } elsif (@$argA != 1) { $self->help(11,'ERROR: Falsche Anzahl Argumente'); } my $myArg = shift @$argA; ...
$prg = Prty::Program->run($programClass,@options);
Siehe Methode "new"()
$prg->exit; $prg->exit($exitCode);
Terminiere das Programm mit Exitcode $exitCode. Ist kein Exitcode angegeben, terminiere mit dem Exitcode der auf dem Programmobjekt gesetzt ist. Die Methode kehrt nicht zurück. Nach ihrem Aufruf wird die Methode "finish"() ausgeführt.
$exitCode = $prg->exitCode; $exitCode = $prg->exitCode($exitCode);
$name = $this->name;
Liefere den Namen des Programms. Der Programmname ist die letzte Pfadkomponente von $0.
$prg->main;
$prg->catch($exception);
Exception-Handler, der unbehandelte Exceptions der Anwendung fängt. Kann von der Programmklasse bei Bedarf überschrieben werden. Das Default-Verhalten ist, dass der Exception-Text auf STDERR ausgegeben und der Exitcode auf 99 gesetzt wird.
Das Programm terminiert nicht sofort, sondern die Methode "finish"() wird noch ausgeführt.
$prg->finish;
$envH = $this->env; $envH = $this->env(\%env);
$argA|@args = $this->argv; $argA|@args = $this->argv(\@argv);
$fh = $this->stdin; $fh = $this->stdin($fh);
$fh = $this->stdout; $fh = $this->stdout($fh);
$fh = $this->stderr; $fh = $this->stderr($fh);
$encoding = $prg->encoding;
Liefere das Standard-Encoding, das in der Systemumgebung eingestellt ist. Im Konstruktor werden STDIN, STDOUT und STDERR auf dieses Encoding eingestellt, d.h. Eingaben und Ausgaben automatisch gemäß dieses Encodings gewandelt.
$str = $prg->decode($str);
$str = $prg->encode($str);
($error,$optH,$argA) = $prg->options(@keyVal);
$val = $prg->opt($key); # [1] @vals = $prg->opt(@keys); # [2] $optH = $prg->opt; # [3]
$dir = $prg->projectDir($depth);
Liefere den Verzeichnispfad, der $depth Stufen oberhalb des Verzeichnisses endet, in dem das Programm installiert ist.
Der Installationspfad wird anhand von $0 ermittelt. Wurde das Programm mit einem relativen Pfad aufgerufen, wird dieser zu einem absoluten Pfad komplettiert.
Wurde das Programm myprog unter dem Pfad
/opt/myapp/bin/myprog
installiert, dann liefert $prg->projectDir(1) den Pfad
/opt/myapp
als Projektverzeichnis.
$self->help; $self->help($exitCode); $self->help($exitCode,$msg);
Der Hilfetext wird aus der POD-Dokumentation des Programms generiert.
Ist $exitCode == 0, wird der Hilfetext auf STDOUT ausgegeben. Ist $exitCode != 0, wird der Hilfetext auf STDERR ausgegeben.
Ist $msg angegeben, wird die Hilfeseite oben und unten um Text $msg ergänzt (jeweils mit Leerzeile abgetrennt).
Ist $exitCode == 0 und STDOUT mit einem Terminal verbunden, wird der Hilfetext im Pager dargestellt (Environment-Variable $PAGER oder less).
$prg = $class->new(@options);
Setze Programm-Argumente auf @arr.
Setze Programm-Environment auf %hash.
Setze STDIN des Programms auf $fh.
Setze STDOUT des Programms auf $fh.
Setze STDERR des Programms auf $fh.
1.119
Frank Seitz, http://fseitz.de/
Copyright (C) 2017 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Prty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prty
CPAN shell
perl -MCPAN -e shell install Prty
For more information on module installation, please visit the detailed CPAN module installation guide.