Opened by Gast at 2003-11-06 11:45
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
[quote=Guest,06.11.2003, 10:45]Falls die Parameter falsch oder unvollstaendig sind, soll die Hilfe ausgegeben werden.
Wie macht man so was am besten?[/quote]
Oder war die Frage zu diesem Teil?
Dafür benutze ich meistens zwei Funktionen "param" und "syntax", etwa so:
Hier siehst Du einen Auszug aus einem Programm mit den Parametern h und w, h gibt Hilfe aus, w ist ein Switch. Man kann auch Parameter mit Werten verarbeiten... (frag dazu ggf. nach, wenn Du aus perldoc nicht schlau wirst).
In param wird abhängig davon, ob w gesetzt wird oder nicht, ein Wert im globalen Konfigurationshash %Config geändert. (Wurde vorher beim Programmstart standardmäßig auf Null gesetzt.)\n\n
<!--EDIT|Crian|1068112498-->
Wie macht man so was am besten?[/quote]
Oder war die Frage zu diesem Teil?
Dafür benutze ich meistens zwei Funktionen "param" und "syntax", etwa so:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use Getopt::Std; # Bearbeiten der Aufrufparameter mit getopts().
use File::Basename; # für basename()
[...]
param();
[...]
sub param {
our ($opt_h, $opt_w) = ('', '');
syntax('Unbekannte Optionen') unless getopts('hw');
syntax() if $opt_h;
$Config{angedockt} = length($opt_w) ? 0 : 1;
} # sub param
sub syntax {
print STDERR "Fehler:\n\t", @_, "\n" if scalar(@_);
print "Syntax:\n\n\t", basename($0), " [-h] [-w]\n\n",
"Optionen:\n",
" h : Gibt diesen Hilfetext aus.\n",
" w : Im eigenen Fenster (nicht angedockt)\n";
exit scalar @_;
} # sub syntax
Hier siehst Du einen Auszug aus einem Programm mit den Parametern h und w, h gibt Hilfe aus, w ist ein Switch. Man kann auch Parameter mit Werten verarbeiten... (frag dazu ggf. nach, wenn Du aus perldoc nicht schlau wirst).
In param wird abhängig davon, ob w gesetzt wird oder nicht, ein Wert im globalen Konfigurationshash %Config geändert. (Wurde vorher beim Programmstart standardmäßig auf Null gesetzt.)\n\n
<!--EDIT|Crian|1068112498-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite