Perl mit Kommandozeilenprogramm kommunizieren (Windows) (gelöst) - #170171 (Allgemeines zu Perl)

bianca

2013-09-12 20:01

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

2013-09-12T17:36:01 GwenDragon
IPC::Open3 keine Lösung?

Da blicke ich nicht ganz durch bei der Rückgabe.
Dumper zeigt mir das nach Aufruf des Tools:

Quote
$VAR1 = \*Symbol::GEN1;
$VAR1 = \*Symbol::GEN2;
$VAR1 = \*Symbol::GEN0;

Was ist das?

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use IPC::Open3;

my %conf = (
    pfad    => 'C:/Program Files/******',
    exe     => '*****',
);

my ($wtr,$rdr,$err);
use Symbol 'gensym'; $err = gensym;
my $pid = open3($wtr,$rdr,$err,"$conf{pfad}/$conf{exe}");
print Dumper($wtr);
print Dumper($rdr);
print Dumper($err);

10 print "Hallo"
20 goto 10