Hallo zusammen,

kurz vorweg: ich bin völliger Perl-Anfänger und habe ein Problem, bei dem ich dachte, mit ein bischen Einlesen und Anschauen von Beispielprogrammen kriege ich es hin. Mittlerweile bin ich aber verzweifelt - es klappt einfach nicht.

Es geht um Perl & Regular Expressions.

$variable enthält:
ds[used].type = "GAUGE"
ds[used].minimal_heartbeat = 20
ds[used].min = 0.0000000000e+00
ds[used].max = 1.1258999068e+15
ds[used].last_ds = "34080235520.000000"
ds[used].value = 3.0672211968e+11
ds[used].unknown_sec = 0
ds[free].type = "GAUGE"
ds[free].minimal_heartbeat = 20
ds[free].min = 0.0000000000e+00
ds[free].max = 1.1258999068e+15
ds[free].last_ds = "24130674688.000000"
ds[free].value = 2.1717607219e+11
ds[free].unknown_sec = 0


Ich will nur folgende Linien haben
ds[used].type = "GAUGE"
ds[free].type = "GAUGE"

In Linux wäre der Befehl echo $variable | egrep '\<ds\>[[][a-z]{*}[]][.]\<type\>'

Wie lautet der Equivalent in Perl dazu? Ich weiss nicht wie ich das RegExp Pattern auf die Variable legen kann.


$variable soll am Ende einfach nur die beiden oberen Linien enthalten.

mfg