Zwei Perl Scripte nacheinander ausfuehren (Allgemeines zu Perl)

[thread]5882[/thread]

Zwei Perl Scripte nacheinander ausfuehren

Gast Gast

2003-11-06 11:45

Hallo zusammen,

ich habe zwei scripte, von denen das erste eine neue Datei erzeuget, die im zweiten verwendet wird. Beide Scripte sollen nacheinander laufen und aus einer Kommandozeile mit mehreren Parameter aufgerufen werden.
Falls die Parameter falsch oder unvollstaendig sind, soll die Hilfe ausgegeben werden.

Wie macht man so was am besten?

Danke, Aly

Crian

2003-11-06 11:46

User since
2003-08-04
5873 Artikel
ModeratorIn

Du könntest sie von einer Batchdatei aus aufrufen, wo Du die Parameter angibst.

Alternativ könntest Du auch das erste Skript nach STDOUT schreiben und das zweite von STDIN lesen lassen und die Skripte per Pipe verbinden, falls Du die erzeugte Datei nicht anderweitig brauchst.\n\n

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

Crian

2003-11-06 11:48

User since
2003-08-04
5873 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:

Code: (dl )

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

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

havi

2003-11-06 11:52

User since
2003-08-04
2036 Artikel
BenutzerIn

Du kannst die Parameter abfragen!

Bsp.:

Code: (dl )

print "Hilfe\n" if $ARGV[0] ne "Irgendetwas";

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2003-11-06 11:57

User since
2003-08-04
5873 Artikel
ModeratorIn

Schon, aber wenn es viele sind ist Getopt::Std wohl doch etwas handlicher.

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

Aly

2003-11-06 12:09

User since
2003-11-06
2 Artikel
BenutzerIn
[default_avatar]

Danke fuer die schnelle Reaktion. Ich will es mit Getopt probieren. Heisst es man schreibt eine dritte Datei, aus der man die anderen dann ausfuehrt?
Habe bis jetzt eine Bash-Datei verwendet. Damit funktioniert, nur die Parameterbehandlung gelingt nicht besonders gut.

Crian

2003-11-06 12:31

User since
2003-08-04
5873 Artikel
ModeratorIn

Möchtest Du denn der Batchdatei, die die beiden Perlskripte aufruft, auch Parameter mitgeben können (die diese dann an die Perlskripte weitergibt)?

Du schriebst bash-Skript, ist es für die bash unter Linux? Wenn ja, kannst Du auch da recht schön Parameter verwalten, der Befehl dafür hieß glaub ich auch getopt, ein Beispiel müsste ich aber erst von zu Hause mitbringen...

Alternativ nimm statt der Batchdatei ein drittes Perlskript, das die Parameter wiederum mit getopt verarbeitet und im wesentlichen nur die beiden anderen Skripte per system o.ä. aufruft.

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

Aly

2003-11-06 12:37

User since
2003-11-06
2 Artikel
BenutzerIn
[default_avatar]

Genau, bash unter Linux. Waere dankbar fuer den Befehl, wie man die Parameter verwaltet. Sie werden einmal vom Benutzer eingegeben:

datei.bash quelledatei.txt zusatzdatei.txt 4 6 zieldatei.txt

und danach teilweise in beiden scripten verwendet.
Was ist denn vorzuziehen: bash oder die dritte perl datei?
Aly

format_c

2003-11-06 13:01

User since
2003-08-04
1706 Artikel
HausmeisterIn

Schau mal hier:
http://links.perl-community.de/

Kategorie Weitere Programmiersprachen (Manuals, Referenzen, Tutorials usw.)

Gruß Alex\n\n

Effizente Linuxshell

Crian

2003-11-06 14:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Wenn Du keine aufwändigen Optionen verwalten willst, kannst Du einfach auf $1 .. im Shellskript zugreifen. Ich dachte, Du wolltest komplizierteres erreichen...

Unter der Bash kannst Du auch einfach alle Aufrufparameter an ein Programm (Dein Perlskript) weitergeben, die Syntax dafür hab ich leider nicht mehr im Kopf, ev. war es $@, ich weiß es aber nicht mehr genau.

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

View all threads created 2003-11-06 11:45.