Aus Perl ein Exe File ausfuehren - #64901 (Allgemeines zu Perl)

Crian

2006-04-13 13:48

User since
2003-08-04
5866 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