Leser: 1
10 Einträge, 1 Seite |
split(/ /, $data);
split(/ /, $data);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;
use Data::Dumper;
my @array;
while (my $line = <DATA>) {
@array = split(/ /, $line);
print Data::Dumper->Dump([\@array], [' split / /']);
@array = split(/\s+/, $line);
print Data::Dumper->Dump([\@array], [' split /\s+/']);
}
__END__
08.06.2007 09.10.55,712 de.xxx.yyy.zzz
10 Einträge, 1 Seite |