Leser: 1
![]() |
![]() |
3 Einträge, 1 Seite |
my @SET_SPLIT = split /\$/, $SET;
1
2
3
4
5
6
7
8
use strict;
use warnings;
my $SET = 'a$b$c$d$f';
my @SET_SPLIT = split /\$/, $SET;
print "$_\n" foreach (@SET_SPLIT);
my $ende = <STDIN>;
1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
open (FILE, "test.txt") || die "Kann Datei nicht \x94ffnen!\n$!";
while (my $SET = <FILE>) {
my @SET_SPLIT = split /\$/, $SET;
print "$_\n" foreach (@SET_SPLIT);
}
close FILE;
my $ende = <STDIN>;
a$b$c$d$e$f$g$h$i$j
![]() |
![]() |
3 Einträge, 1 Seite |