Leser: 1
|< 1 2 >| | 16 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
for (<DATA>) {
my @line = split(/ /, $_);
print "$line[0]\n";
}
__DATA__
name alter wohnort usw.
max 18 FFM
till 18 Nürnberg
friedel 18 lichtenau
anja 19 salzburg
1
2
3
4
5
6
stefan@workaholic:~$ perl programmierung/perl/community/split.txt
name
max
till
friedel
anja
|< 1 2 >| | 16 Einträge, 2 Seiten |