perl spilit Problem

[Badsteve]

hi,

ich habe ein Problem mit Perl und split, das Programm will anscheinend nicht da splitten, wo ich will.

#!/usr/bin/perl -w
my (@lines);
open (FH, 'calls') or die $!;
@lines = reverse <FH>;
$count=0;
close(FH);
foreach (@lines) {
   @text = split("|", $_);
   foreach(@text){
      print $_;
      $count=$count+1;
      if( $count > 3 ){
         $count=0;
         print "\n";
         last;
      }

   }

}

das ist mein Programm bis jetzt. Es soll die ersten 3 Abschnitte aus calls ausgeben, die durch |'s getrennt sind. Ein Beispiel für die Datei werde ich anhängen.


danke, Steve

[fork]

   @text = split("|", $_);

Das Pipe-Zeichen ist kein besonders glücklicher Feldtrenner, es ist ein spezielles Sonderzeichen, und muss quotiert werden:

   @text = split('\|', $_);

Ansonsten möchtest Du ja nur die ersten 3 Felder ausgegeben haben, musst also >3 durch ==3 ersetzen.

Gruß
Tobias

[Badsteve]

danke das war der Fehler, dadrauf wäre ich nie gekommen.


Steve