Thread unterverzeichnis anlegen (39 answers)
Opened by Noisebreath at 2006-10-06 19:37

Noisebreath
 2006-10-11 15:10
#70623 #70623
User since
2006-04-14
72 Artikel
BenutzerIn
[default_avatar]
noch eine Frage wenns recht ist :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open(DATEI, "<infos.txt") || die "Datei nicht gefunden";
chomp(my @Zeilen = <DATEI>);
close(DATEI);

my $path1;
# Angegeben Pfad erstellen

if($Zeilen[3]){
$path1 = $Zeilen[3];
}else{
$path1 = "C:\\Windows/Temp/main";
}
eval{
mkdir($path1);
};

my $path2 = $path1."/html/";
eval{
mkdir($path2);
};

my $file = $path1.'/index.html';
open(my $fh,'>',$file) or die $!; ####line 86####


Komischerweise funktioniert alles wenn nur eine Directory angegeben ist z.B.: $path1 = C:\Temp. Wenn aber zb.: $path1 = C:\Temp\asdf angegeben ist sagt er:
No such file or directory at main.pl line 86.

Ich dachte mkdir kann egal wie tief das Verzeichnis ist alles herstellen oder seh ich da was falsch bzw hab nen logischen fehler?

View full thread unterverzeichnis anlegen