my $text = join '', (<db/profil0001.txt>);
my @vorkommen = ( $text =~ /=VALUE"([^"]*)"/g);
du schriebst vorher noch, du suchst value=" und nicht =value"
Struppi.
my $text = join '', (<db/profil0001.txt>);
my @vorkommen = ( $text =~ /=VALUE"([^"]*)"/g);
du schriebst vorher noch, du suchst value=" und nicht =value"
Struppi.