Thread Array Zeilenweise auslesen (8 answers)
Opened by geloescht at 2012-08-02 23:17

geloescht
 2012-08-02 23:46
#160529 #160529
User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]
Hi topeg

Zur Erklärung von deinem Code später. Es ist wahrscheinlich die 2. Variante, die ich habe. Deine Lösung gab diese Fehlermeldung:

Can't modify constant item in addition (+) at guest-reader.pl line 60, near "12) "
Bareword "i" not allowed while "strict subs" in use at guest-reader.pl line 63.
Execution of guest-reader.pl aborted due to compilation errors.

Ich zeige hier noch schnell den Einlesecode in das Array. Der funktioniert. Das habe ich mir ausgeben lassen. Die Daten der Skalare sind definitiv im Arry drin! Einlesecode:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

##################################
# Read-Out-Engine / Buchausleser #
##################################

open(LESER, "<coresys/message.csv") or die "ERROR: Unable to open the Message-file during read-access!";
flock(LESER, LOCK_SH);

my @Collector;
my $counter = 0;

while(! eof(LESER)){
my $zeile = <LESER>;
my ($DB_nick, $DB_nachricht, $DB_zaehler, $DB_gbrgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden) = split(/;/,$zeile);

$counter = ($counter + 1);

push (@Collector, $counter, $DB_nick, $DB_nachricht, $DB_zaehler, $DB_gbrgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden);
}


Was ich noch erwähnen sollte: Die 12 Skalare sind nicht nur einmalig vorhanden bzw. immer 12 Stück sind eine Zeile, dann kommen die nächsten 12 usw. Die CSV-Datei hat also 12 spalten und n-Zeilen.

Vielleicht ist es so etwas deutlicher.

Gruss HP-User
Last edited: 2012-08-02 23:49:17 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

View full thread Array Zeilenweise auslesen