ZapMaster-Forum

Code: Alles auswählen

use File::Basename;

die("$0 erzeugt aus einer sat-liste eine Batch-Datei die alle Filme auf Platte kopiert.\n  Aufruf $0 eingabedatei [ausgabedatei]") if ($#ARGV < 0);

warn("\nWarning: Mehr als 2 Argumente angegeben, es werden nur die ersten zwei benutzt !\n\n") if ($#ARGV >= 2);

if ($#ARGV >= 0) {
 open(IN, $ARGV[0]) or die "Kann Eingabedatei $ARGV[0] nicht öffnen: $!\n";
 };


if   ($#ARGV >= 1) {  
 $ausgabe=$ARGV[1];  
 }

else               {
 # wenn keine Ausgabedatei angegeben ist, 
 # Name der Eingabedatei mit Suffix .bat verwenden
 ($name,$path,$suffix) = fileparse($ARGV[0],qr{\.[^.]+});  
 $ausgabe="${path}${name}.bat";  
 };

my $prefix="E:/Sat Movies/lasat/pc2Box.exe copy ";  # Path anpassen !!!

$prefix=~tr|/|\\|;

print "Ausgabe auf Datei $ausgabe\n";
open(OUT, ">$ausgabe") or die "Kann Ausgabedatei $ausgabe nicht öffnen: $!\n";

@zeilen = <IN> ;
foreach $zeile (@zeilen){
 @words=split /\s/, $zeile;
 print OUT $prefix, $words[0], ' "', join(' ',@words[5 .. $#words-4]), "\"\n";
}


print OUT $datei;

close IN;
close OUT;

print "..fertig\n";