Opened by Gast at 2005-02-22 16:10
Ungetestet:
oder
Wie gesagt, spontan und ungetestet. Was du mit der zweiten Datei genau vorhast, weiss ich nicht, daher spare ich mir vorerst Code dazu.\n\n
<!--EDIT|phaylon|1109098385-->
Code: (dl
)
push @felder, $1 if /^([a-z]+),/i;
oder
Code: (dl
)
1
2
3
my $days = join '|', qw( Montag Dienstag ); #fortsetzen
# und im while:
push @felder, $1 if /^($days),/i;
Wie gesagt, spontan und ungetestet. Was du mit der zweiten Datei genau vorhast, weiss ich nicht, daher spare ich mir vorerst Code dazu.\n\n
<!--EDIT|phaylon|1109098385-->