#!/usr/bin/perl
use strict;
use warnings;

# alle nötigen Parameter von der Kommandozeile lesen:
die("Nicht genug Argumente!\n") if(@ARGV<2);
# Arbeitsverzeichnis lesen
my $ordner = shift(@ARGV);
# Datei-Namen lesen
my @files = @ARGV;

# Ordner muss existieren!
die("Arbeitsverzeichnis existiert nicht!\n") if(!-d $ordner);

# Es muss mindestens eine Datei angeben sein
die("Keine Dateien Angeben!\n") if(!@files);

# alte Dateien löschen.
for my $file (glob("$ordner*")){
  if(-f $file){
    unlink($file) or die("Konnte Datei $file nicht löschen! ($!)\n");
  }
  else{
    die("Kann $file nicht löschen! Es ist keine Datei!\n");
  }
}

# neue leere Dateien anlegen
for my $file (@files) {
  open(my $fh, '>', $ordner.$file) or die("Kann Datei $ordner$file nicht anlegen ($!)\n")
  close($fh);
}

print "number of files: ".scalar(@files)."\n";

#!/usr/bin/perl
use strict;
use warnigs;

my $ordner = "E:/Test/testordner/";
my @files=("test1.txt","test2.txt");

print "Jetzt createCount.pl gestartet.\n";
system('createCount.pl', $ordner, @files)==0 or die(qq(Konnte "createCount.pl $directory @files" nicht erfolgreich ausführen! $!));

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec::Functions qw( catdir catfile );

# Arbeitsverzeichnis, wo die Programme liegen
my $ordner = 'E:/Benutzer/06simulation/proc';

# Logfile das analysiert werden soll
my $logfile='log.txt';

# timeout
my $maxwait=120; # Sekunden maximal auf Datei warten

runn('01runInitElthetaBatchScript.ahk');

# nach dem "init" ein paar Sekunden warten um sicher zu sein,
# dass die Einstellungen übernommen wurden:
sleep(2);

runn('02runBatchScript.ahk');

# so lange warten bis die Datei existiert,
# oder die Zeit abgelaufen ist.
my $timeout=time()+$maxwait;
until(-e $logfile)
{
  # immer eine Sekunde warten
  sleep(1);
  # Abbruch wenn die maximale Zeit gewartet wurde.
  die("$logfile wurde nach $timeout Sekunden noch nicht erstellt!\n") if($timeout <= time());
}

# noch kurz waren um sicher zu stellen, das die Datei vollständig geschrieben wurde.
sleep(1);

runn('03procInitElthetaOut.pl');

####################################################
# Funktionen

sub runn
{
  my $cmd=shift;
  my $prog=catfile( $ordner, $cmd);
  # Fuehre programm aus:
  system( $prog ) == 0 or die qq(Programm "$prog" brach ab: $!\n);
}