Thread Doppelpunkt falsch angezeigt. (16 answers)
Opened by MiMue at 2018-07-27 11:06

MiMue
 2018-07-27 11:06
#188678 #188678
User since
2018-07-26
3 Artikel
BenutzerIn
[default_avatar]
Tach, ich bin der neue! Ich versuche mir Perl selber beizubringen.
Aber nur mit Büchern und Google geht es aber nicht so recht. :)

Ich habe ein kleines Programm geschrieben, das einen Text-Datei einlesen soll.
Nur als Hinweis, die Original-Datei zum Einlesen hat über 270931 Zeilen = Worte,also nicht für die Bearbeitung von Hand geeignet ;)
Code: (dl )
1
2
3
4
5
6
7
8
9
10
Aachener
Aachenerin
Aal
Aalbestand
Aalener
Aalfang
Aalfischer
Aalfischerei
Aalkasten
Aalkorb

und die Einträge mit den Zusätzen :
Code: (dl )
1
2
3
:
type: n
genus: s

versehen soll.

So sollte es aussehen:
Code: (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
Aachener:
 type: n 
 genus: s 
Aachenerin:
 type: n 
 genus: s 
Aal:
 type: n 
 genus: s 
Aalbestand:
 type: n 
 genus: s 
Aalener:
 type: n 
 genus: s 
Aalfang:
 type: n 
 genus: s 
Aalfischer:
 type: n 
 genus: s 
Aalfischerei:
 type: n 
 genus: s 
Aalkasten:
 type: n 
 genus: s

doch leider wird der : vor dem Wort angezeigt:
Code: (dl )
1
2
3
:Aachener
 type: n 
 genus: s


Ich verstehe einfach nicht warum das so ist?

Hier das Programm:
Code: (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
#!/usr/local/bin/perl 

use IO::File;
use strict;
use warnings;

my $datei = 'word_types.prot';  # Eingabe Datei
my $file = 'word_types.brain';  # Ausgabe Datei

# Eingabedatei einlesen
my @zeilen = ();
open FILE, "<", $datei or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
#close FILE;

while (my $zeile = <FILE>) {
    push @zeilen, $zeile;
}

foreach my $zeile (@zeilen)  {

open FILE, ">>", $file or die "konnte $file nicht zum Lesen oeffnen. $!\n";


print FILE $zeile , ': ' , " type: n ","\n"," genus: s ","\n";
close FILE;

}

;

Last edited: 2018-07-27 11:12:28 +0200 (CEST)

View full thread Doppelpunkt falsch angezeigt.