csv-datei - erster datensatz: der 1. datensatz wird nicht übernommen:( (Allgemeines zu Perl)

[thread]8136[/thread]

csv-datei - erster datensatz: der 1. datensatz wird nicht übernommen:(

matthi

2006-07-04 16:35

User since
2006-03-18
1 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

Ich will eine CSV-Datei, die relativ groß ist, in mehrere kleine (Unterscheidung durch eine Nummer) aufteilen.
Das funktioniert wunderbar, jedoch wird der erste Datensatz der ersten Datei nicht übernommen.
mein Code:

Code: (dl )

while(<DATEN>)
 {
 push(@zeilen, $_);
}

$i = 0;

for(@zeilen)
{
...
print FILE @zeilen[$i];
...
}

Was mache ich bitte falsch?

bin für jegliche Tipps dankbar.

lg Matthi

2006-07-04 16:46

User since
2003-08-04
12208 Artikel
Admin1

wenn du mit for() über @zeilen iterierst, wofür brauchst du dann das $i?
oder umgekehrt: wenn du das $i brauchst, solltest du über 0 .. $#zeilen iterieren.
der code, den du gepostet hast, läßt $i übrigens immer auf 0. du
bekommst immer datensatz 0.\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

2006-07-04 16:48

User since
2003-08-04
12208 Artikel
Admin1

Code: (dl )

my @zeilen = <DATEN>; # wozu while, wenn du eh alles in @zeilen haben willst?

for my $i (0 .. $#zeilen) {
  print FILE $zeilen[$i]\n";
  # mach was mit $i
}

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Strat

2006-07-04 19:22

User since
2003-08-04
5246 Artikel
ModeratorIn

eigentlich nichts, es sollte so funktionieren. hast du am anfang der csv-datei irgendwelche sonderzeichen? wird die erste zeile auch in der while(<DATEN>)-schleife nicht durchlaufen?

teste mal:

Code: (dl )

while( defined my $line = <DATEN> ) {
  print "Zeile $.:\t$line\n";
  push( @zeilen, $line );
} # while

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2006-07-04 16:35.