16. April 2024

>rent a car bulgariaEnglish;
@Ruck= SystemCmd(”e: && cd\\.. && Test.bat”);
print @Ruck;
sub SystemCmd
{
eval {
local $SIG{ALRM} = sub { die “Alarm” };
alarm(10);
system($_[0].”>\\SystemCmd.dat”);
open FILE,”<\\SystemCmd.dat” or print “File fehler\n”;
@dat=<FILE>;
close FILE;
alarm(0);
};
if ($EVAL_ERROR=~ /Alarm/)  { return (”Timeout bei $_[0], Error, ERROR, Timeout Fehler!!”);  }
else                        { return (@dat);                                  }
}#SystemCmd