nicht angemeldet
Hoffe, jemand von Euch kann mir helfen. Ich haben folgenden Skript-Schnipsel:
du verwendest use strict und hast die Warnungen eingeschaltet?
if (-e "D:\MSIIS\Log\w3c\W3SVC1\ex".$Jahr.$Monat.$Monatstag.".log") {
Das sieht nicht schön aus. In Perl kannst du immer Slashes anstatt Backslahes verwenden und Perl interpoliert. sinnvoll wäre hier auch eine Variabel:
my $file = "D:/MSIIS/Log/w3c/W3SVC1/ex$Jahr$Monat$Monatstag.log";
if (-e $file) {
open LOG, $file || die "Kann $file nicht öffnen, weil: $!";
print(LOG $_);
Um in den File schreiben zu können musst du ihn auch entsprechend öffnen ( mit <+ ), das erfordert aber eine Menge mehr arbeit (seek)
Struppi.