Kommunikation zwischen Eltern- und Kindprozess - Perl

Question

Ich führe ein Perl-Programm "a.pl" im Terminal, das ein anderes Programm "b.pl" aufrufen muss, das dann die Umgebung in eine tcl-Shell umwandelt. Das Programm "b.pl" setzt Umgebungsvariablen, die ich verwenden muss, zurück in das Hauptprogramm "a.pl", nach dem ich neue Befehle in der tcl-Umgebung ausführen muss, die von "b.pl" erstellt wurde. Bitte beachten Sie das folgende Beispiel

Programm: a.pl

#!/usr/intel/bin/perl -w 
    use strict; 
    use warnings; 

    #turns it to a tcl shell and sets environment variable VERSION 
    system ("./b.pl"); 

    system ("source <tclExecutable> -version $VERSION"); 

Der zweite System Befehl nicht ausführen, bis ich den Tcl-Shell manuell in dem Terminal verlassen. Ich habe auf die Gabel geschaut und eine Pfeife geöffnet, aber ich bin mir nicht sicher, wie ich das machen soll. Ich muss den zweiten Befehl in der tcl-Shell ausführen, die vom ersten Systembefehl geöffnet wurde. Wie kann ich das schaffen?

Answer 1

Sie können b.pl "inside" a.pl mit require ausführen. Es kann liefern, was Sie für einfache Skripte wollen.

a.pl

use strict; 
use warnings; 

our $Version; 
require "/.../b.pl"; # full path to b.pl script 
print "Version: $Version\n"; 

b.pl

use strict; 
use warnings; 

our $Version; 
$Version = "YES!";