Rückgabewert eines Perl-Skripts auswerten - #147929 (Allgemeines zu Perl)

crojay

2011-04-21 13:18

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe ein Skript (scriptA.pl), das eine bestimmte Anzahl an Dateien prüft und falls etwas fehlt wird dieser Dateiname in ein Array geschoben.

Nun möchte ich dieses Skripte von einem anderem Skript(skriptB.pl) aufrufen. Und falls das scriptA.pl fehlende Dateien findet möchte ich in dies in skriptB.pl anhand des Rückgabewerts erkennen.

Leider geht mein Plan nicht auf, kann mir jemand sagen was ich falsch mache?
SkriptA.pl

Code: (dl )

if (scalar(@missingFiles) > 0){
	print LOG &getTimestamp().":found " . scalar(@missingFiles) . " missing files for this order, need to inform via email...\n";
	#&sendMail($orderName, \@missingFiles);
	exit 44;
}
else{
	print LOG &getTimestamp().":order is complete";
	exit 1;
}

skriptB.pl

Code: (dl )

my $outputValidationCmd = "$ENV{'MY_HOME'}\\\@000001\@000002\" \"mffm\"";
my $validationResult = system("perl $outputValidationCmd");

print "\nresult of outputvalidation is $validationResult\n";

Auch wenn mein Array in SkriptA.pl Dateien enthält erhalte ich

result of outputvalidation is 256

als output.

Dabei hätte ich jetzt 44 erwartet, oder liege ich da falsch??

Danke