wie Quelle ein shell-Skript [Umgebungsvariablen] im perl-Skript ohne Verzweigung einer subshell?

Möchte ich nennen "env.sh" aus "my_perl.pl" ohne Verzweigung einer subshell. Ich habe versucht, mit backtics und system --> system (. env.sh) [dot Raum env.sh] , jedoch nicht funktionieren.

InformationsquelleAutor Mandar Pande | 2011-07-26

perl shell

14

Kind-Umgebungen nicht ändern übergeordneten Umgebungen. Ihre beste Wette ist, um zu analysieren env.sh aus dem inneren der Perl-code und setzen Sie die Variablen in %ENV:
```
#!/usr/bin/perl

use strict;
use warnings;

sub source {
    my $name = shift;

    open my $fh, "<", $name
        or die "could not open $name: $!";

    while (<$fh>) {
        chomp;
        my ($k, $v) = split /=/, $_, 2;
        $v =~ s/^(['"])(.*)\1/$2/; #' fix highlighter
        $v =~ s/\$([a-zA-Z]\w*)/$ENV{$1}/g;
        $v =~ s/`(.*?)`/`$1`/ge; #dangerous
        $ENV{$k} = $v;
    }
}

source "env.sh";

for my $k (qw/foo bar baz quux/) {
    print "$k => $ENV{$k}\n";
}
```
Gegeben
```
foo=5
bar=10
baz="$foo$bar"
quux=`date +%Y%m%d`
```
druckt es
```
foo => 5
bar => 10
baz => 510
quux => 20110726
```
Kann der code nur mit einfacher Dateien (zum Beispiel, es nicht handhaben if Aussagen oder foo=$(date)). Wenn Sie etwas mehr Komplex, dann schreiben Sie ein wrapper für Perl script, dass die Quellen env.sh erste ist der richtige Weg zu gehen (ist es wahrscheinlich auch der richtige Weg zu gehen in den ersten Platz).

Weiterer Grund, die Quelle env.sh vor Ausführung des Perl Skript ist, dass das setzen der Umgebungsvariablen in Perl kann passieren, zu spät für Module, die erwartet werden, um Sie zu sehen.

In der Datei foo:
```
#!/bin/bash

source env.sh

exec foo.real
```
wo foo.real ist Perl script.

InformationsquelleAutor Chas. Owens
2

Können Sie beliebig komplexe shell-Skripte, indem Sie ausführt, die mit den einschlägigen shell, dumping Ihre Umgebung auf der standard-Ausgabe, die in demselben Prozess, und analysieren, dass in perl. Die Fütterung der Ausgang in etwas anderes als das %ENV oder Filter für bestimmte Werte von Interesse ist klug, so dass Sie nicht ändern Sie die Dinge, wie WEG, vielleicht haben interessante Nebenwirkungen an anderer Stelle. Habe ich verworfen, standard-Ausgabe und Fehler aus die erzeugte shell-Skript, obwohl Sie umgeleitet werden konnte, um temporäre Dateien und verwendet für die Diagnoseausgabe in das perl-script.

foo.pl:
```
#!/usr/bin/perl
open SOURCE, "bash -c '. foo.sh >& /dev/null; env'|" or
die "Can't fork: $!";

while(<SOURCE>) {
if (/^(BAR|BAZ)=(.*)/) {
    $ENV{$1} = ${2} ;
}
}

close SOURCE;

print $ENV{'BAR'} . "\n";
```
foo.sh:
export BAR=baz
- Die Verwendung von 'env' funktioniert nur, wenn das shell-Skript absichtlich exportiert die Variablen. Wenn das Skript nicht explizit exportieren, versuchen Sie 'set' anstelle von 'env'.
InformationsquelleAutor Drew Eckhardt
2

Versuchen, diese (unix-code-Beispiel):

cd /tmp

vi s
```
#!/bin/bash
export blah=test
```
vi t
```
#!/usr/bin/perl

if ($ARGV[0]) {
    print "ENV second call is : $ENV{blah}\n";
} else {
    print "ENV first call is : $ENV{blah}\n";
    exec(". /tmp/s; /tmp/t 1");
}
```
chmod 777 s t

./t

ENV erste Anruf :

ENV zweiten Aufruf : test

Ist der trick mit dem exec, um die Quelle Ihrer bash-Skript zuerst und dann ruft Sie Ihre perl-Skript wieder mit einem argument, so u wissen, dass man Sie ein zweites mal aufgerufen.

InformationsquelleAutor Yong Lee

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.