Thread Dir ohne Unterordner in .txt Datei u.ä.. Wie?
(60 answers)
Opened by stormy2211 at 2007-11-02 21:31
soo, hab alle Fehler soweit ich konnte behoben. Aber 3 wollen einfach nicht weg gehen:
"my" variable $Zahl mask earlier declaration in same scope at... line71 und syntax error at.... line50, near ") und der letzte: open " Execution of ... aborted due to compilation errors. meine überarbeitete "version" (nur der untere Code Teil): Code (perl): (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 32 33 34 35 36 37 for (my $s=00;$s<=$test;$s++) #Zeile41 #hier sage ich er soll alle Dateien der Reihe nach öffnen bis eben die letze Datei erledigt ist #wäre das dann nicht <=$test-1 statt <=$test ? { #für was müsste ich hier $Dateiname einsetzen? bei mir finde ich diese Variabel nicht #müsste ich in meinem Fall dann $Verzeichnis[$s] einsetzen? for my $Dateiname (@Verzeichnis) #Zeile47 open (LESEN,"<C:/Freunde/my $Verzeichnis[$s]"); #Zeile50 my @inhalt=<LESEN>; #Zeile51 my $Data=join(' ', @inhalt); #Zeile52 #hier wird inhalt in eine Zeile gestopft #also slurpen soweit ich verstanden habe for my $Name ($Namensliste[$s]) #Zeile55 { #falls Name in Datei vorhanden, egal ob/mayer oder Mayer #dann wird die Zahl um eins erhöht, falls es 2x vorkommt #trotzdem nur einmal da if Bedinung 1x erfüllt und es #dann gleich weiter geht if($Data=~/$Name/i) #Zeile62 { my $Zahl++; #Zeile64 } } close(LESEN) #Zeile68 } print my $Zahl; #Zeile71 print my $test; #Zeile72 <stdin> #hier lasse ich mir eben ausgeben in wievielen #Textdateien der Name wo im Namen der Datei stand #auch im Dateiinhalt steht und wieviele Dateien #es insgesamt waren. Was heißen die oben genannten Fehler eigentlich genau (bis auf Syntax-Fehler den kenne ich mittlerweile, auch wenn ich nicht weiß was bei mir in der Syntax nicht stimmt) mfg stormy http://img401.imageshack.us/img401/4576/69809978zz...
Ich sag mal lieber nicht bei welchem Board diese Meldung kam http://smiliestation.de/smileys/Gemischt/132.gif |