Aus Perl ein Exe File ausfuehren (Allgemeines zu Perl)

[thread]7889[/thread]

Aus Perl ein Exe File ausfuehren

Leser: 1

fritz

2006-04-13 12:49

User since
2005-10-19
44 Artikel
BenutzerIn
[default_avatar]

Hallo alle zusammen ich bins mal wieder.

Habe folgendes Problem und komme einfach nicht weiter:

Ich moechte gern ein Exe File von Perl aus ausfuehren.

Das File liegt im Ordner C:\Test und heisst test.exe.

Hoffe ihr koennt mir dabei helfen.

Den Returnwert muss ich abwarten weil ich nach diesem entsprechend handeln muss.

PS: Ich programmiere unter Windows.

Hoffe auf baldige Antwort.

MFG

Fritz

fritz

2006-04-13 12:56

User since
2005-10-19
44 Artikel
BenutzerIn
[default_avatar]

ok, ich habs mit system(); geschafft

Wie kann ich einzelne Parameter an das Exe File uebergeben?

master

2006-04-13 13:05

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

system('super.exe  parameter1 parameter2');

ist die exe ein perlskript? JA = dann mit @ARGV auslesen\n\n

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

renee

2006-04-13 13:07

User since
2003-08-04
14371 Artikel
ModeratorIn

Normalerweise sollte bei der .exe irgendwie ne Hilfe mit dabei sein, die Dir mitteilt, wie man dem Programm Parameter mitgibt.

Beziehungsweise: Wie rufst Du denn das Programm normalerweise auf?\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

fritz

2006-04-13 13:47

User since
2005-10-19
44 Artikel
BenutzerIn
[default_avatar]

Danke fuer die prompte Hilfe

Crian

2006-04-13 13:48

User since
2003-08-04
5871 Artikel
ModeratorIn

Aus perldoc -f system:

Code: (dl )

1
2
3

@args = ("command", "arg1", "arg2");
system(@args) == 0
     or die "system @args failed: $?"

Fehler abfangen:

Code: (dl )

if ($? == -1) {
    print "failed to execute: $!\n";
}
elsif ($? & 127) {
    printf "child died with signal %d, %s coredump\n",
        ($? & 127),  ($? & 128) ? 'with' : 'without';
}
else {
    printf "child exited with value %d\n", $? >> 8;
}

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2006-04-13 12:49.