Dateiname ausgeben (Allgemeines zu Perl)

[thread]13797[/thread]

Dateiname ausgeben

Readers: 23

Articles: hide open all | hide show old branches

+4 replies

guest Manji

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.

Code: (dl )

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)

+2 replies

moritz

2009-07-29 10:49

User since
2007-05-11
923 articles
HausmeisterIn

Guest Manji
Hallo!
Code: (dl )
		if ($file= $vokal) {

Diese Zeile bedeutet so viel wie "Weise der Varianble $file den Wert der Variable $vokal zu. Wenn dieser Wert true ist..."

Vermutlich willst du eher sowas:

Code: (dl )

if ($file =~ /$vokal/ ) { ... }

Oder du schaust dir von vornherein nur interessante Dateinamen an:

Code: (dl )

1
2
3

for my $file (glob "*$vokal*.TextGrid") {
   ...
}

Wobei das dann den Buchstaben $vokal nur im ersten Teil des Dateinamen sucht, nicht im .TextGrid.

Perl 6 - Perls Zukunft

havi

2009-07-29 12:06

User since
2003-08-04
2036 articles
BenutzerIn

Hi,

weiß nicht genau was du meinst... soll $vokal im Dateinamen vorkommen?

dann so:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

print "Vokal in SAMPA-Zeichen eingeben: ";
chomp(my $vokal = <STDIN>);

opendir(my $fhDir, "c:\\") or die $!;
my @files = grep { $_ =~ m/$vokal/i } readdir($fhDir);
closedir($fhDir) or die $!;

print join("\n", @files)."\n";

oder soll der $vokal in der Datei vorkommen?

dann so:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

print "Vokal in SAMPA-Zeichen eingeben: ";
chomp(my $vokal = <STDIN>);

opendir(my $fhDir, "c:\\Daten\\") or die $!;
my @files = grep { $_ =~ m/\.txt$/ } readdir($fhDir);
closedir($fhDir) or die $!;

for (my $i = 0; $i <= $#files; $i++) {

   open(my $fhEin, "<$files[$i]") or die $!;

   while(my $zeile = <$fhEin>) {

      if ($zeile =~ m/$vokal/) {
         print $files[$i]."\n";
         last;
      } # if

   } # while

   close($fhEin) or die $!;

} # for

Gruss,
Gernot
Last edited: 2009-07-29 12:07:15 +0200 (CEST)

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

hlubenow

2009-07-29 20:52
User since
2009-02-22
877 articles
BenutzerIn
Wahrscheinlich willst du auch eher:
Code: (dl )

if ($file =~ /\Q$vokal\E/ ) { ... }
Gruß

View all threads created 2009-07-29 10:34.