Tcl-Skript zum Ausführen von Perl-Code und Ausgabe der Ergebnisse?

Question

Ich muss perl-Skript über tcl-Skript ausführen, aber exec-Befehl in tcl generiert nicht die Ergebnisse von Perl-Skript.

TCL-Skript (test.tcl) hat folgende Zeile

exec perl test.pl 

Perl-Skript test.pl hat folgende Zeilen.

use strict; 
use warnings; 
print "Have a nice day!!!"; 

Ich bin tcl durch cmd-Fenster als "tclsh test.tcl" ausgeführt. Keine Fehler und keine Ausgabe. Warum ist es so ???

Answer 1

exec Der Befehl gibt die Ausgabe des Programms zurück und Sie müssen sie erfassen, indem Sie sie in eine Variable speichern oder sie sofort mit puts ausdrucken.

set result [exec perl test.pl] 
puts $result