regex - Probleme! - #58179 (Allgemeines zu Perl)

Crian

2005-09-20 16:07

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=vayu,19.09.2005, 13:03]Bis zu einem Wort ausgeben

Code: (dl )

1
2
3

if($satz =~ /^(.*)?WORT/) {
  print $1;
}

Ab einem Wort ausgeben

Code: (dl )

1
2
3

if($satz =~ /^.*?WORT(.*)$/) {
  print $1;
}

getestet :P[/quote]
getestet? aber mit den Falschen Daten, was?

Code: (dl )

C:\>perl
$satz = "Dummer Text WORT mit verschiedenen WORTen und noch einem WORT!";
if($satz =~ /^(.*)?WORT/) {
  print $1;
}^Z
Dummer Text WORT mit verschiedenen WORTen und noch einem

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite