Opened by stormy2211 at 2007-11-02 21:31
User since
2013-02-18
6 Artikel
BenutzerIn
2013-02-18
6 Artikel
BenutzerIn
hi
anscheinend gibt es auf dieser Seite schon laaaaange keine diskussion mehr. nach viel googeln habe ich diese seite gefunden und den vollkommenen code auf der ersten Seite ausprobiert aber vergeblich.
mein Problem ist folgendes:
ich habe ein Verzeichnis mit mehreren Unterverzeichnisse. In diesen Unterverzeichnisse gibt es Dateien , deren Namen ich in eine .txt Datei listen möchte.
mit diesem code ,
hat es nicht geklappt, denn es werden nur die Dateien im ersten unterordner (00000001)in .txt gespeichert. es bearbeitet nicht die weiteren unterordner. (mein Pfad lautet : C:/perlprogs/SP_AUF/SALES_0000/(hier gibt es unterordner namens 00000001 bis 000000060))
die chance, dass jemand hier mir antwortet ist glaub ich gering, aber dem Versuch ist es wert.
vielen Dank im Voraus
anscheinend gibt es auf dieser Seite schon laaaaange keine diskussion mehr. nach viel googeln habe ich diese seite gefunden und den vollkommenen code auf der ersten Seite ausprobiert aber vergeblich.
mein Problem ist folgendes:
ich habe ein Verzeichnis mit mehreren Unterverzeichnisse. In diesen Unterverzeichnisse gibt es Dateien , deren Namen ich in eine .txt Datei listen möchte.
mit diesem code ,
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
24
25
26
27
28
29
30
31
use strict;
use warnings;
my @fileliste;
# "open" mit Fehlermeldung wenn es nicht klappt.
opendir(SPAUF, 'C:/perlprogs/SP_AUF/SALES_0000') or die "Konnte Ordner nicht öffnen ($!)\n";
while(my $Filename = readdir(SPAUF))
{
# "." und ".." überspringen
next if($Filename eq '.' or $Filename eq '..');
# Ist es eine datei?
if(-d 'C:/perlprogs/SP_AUF/SALES_0000/'.$Filename)
{
opendir(SPAUF, 'C:/perlprogs/SP_AUF/SALES_0000/'.$Filename) or die "**Konnte Ordner nicht öffnen ($!)\n";
}
else {
push(@fileliste,$Filename);
}
}
closedir(SPAUF);
open(SPEICHERN,'>','C:/perlprogs/SP_AUF/fileliste.txt') or die "Konnte Liderliste nicht Speichern ($!)\n";
print SPEICHERN join("\n",@fileliste);
close(SPEICHERN);
hat es nicht geklappt, denn es werden nur die Dateien im ersten unterordner (00000001)in .txt gespeichert. es bearbeitet nicht die weiteren unterordner. (mein Pfad lautet : C:/perlprogs/SP_AUF/SALES_0000/(hier gibt es unterordner namens 00000001 bis 000000060))
die chance, dass jemand hier mir antwortet ist glaub ich gering, aber dem Versuch ist es wert.
vielen Dank im Voraus