Parameter-Reihenfolge in getopt festdefinieren? (gelöst) (Fragen zu Perl-Modulen)

[thread]19478[/thread]

Parameter-Reihenfolge in getopt festdefinieren? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+5 replies
hawkeye

2015-01-26 19:55
User since
2015-01-26
2 Artikel
BenutzerIn
Hallo,

ich bin gerade dabei meinen eigenen kleinen konsolenbasierenden Bugtracker zu schreiben. Allerdings hänge ich im Moment an dem Problem wie ich am einfachsten und besten die Parameter parse. Im Moment dachte ich an folgende Optionen:
Code: (dl )

1 2 3

perl bt.pl new --priority=low --summary="Hallo Welt" # erstellt einen neuen Issue perl bt.pl edit --id=42 --priority=high #ändert von dem angegeben Issue ein Attribut perl bt.pl show --id=42 # Zeigt den Issue an
Dabei würde ich gerne sicherstellen das der erste Parameter immer new, edit oder show ist und danach erst die möglichen weiteren Parameter folgen. Es also nicht möglich ist etwas wie
Code: (dl )

perl bt.pl --id=42 show
zu machen. Nun habe ich mir zwar schon mehrere Tutorials und Beispiele im Netz angeschaut aber noch keine Lösung gefunden ob (und wenn ja, wie) es möglich ist die Reihenfolge von Parameter festzulegen. Darum habe ich mir überlegt das ich evtl. den ersten Parameter mit einer switch-case-Struktur abfrage, diesen dann aus der Parameterliste per shift entferne und dann per getopt::long o.ä. die übrigen Parameter parse.
Aber bevor ich es so umsetze würde ich gerne die Meinung von Leuten einholen die viel mehr Ahnung von Perl haben als ich im moment :-) und mich hier im Forum erkundigen ob es nicht vielleicht einen eleganteren/besseren Weg gibt?
Ich würde mich über einen (oder mehrere) konstruktive Ratschläge sehr freuen.
Viele Grüße
Dan
Last edited: 2015-01-26 20:12:45 +0100 (CET)
- Raubtier
  
  2015-01-26 20:18
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  2015-01-26T18:55:51 hawkeye
  Darum habe ich mir überlegt das ich evtl. den ersten Parameter mit einer switch-case-Struktur abfrage, diesen dann aus der Parameterliste per shift entferne und dann per getopt::long o.ä. die übrigen Parameter parse.
  
  Genauso hätte ich es auch gemacht. Nur dass ich kein switch hätte, sondern wohl wahrscheinlich einen Hash mit den gültigen Keys. Als Value kann man dann z.B. eine sub haben, die je nach dem Key dann die Weiterverarbeitung der Parameter übernimmt, die ja wahrscheinlich auch bei den Aktionen jeweils unterschiedlich sind. Auf jeden Fall würde ich versuchen, nur an genau einer Stelle eine Fallunterscheidung für den ersten Parameter zu haben.
  Last edited: 2015-01-26 20:19:20 +0100 (CET)
- Linuxer
  
  2015-01-26 20:19
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Naja, du könntest vor dem Parsen der Optionen @ARGV kontrollieren, ob das erste Argument eine Option ist oder eben ein "Kommando" (new, edit oder show). Wenn es eben kein Kommando ist, dann brich das Programm ab. Wenn es ein Kommando ist, dann hole es aus @ARGV raus und speichere es und parse anschließend die restlichen Argumente mit beispielsweise Getopt::Long.
  
  edit:
  Der Hash-Gedanke von Raubtier ist gut; auch der Gedanke, die Fallunterscheidung einmalig festzulegen.
  Last edited: 2015-01-26 20:21:04 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- rosti
  
  2015-01-26 21:22
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  Hiermit: http://rolfrost.de/cli.html
  
  Dein Anliegen betreffend, besteht der "Trick" darin, dass das erste Argument der Name einer Klasse ist (new.pm edit.pm show.pm).
  
  Beispiel:
  
  Code: (dl )
  
  1 2 3 4 5
  
  D:\>c.pl Date Untersucht ein eingegebenes Datum, Optionen: --date, -d: Datum, Format T.M.J oder T.M.-J (v. Chr.) --verbose, -verb: Gibt weitere Informationen aus, wenn als Flag gesetzt --version, -vers: Zeigt die Version dieser Anwendung, wenn als Flag gesetzt
  
  Sehr von Vorteil: Jede Klasse kennt nur ihre eigenen Opts. Des Weiteren ermöglich das recht einfach die Ausgabe einer Gebrauchsanweisung. Dieses kleine Framework ist beliebig erweiterbar, dazu werden nur noch Klassen erstellt.
  
  Tags: OOP, Teamarbeit
- hawkeye
  
  2015-01-28 08:57
  
  User since
  2015-01-26
  2 Artikel
  BenutzerIn
  
  Hallo,
  
  vielen dank für eure schnellen und hilfreichen Antworten. Ich habe mich jetzt für die Lösung mit dem hash entschieden nachdem ich gestern etwas überrascht feststellen mußte das perl per default gar keine switch-case-Kontrollstruktur anbietet.
  Darum noch einmal vielen dank für euere Hilfe.
  viele Grüße
  Dan

View all threads created 2015-01-26 19:55.