Werte tauschen zwischen zwei .pl Skripten (Allgemeines zu Perl)

[thread]19750[/thread]

Werte tauschen zwischen zwei .pl Skripten

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
PB1

2015-08-05 11:54
User since
2015-08-05
1 Artikel
BenutzerIn
Hi zusammen,
ich möchte gerne Werte zwischen zwei Perl Skripten austauschen.
Eines der beiden Skripte wird dabei aus dem "Main"-Skript durch "system"
aufgerufen. Hier kann ich die Werte übergeben, dass funktioniert.

Main.pl
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w use warnings; print"hi\n"; $x1 ="new_value"; $x2 ="new1"; system("perl","subscript.pl",$x1,$x2); print"end";
Im zweiten skript mache ich eine testweise Ausgabe

subscript.pl
Code (perl): (dl )

1 2 3 4 5 6 7

#!/usr/bin/perl -w use warnings; $n1=$ARGV[0]; $n2=$ARGV[1]; print "$n1\n"; print "$n2\n";
ich weiss jedoch nicht wie ich hier raus Werte zurück ins main.pl Skript bekomme.

Ich hoffe ihr könnt mir weiter helfen.
Grüße PL
Last edited: 2015-08-05 12:08:11 +0200 (CEST)
- Raubtier
  
  2015-08-05 13:16
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Erstmal wäre es vermutlich besser, wenn du statt unterschiedliche Scripte zu verwenden einfach eine der Dateien als Modul auslagern würdest (oder ein Modul auslagern, das dann von beiden genutzt wird).
  
  Ansonsten schau dir mal IPC::Open3 oder Caputre::Tiny an. Hier eine Präse zu letzterem: http://www.dagolden.com/wp-content/uploads/2009/04...
- GUIfreund
  
  2015-08-05 14:08
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Ersetze den Aufruf von system durch
  
  Code (perl): (dl )
  
  1 2
  
  my $result = qx/perl subscript.pl $x1 $x2/; print"result: $result\n";
  
  Gruß
  GUIfreund

View all threads created 2015-08-05 11:54.