Schrift
[thread]12476[/thread]

Verzeihnis durchsuchen macht Probleme!?



<< |< 1 2 >| >> 11 Einträge, 2 Seiten
yasukatakaya
 2008-09-11 12:27
#114522 #114522
User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]
Hallo,
also mein Problem ist, wenn ich einen Ordner durchsuchen will, indem viele txt-Dateien sind, falls der Ordner größer ca. 18KB ist (das sind über 100 txt-Dateien) will perl in diesem ordner nicht suchen, es kommt auch keine
Fehlermeldung heraus etc., es wird in jede txt-Datei nach bestimmten Muster gesucht!
Dieses Problem kommt aber nur, wenn ich einen Verzeichnis unter Unix durchsuchen will, wenn ich den gleichen Verzeichnis auf Windows durchsuchen will mit dem exakt gleichen Skript, dann tut er dies auch, weiß jemand vielleicht was das Problem sein kann, das unter Unix-OS auftritt?

Gruss
Linuxer
 2008-09-11 12:31
#114523 #114523
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Öhm, wie sieht der Code dafür aus?
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
yasukatakaya
 2008-09-11 12:43
#114524 #114524
User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]
wie es aussieht macht dieser teil probleme, das konnte ich eben rauskriegen, wie kann man diesen teil ersetzen

Code: (dl )
1
2
3
4
my @fileliste = <$aktuellerPfadUrspung/*.txt>;

foreach my $datei (@fileliste)
{

der teil sagt nur, dass nur dateien im ordner geöffnet werden sollen, die ein txt-endung haben, wie kann man dieses anderes beschreiben?
GwenDragon
 2008-09-11 12:57
#114525 #114525
User since
2005-01-17
14746 Artikel
Admin1
[Homepage]
user image
Du kannst ja die Wildcards in eine eigene Variable speichern.
Code: (dl )
1
2
my $ext = '*.pl'; # oder was gewünscht, auch *.* oder test.??? oder andere Kombi
my @fileliste = <$aktuellerPfadUrspung/$ext>;
yasukatakaya
 2008-09-11 13:09
#114527 #114527
User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]
Hi,
ne das hat nichts gebracht, ab da wird nichts mehr geprintet!
Wie kann man es sonst ersetzen?
Linuxer
 2008-09-11 15:10
#114530 #114530
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Ich finde die Informationsbasis immer noch recht mau. Aber stochern wir mal weiter.

Was ist denn der Inhalt von $aktuellerPfadUrspung?
Pfade sind unter WinDOS und Unix verschieden aufgebaut!
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
bytebrain
 2008-09-11 15:13
#114531 #114531
User since
2008-07-21
20 Artikel
BenutzerIn
[default_avatar]
wie sieht denn deinen opendir-Befehl aus?
GwenDragon
 2008-09-11 15:14
#114532 #114532
User since
2005-01-17
14746 Artikel
Admin1
[Homepage]
user image
perl -e "$ext='d*.*';$pfad='.';@files=<$pfad/$ext>;print @files" zeigt bei mir sämtliche Dateien, die mit d anfangen im aktuellen Verzeichnis.
Dubu
 2008-09-11 21:03
#114548 #114548
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Enthält $aktuellerPfadUrspung evtl. Leerzeichen?
Was passiert, wenn du Folgendes benutzt?
Code (perl): (dl )
1
2
3
use File::Glob qw/:glob/;
...
my @fileliste = bsd_glob("$aktuellerPfadUrspung/*.txt");


Und wieso heißt es überhaupt "Urspung" statt "Ursprung"? ;-)
cbxk1xg
 2008-09-11 22:05
#114552 #114552
User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]
Wie wäre es denn mit grep und einem regulärem Ausruck? Also in etwa so...
Code (perl): (dl )
grep /.txt/i;
<< |< 1 2 >| >> 11 Einträge, 2 Seiten



View all threads created 2008-09-11 12:27.