![]() |
![]() |
5 Einträge, 1 Seite |
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#!/usr/bin/perl
use warnings;
use strict;
my @tones_array=(); #Dateinamen Tones
my @silben_array=(); #Dateinamen Silben
my @toneszeit=(); #Zeitpunkt Tones
my @toneswert=(); #Wert Tones
my @tonesinhalt=(); #Inhalt zum Splitten
my @silbenzeit=(); #Zeitpunkt Silben
my @silbenwert=(); #Wert Silben
my @silbeninhalt=();#Inhalt zum Splitten
my $i=0; #Index in der Dateiliste
my $tonespos=0; #Position Tones
my $silbenpos=0; #Position Silbe
my $zeile=0; #Zeilenzähler
my $gesamttones; #Anzahl tones pro Datei
my $gesamtsilben; #Anzahl Silben pro Datei
my $tones_datei=" ";
my $syl_datei=" ";
open (DATEI ,"< tones_list.tmp") or die "Konnte Datei nicht öffnen.\n";
while (<DATEI>)
{
chomp($_);
push(@tones_array,$_);
}
close(DATEI);
open (FILE ,"< syl_list.tmp") or die "Konnte Datei nicht öffnen.\n";
while (<FILE>)
{
chomp($_);
push(@silben_array,$_);
}
close(DATEI);
while ($i<=$#tones_array)
{
$tones_datei=$tones_array[$i];#Datei an Position [$i]
chomp($tones_datei);
open (TONES,"< $tones_datei" or die" $!\n");# -->FEHLER....WARUM?<--
print "Öffne Datei $tones_array[$i]\n";
while(<TONES>)
{
chomp($_);
$zeile++;
if ($zeile<=8) #Ignoriere die ersten acht Zeilen
{
next;
}
else
{
@tonesinhalt=split /\s+/;
push(@toneszeit,$tonesinhalt[1]);#Toneszeiten werden gespeichert
push(@toneswert,$tonesinhalt[3]);#Toneswert wird gespeichert
}
}
close(TONES);
$syl_datei=$silben_array[$i];#Datei an Position [$i]
chomp($syl_datei);
open (SILBEN,"< $syl_datei" or die "$!\n");
while(<SILBEN>)
{
print "Öffne Datei $silben_array[$i]\n";
s/#//g;
@silbeninhalt=split /\s+/;
push(@silbenzeit,$silbeninhalt[0]);#Silbenzeiten werden gespeichert
push(@silbenwert,$silbeninhalt[2]);#Silbenwert wird gespeichert
}
close(SILBEN);
my ($pfad,$dateiname) = $tones_array[$i] =~m|^(.*?/)([^/]+)$|;
my ($pfad2,$dateiname2) = $silben_array[$i] =~m|^(.*?/)([^/]+)$|;
open (INTERPRETATION,">>".$pfad."interpretation.txt" or die "$!");
print INTERPRETATION "Analysierte Tonesdatei: ". "$dateiname\n";
print INTERPRETATION "Analysierte Silbendatei: "."$dateiname2\n";
print INTERPRETATION "[Beginn der gesamten Nachricht]\n";
$gesamtsilben=$#silbenzeit;
if ($silbenpos >=$gesamtsilben)
{
$i++;
print INTERPRETATION "[Nachrichtenende]\n";
@tones_array=();
@silben_array=();
@toneszeit=();
@toneswert=();
@tonesinhalt=();
@silbenzeit=();
@silbenwert=();
@silbeninhalt=();
$tonespos=0;
$silbenpos=0;
$zeile=0;
$gesamttones=0;
$gesamtsilben=0;
}
else
{
if ($toneszeit[$tonespos] > $silbenzeit[$silbenpos])
{
print INTERPRETATION "Silbe: ". "-> ~unbetont\n";
$silbenpos++;
}
elsif ($toneszeit[$tonespos] < $silbenzeit[$silbenpos])
{
print INTERPRETAION "Silbe: $silbenwert[$silbenpos] ". "Pitch: $toneswert[$tonespos]\n";
$silbenpos++;
$tonespos++;
}
elsif ($toneszeit[$tonespos] = $silbenzeit[$silbenpos])
{
print INTERPRETAION "Silbe: $silbenwert[$silbenpos] ". "Pitch: $toneswert[$tonespos]\n";
$silbenpos++;
$tonespos++;
}
}
}
open (TONES,"< $tones_datei" or die" $!\n");# -->FEHLER....WARUM?<--
open (TONES, "<", $tones_datei) or die "$!\n";
open (FILE ,"< syl_list.tmp") or die "Konnte Datei nicht öffnen.\n";
open (FILE ,"<", "syl_list.tmp") or die "Konnte Datei nicht öffnen.\n";
open (FILE ,"<", "syl_list.tmp") or die "Konnte Datei nicht öffnen: $!.\n";
open (my $fh,"<", "syl_list.tmp") or die "Konnte Datei nicht öffnen: $!.\n";
1
2
3
4
5
6
7
open (my $fh ,"<", "syl_list.tmp") or die "Konnte Datei nicht öffnen.\n";
while (<$fh>)
{
chomp($_);
push(@silben_array,$_);
}
close $fh;
1
2
3
4
open (my $fh ,"<", "syl_list.tmp") or die "Konnte Datei nicht öffnen.\n";
my @silben_array = <$fh>;
chomp @silben_array;
close $fh;
elsif ($toneszeit[$tonespos] = $silbenzeit[$silbenpos])
elsif ($toneszeit[$tonespos] == $silbenzeit[$silbenpos])
elsif ($toneszeit[$tonespos] eq $silbenzeit[$silbenpos])
1
2
3
4
open my $fh, "<", "syl_list.tmp" or die $!;
while( my $line = <$fh> ){
print $.,"\n";
}
![]() |
![]() |
5 Einträge, 1 Seite |