Opened by autopsie at 2005-01-20 22:22
User since
2005-01-20
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-01-20
4 Artikel
BenutzerIn
Hallo Leute,
ich habe einen Problem mit splitten der Textdatei.
Die Aufgabe lautet:
Spalte alle Zeilen der Datei zeilen.txt in Wörter auf und kopiere diese einzelnen Wörter in die Datei woerter.txt. Auf jeder Zeile von woerter.txt soll also nur ein Wort stehen.
Mein Programm sieht bis jetzt so aus:
Da ich eine richtige Anfängerin bin, ist jetzt meine Frage, wo soll die Funktion split im Queltext stellen und wie ich es splitten soll, da ich in jeder Zeile nur ein einziges Wort haben kann?
Bitte hilf mir wer kann! Ich bin schon am Verzweifeln.....
edit renee: [code]-Tags spendiert
ich habe einen Problem mit splitten der Textdatei.
Die Aufgabe lautet:
Spalte alle Zeilen der Datei zeilen.txt in Wörter auf und kopiere diese einzelnen Wörter in die Datei woerter.txt. Auf jeder Zeile von woerter.txt soll also nur ein Wort stehen.
Mein Programm sieht bis jetzt so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
#
#
#
#
############################
my $filename="zeilen.txt";
my $line;
my @liste;
open (EINGABE,$filename);
while ($line =<EINGABE>)
{
chomp ($line);
if ($line=~ m/[A-Z ÄÖÜß a-z äöü].*/)
{
print ("$line \n");
}
}
Da ich eine richtige Anfängerin bin, ist jetzt meine Frage, wo soll die Funktion split im Queltext stellen und wie ich es splitten soll, da ich in jeder Zeile nur ein einziges Wort haben kann?
Bitte hilf mir wer kann! Ich bin schon am Verzweifeln.....
edit renee: [code]-Tags spendiert