Zeile ab erstem Auftreten von Whitespace abschneiden (gelöst) - #149603 (Allgemeines zu Perl)

wotuzu17

2011-06-14 18:07

User since
2011-06-14
5 Artikel
BenutzerIn
[default_avatar]

Hi,

bin neu bei Perl.

Ich möchte ein Textfile zeilenweise durchgehen und bei allen Zeilen nur den Text bis zum Auftreten des ersten Whitespace Characters ausgeben.

Code (perl): (dl )

while(<FILE>) {
  my $line=$_;
  my $index= index($line, "\s");
  my $word= substr $line, 0, $index;
  print $word;
}

Die index() Funktion liefert aber immer nur -1, sie findet also die White Spaces nicht.
Last edited: 2011-06-14 18:17:57 +0200 (CEST)