print "$split[0Splitfunktion - #68188 (Allgemeines zu Perl)

styx-cc

2006-07-18 14:16

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hoi, hoffe ich hab verstanden was du willst :-)

Code: (dl )

#!/usr/bin/perl -w
use strict;
for (<DATA>) {
  my @line = split(/,/, $_);
  print "$line[0]\n";
}

__DATA__
test,blubbb,test123
hier,ein,satz
und,noch,einer

Ausgabe:

Code: (dl )

stefan@workaholic:~$ perl programmierung/perl/community/split.txt
test
hier
und

So in der Art?

MfG

P.s.:
mach mal Code-Tags um deinen Code, dann werden Smilies zum Beispiel nicht ersetzt :- )

Pörl.