#!/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";