Struppi: suche von undefinierter zeichenkette zwischen 2 konstanten

Beitrag lesen

ich sehe mal wieder den wald vor lauter bäumen nicht. also eine textdatei, in dieser kommt x-mal vor: VALUE="xxxx". ich muss je vorkommen die zeichenkette zwischen den " " isolieren.

sowas

  
#!/usr/bin/perl -w  
use strict;  
my $text = join '', (<DATA>);  
my @vorkommen = ( $text =~ /="([^"]*)"/g);  
  
print "@vorkommen";  
__DATA__  
bla blabla bla value="val 1" bla blabla bla  
bla blabla bla  
 value="val 2"  
bla blabla bla  value="val 3"  
bla blabla bla

Struppi.