Regex Problem

[seth]

gudn tach!

Was ich noch wichtiges vergessen habe [...] ich brauche aus der ersten Zeile jeweils die ID, also in der ersten Zeile z.B. ffff: oder im class Block z.B. 1:11

my $id='';  
while(<DATA>){  
  if(/^(?:qdisc [a-z_]+ ([a-f0-9]+):|class [a-z_]+ ([^ ]+))/){  
    $id = defined $1 ? $1:$2;  
    # oder ab perl 5.10 kurz: $id = $1 // $2;  
  }else{  
    print "$id: $1 $2 $3 $4" if /^ (Sent \d+).*(dropped \d+), +(overlimits \d+)/;  
  }  
}

hab's nicht ausprobiert. idee (zeilenweises durchforsten, merken der id) sollte aber klar sein.

prost
seth