EXIT status fra system()

Jeg tror exec(...) virker bedre for dig - men på en windows maskine ?? Måske.

Det vil sige at hvis du sætter $result = system("blablabla")
så er $result altid lig 0 ?

Du kan evt gøre følgende..

$result = `cvs commit -l -m \"blobID 222222:\" -f \"%CD%\\in\\$project\\$placepath\\$pushfilename\"`;
print $result;

til den slags plejer jeg at bruge Expect-modulet... det er som lavet til den slags...

erikjacobsen > exec vil ikke hjælpe meget, hvis han vil have noget resultat igen... det giver meget lidt mening...

fra perldoc -f exec
              The "exec" function executes a system command and never
              returns-- use "system" instead of "exec" if you want it to
              return.  It fails and returns false only if the command does
              not exist and it is executed directly instead of via your sys-
              tem's command shell (see below).

              Since it's a common mistake to use "exec" instead of "system",
              Perl warns you if there is a following statement which isn't
              "die", "warn", or "exit" (if "-w" is set  -  but you always do
              that).  If you really want to follow an "exec" with some other
              statement, you can use one of these styles to avoid the warn-
              ing:

Thomasledet > Vil du kunne guide mig til en løsning med dette Expect-module ?

Du har ret Thomas - jeg huskede noget fra et andet sprog.

haspalm> nu skriver du godtnok, at det er på windows... nu skal jeg ærligt indrømme, at jeg ikke har brugt windows de sidste mange år, men det er vel et forsøg værd...

mere eller mindre fra perldoc Expect

#!/usr/bin/perl

use Expect;

my $command = 'cvs';
my @parameters = (dine parametre);

# create an Expect object by spawning another process
my $exp = Expect->spawn($command, @params)
  or die "Cannot spawn $command: $!\n";

if ($exp->expect(10,'-re',"Committed successfully")) {
    $exp->hard_close();
    print "Ah pis...\";
} else {
    $exp->soft_close();
    print "Jaaaa!\n";
}

eller noget i den retning...

ok - har været ud for at lede efter det modul.. kan ikke hitte den nogensteder andet end hvis de er i rpm eller hrm format hvilket min winzipper bestemt ikke er glad for ..

perl -MCPAN -e "install Expect"

eller noget i den retning... forudsætter naturligvis, at du har CPAN installeret...

Har jeg selvfølgelig ikke...

til windows (under forudsætning af, at du bruger ActivePerl) skal du bruge PPM

http://aspn.activestate.com/ASPN/Downloads/ActivePerl/

Der findes tilsyneladende tonsvis af pakker også til ActivePerl... også Expect