String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

Du verbiegst dir nix wenn du stattdessen schreibst

if( $_ =~ /^[1]*[^#]?\WORT1\b/ ) {
    $_ = chomp($_).",WORT2\n";
    $check = 1;
}

ok!

deine RegEx ist etwas kryptisch, klamüsern wirs auseinander

m{
  ^            # anfang der Zeile
  [ \t]*       # beliebig viele Whitespaces, warum nicht \s* ?
  [^#]?        # ein oder kein Zeichen dass nicht # ist
  \W           # ein nicht Wort zeichen
  ORT1         # diese Zeichenkette
  \b           # Wortgrenze
}x

>   
> ORT1 naja wohl ein schreibfehler???  

davor ist mir das b flötten gegangen ;-)  
  
  

> das ist übrigens ein gültiger RegEx Code dank des x Flags kannste Leerzeichen und Kommentare einfügen und mit {} statt // wirds auch lesbarer.  
  
wofür steht am Anfang das m?  
  
Danke!

---

1. \t ↩︎