[E|B

,22.12.2003, 19:12]HiHo!

Code: (dl )

1
2
3
4
5
6
7
8
9

my $satz_bau = 0;
my $string  = 'dieser <auf tolle zu> satz soll <auf schnell zu> bearbeitet werden.';
if($satz_bau == 0){
          $satz_bau =~ s/<.+?>//gi;
}else{
          $satz_bau =~ s/<auf (.+?) zu>/$1/gi;
}

print $satz_bau;

1
2
3
4
5
6
7
8
9
10

my $satz_bau = 0;
my $string   = 'Dieser <auf tolle zu> Satz soll <auf schnell zu> bearbeitet werden.';

if ( $satz_bau == 0 ) {
  $string =~ s/<auf .+? zu>//g;
} else {
  $string =~ s/<auf (.+?) zu>/$1/g;
}

print $string;