reguläre ausdrücke: reguläre ausdrücke (Allgemeines zu Perl)

Gast Gast

2003-12-22 19:41

guten abend!

hab arge probleme einen geistreichen regulären ausdruck für folgendes suchen-ersetzen problem zu finden. hast jemand einen tip?

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

if ($satz_bau eq 0) { #lösche die inhalte zwischen und incl. <auf ... zu># }
else { #lösche nur <auf und zu># }

ergebnisse wären:

dieser satz soll bearbeitet werden. (if)
dieser tolle satz soll schnell bearbeitet werden. (else)

gruß,

[E|B]

2003-12-22 20:12

User since
2003-08-08
2561 Artikel
HausmeisterIn

HiHo!

Code: (dl )

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

print $satz_bau;

\n\n

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

DS

2003-12-22 21:10

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

[E|B

,22.12.2003, 19:12]HiHo!

Code: (dl )

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;

Öhm, ich hab's noch ned durch, aber zumindest gehört an einiges Stellen $satz_bau durch $string ersetzt...

Nachtrag:
Hab's mal leicht verändert:

Code (perl): (dl )

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;

\n\n

[E|B]

2003-12-22 22:17

User since
2003-08-08
2561 Artikel
HausmeisterIn

@DS

Verstehe dich nicht genau. Wenn du meinst, dass die Variable $string ersetzt werden muss, dass habe ich verbessert.
aber ansonsten ist das Script doch eigentlich richtig... oder?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

esskar

2003-12-23 02:43

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

@EB: vergleich doch die endlösung von DS...
dann weißt du, ob DS dir zustimmt oder nicht! :)