Thread Perl mit Kommandozeilenprogramm kommunizieren (Windows) (79 answers)
Opened by bianca at 2013-09-10 13:07

bianca
 2013-09-12 20:01
#170171 #170171
User since
2009-09-13
7011 articles
BenutzerIn

user image
2013-09-12T17:36:01 GwenDragon
CPAN: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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/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

View full thread Perl mit Kommandozeilenprogramm kommunizieren (Windows)