1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $path1;
if($Zeilen[3]){
$path1 = $Zeilen[3];
}else{
$path1 = "C:/Temp";
}
mkdir($path1) or die "Fehler beim Anlegen von $path1:". $!;
my $file = $path1.'/index.html';
open(my $fh,'>',$file) or die $!;
my $path2 = $path1."/html/";
mkdir($path2);
my $string = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd"><html><head><title>'.$file.'</title></head><body>';
Der Fehler wird für jede Zeile in der dann $string steht ausgespuckt wenn ich es so schreibe:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $path1;
if($Zeilen[3]){
$path1 = $Zeilen[3];
}else{
$path1 = "C:/Temp";
}
eval{
mkdir($path1);
}
my $file = $path1.'/index.html';
open(my $fh,'>',$file) or die $!;
my $path2 = $path1."/html/";
eval{
mkdir($path2);
}