quote:

---

Zitat von NicoDE Welches OS-/IE-Version? Schick mir mal bitte eine Mail, was genau nicht geht, Danke, Nico

---

code\:
#!/usr/bin/perl -w
use strict;
use Time:ocal;
use Win32::Process;#wenn man *nix benutzt muß man halt unten fork verwenden...
my $GothicVerzeichnis = "d:gothic";
my $Ausgabedatei = "d:gothicsystemvmMod erstellen.vm";
my $Modname = "MeinMod.mod";
my $tag=1;my $monat=6; my $jahr=2002; #Zeitpunkt nach der Instalation von Gothic und dem SDK
my $TIME = timelocal(0, 0, 0, $tag, $monat-1, $jahr-1900);
open(DATEI, ">$Ausgabedatei") || die "Datei kann nicht geöffnet werden.n$!";
print DATEI <<"irgendwas kreatives";
[BEGINVDF]
Comment=Irgendeine Blöde Mod-Datei%%N%%D%%N
BaseDir=$GothicVerzeichnis
VDFName=$GothicVerzeichnisDataModvdf$Modname
[FILES]
irgendwas kreatives
irgendwas("_workdata"); #die dateien in anderen Verzeichnisen gehören eh nicht in ein .mod rein
print DATEI <<"irgendwas kreatives";
[EXCLUDE]
_workDATAPRESETS*.zen
_workDATAWorldsvobtrees*.zen
_workDATAscripts_compiledOUINFO.INF
_workDATAscriptscontentCUTSCENEOU.CSL
_workDATAscripts*.d -r
_workDATAscripts*.src -r
_workDATAMeshes*.3ds -r
_workDATAANIMS*.asc -r
_workDATATEXTURES*.TGA -r
[INCLUDE]
_workDATATEXTURESDESKTOPNOMIP*.TGA -r
[ENDVDF]
irgendwas kreatives
close(DATEI);

my $process;
Win32::Process::Create($process,"$GothicVerzeichnissystemgothicvdfs.exe","gothicvdfs.exe "$Ausgabedatei"",0,DETACHED_PROCESS,'.');
print $Ausgabedatei;
sub irgendwas{
	my $subVerzeichnis=shift;
	opendir(DIR, "$GothicVerzeichnis$subVerzeichnis") || die "Verzeichnis $GothicVerzeichnis$subVerzeichnis kann nicht geöffnet werden.n$!";
	my @Eintraege = readdir(DIR);
	closedir(DIR);
	foreach my $Dateiname (@Eintraege) {
		if (-d "$GothicVerzeichnis$subVerzeichnis$Dateiname") {
			if ($Dateiname ne "." && $Dateiname ne "..")
				{irgendwas("$subVerzeichnis$Dateiname")}
		} else {
			print DATEI (stat("$GothicVerzeichnis$subVerzeichnis$Dateiname"))[9]<$TIME ? "" : "$subVerzeichnis$Dateinamen";
		}
	}
	return
}