Opened by Noisebreath at 2006-10-06 19:37
User since
2006-04-14
72 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-14
72 Artikel
BenutzerIn
oki sorry
also das mit dem + hat nichts geändert
vielleicht hilft dir das programmstück weiter?
ich lese aus einer datei die Zeilen und in der 4. Zeile steht der Pfad, den möchte ich eben erzeugen wenn er nicht existiert um dann meine index.html dort hinein zu packen. später erzeuge ich weitere html dateien und die will ich in den unterordner (von dem arbeitsverzeichnis in dem ich index.html abgespeichert habe) "/html" speichern\n\n
<!--EDIT|Noisebreath|1160394162-->
also das mit dem + hat nichts geändert
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open(DATEI, "<infos.txt") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my $path1;
# Angegeben Pfad erstellen
if($Zeilen[3]){
$path1 = $Zeilen[3];
}else{
$path1 = "C:/Temp";
}
mkdir($path1,0777);
my $file = $path1."index.html";
open(my $fh,'>',$file) or die $!;
vielleicht hilft dir das programmstück weiter?
ich lese aus einer datei die Zeilen und in der 4. Zeile steht der Pfad, den möchte ich eben erzeugen wenn er nicht existiert um dann meine index.html dort hinein zu packen. später erzeuge ich weitere html dateien und die will ich in den unterordner (von dem arbeitsverzeichnis in dem ich index.html abgespeichert habe) "/html" speichern\n\n
<!--EDIT|Noisebreath|1160394162-->