Opened by Manji at 2009-07-29 10:34
Hallo!
Ich bin gerade dabei, mit Perl eine größere Masse an Texten (textgrids) auszulesen. Es soll geprüft werden, ob ein bestimmte Buchstabe darin vorkommt und wenn ja, soll der Name der Datei ausgeworfen werden.
Soweit ist die Struktur eigentlich klar... aber wie ich am Ende den Namen auswerfe, bekomme ich nicht hin.
Last edited: 2009-07-29 10:52:37 +0200 (CEST)
Ich bin gerade dabei, mit Perl eine größere Masse an Texten (textgrids) auszulesen. Es soll geprüft werden, ob ein bestimmte Buchstabe darin vorkommt und wenn ja, soll der Name der Datei ausgeworfen werden.
Soweit ist die Struktur eigentlich klar... aber wie ich am Ende den Namen auswerfe, bekomme ich nicht hin.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
print "Vokal in SAMPA-Zeichen eingeben:\n";
my $vokal = <STDIN>;
chomp($vokal);
foreach my $file (<*.TextGrid>) {
open (IN,"<$file") || die("File $file existiert nicht in diesem Ordner.\n");
if ($file= $vokal) {
print "ich bin ein Dateiname .\n";
} else{
print "oo.\n";
}
}
Last edited: 2009-07-29 10:52:37 +0200 (CEST)