Opened by Vermillion at 2008-11-10 11:46
User since
2008-07-18
24 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-07-18
24 Artikel
BenutzerIn
Ich habe vier Dateien. In jeder Datei steht ein Wort pro Zeile. Jetzt möchte ich ein Programm schreiben dass eine Datei nach der anderen öffnet und die Wörter dann in eine Liste speichern. Anschliessend sollen die Listen "durchgemischt" werden und von jeder Liste ein Wort ausgegeben werden (ergibt an Schluss einen Satz =)).
Das habe ich bis jetzt schon:
Wie würdet ihr die Datei zeilenweise auslesen? würdet ihr für jede Datei eine Schleife und eine Separate Liste machen und am Schluss alles zusammensetzen?
Das habe ich bis jetzt schon:
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
use strict;
use warnings;
use List::Util 'shuffle';
my $datei = "first.txt";
open (in,"<$datei") || die $!;
my @list; # Liste mit Wörtern
#
# Datei einlesen
#
while (<in>){
# Datei Zeilenweise auslesen
}
}
close (IN_FILE);
#Listenelemente zufällig anordnen
@list=shuffle(@list);
Wie würdet ihr die Datei zeilenweise auslesen? würdet ihr für jede Datei eine Schleife und eine Separate Liste machen und am Schluss alles zusammensetzen?