Am Thu, 20 Apr 2000 schrieb Peter.Schopen@rzf.fin-nrw.de:
-- Dateiausschnitt --- OTTO=/usr/bin/otto WILLI=/usr/bin/$OTTO export OTTO WILLI Das sieht mir doch verdammt nach einem Shell-Script (Bash) aus
Wie kann ich diese Datei in PErl aufrufen, so dass alle Variablen gesetzt sind.
Willst Du die Variablen im Perl-Script abfragen können, oder von Perl aus eine Shell starten, in der diese Variablen gesezt sind ?
[Schopen, Peter (RZF)] Hay, falls die Variable in Perl nicht gesetzt ist, so muss ich diese setzten. Wie diese zu setzen sind, steht in einer Datei. Gruesse Peter <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> <META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2651.75"> <TITLE>AW: Variable in Perl</TITLE> </HEAD> <BODY> <UL> <FONT SIZE=2 FACE="Arial">Am Thu, 20 Apr 2000 schrieb Peter.Schopen@rzf.fin-nrw.de:</FONT> <FONT SIZE=2 FACE="Arial">> -- Dateiausschnitt ---</FONT> <FONT SIZE=2 FACE="Arial">> OTTO=/usr/bin/otto</FONT> <FONT SIZE=2 FACE="Arial">> WILLI=/usr/bin/$OTTO</FONT> <FONT SIZE=2 FACE="Arial">> export OTTO WILLI</FONT> <FONT SIZE=2 FACE="Arial">Das sieht mir doch verdammt nach einem Shell-Script (Bash) aus</FONT> </P> <FONT SIZE=2 FACE="Arial">> Wie kann ich diese Datei in PErl aufrufen, so dass alle Variablen gesetzt</FONT> <FONT SIZE=2 FACE="Arial">> sind.</FONT> </P> <FONT SIZE=2 FACE="Arial">Willst Du die Variablen im Perl-Script abfragen können, oder von Perl aus</FONT> <FONT SIZE=2 FACE="Arial">eine Shell starten, in der diese Variablen gesezt sind ?</FONT> </P> <B><I><FONT COLOR="#0000FF" SIZE=2 FACE="Comic Sans MS">[Schopen, Peter (RZF)]</FONT></I></B><I></I> <FONT COLOR="#0000FF" SIZE=2 FACE="Comic Sans MS"> Hay,</FONT> <FONT COLOR="#0000FF" SIZE=2 FACE="Comic Sans MS">falls die Variable in Perl nicht gesetzt ist, so muss ich diese setzten.</FONT> <FONT COLOR="#0000FF" SIZE=2 FACE="Comic Sans MS">Wie diese zu setzen sind, steht in einer Datei.</FONT> </P> <FONT COLOR="#0000FF" SIZE=2 FACE="Comic Sans MS">Gruesse Peter</FONT> </P> </UL> </BODY>
* Peter.Schopen@rzf.fin-nrw.de wrote on Thu, Apr 20, 2000 at 13:13 +0200:
falls die Variable in Perl nicht gesetzt ist, so muss ich diese setzten. Wie diese zu setzen sind, steht in einer Datei.
Wenn Du sie von Perl aus Sourcen möchtest, und auch Perl-Variablen erhalten möchtest, kannst Du die Datei auch als Perlprogramm machen: -----[ var.pl ]--------- $OTTO="hallo"; ------------------------ und dann sourcen: -----[ main.pl ]-------- require "var.pl"; print $OTTO, "\n"; ------------------------ Oder Du machst Dir ein Modul, aber das ist etwas komplizierter. Wenn das Format Deiner Datei allerdings vorgegeben ist, müsstest Du sie mit Perl parsen. Das sind ein paar Zeilen mehr, die kannst Du selbst programmieren :) So in der Art: open (FILE, "Datei"); while ($line = <FILE>) { $line =~ m/^([^=]+)=([^=]+)$; $config{'$1'} = $2; } (aus'm Kopf). oki, Steffen -- Dieses Schreiben wurde maschinell erstellt, es trägt daher weder Unterschrift noch Siegel. --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
On Thu, 20 Apr 2000 Peter.Schopen@rzf.fin-nrw.de wrote:
-- Dateiausschnitt --- OTTO=/usr/bin/otto WILLI=/usr/bin/$OTTO export OTTO WILLI
Das komplette Environment steht bei Perl im Hash %ENV und Du kannst es wie folgt verwenden (und dann ev. irgendwelchen Variablen zu- weisen): --- aus'm Hut --- #!/usr/bin/perl -w foreach $t (%ENV) { print $t."\n"; } ------ Der Rest ist Deiner Phantasie ueberlassen ;-) Tschau, Volker -- <ESC>:r .signature mailto:volker.mueller@gmx.de :wq --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
participants (3)
-
Peter.Schopen@rzf.fin-nrw.de
-
steffen@dett.de
-
volker.mueller@gmx.de