regexp negieren (Allgemeines zu Perl)

[thread]13664[/thread]

regexp negieren

Leser: 23

Articles: hide open all | hide show old branches

+3 replies
chopic

2009-06-27 01:37

User since
2009-06-27
2 Artikel
BenutzerIn

Hallo zusammen,

versuche schon eine ganze Weile reguläre Ausdrücke zu negieren. Habe aber so ein Gefühl, dass ich etwas grunsätzlich nicht verstehe.
Ich möchte z.B. aus folgenden fünf Eingabezeilen:
----------------
hallo, wie gehts
schoenes wetter
123
heute ist freitag
,
----------------
nur diejenigen zu bekommen, die kein Komma haben:

if(/[^,]/)
{print $_;}

bekomme aber alle fünf Zeilen ausgegeben?

oder die Zeilen zu bekommen, die keine Ziffer enthalten:

if(/[^\d]/)
{print $_;}

bekomme aber wieder alle fünf Zeilen ausgegeben?

So klappt es mit der Negierung der Zeile mit Ziffern auch nicht?

if(/\D+/)
{print $_;}

Könnte mir jemand weiterhelfen?

Danke
Chopic
- +2 replies
- Linuxer
  
  2009-06-27 01:51
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  wäre schön wenn Du demnächst die Code-Tags nutzen würdest:
  
  z.B.:
  allgemein fuer Code-Beispiele jeglicher Art
  [code]dein code[/code]
  oder speziell für Perl Code:
  [perl]dein code[/perl]
  
  Code: (dl )
  
  1 2 3
  
  if ( /[^,]/ ) { print $_; }
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( ! /,/ ) { print $_; }
  
  Hier wird Dein Ausdruck wahr, sobald auch nur ein Nicht-Komma vorhanden ist.
  Du hast zwar das Komma "negiert", aber nur als Zeichen, also suchst Du nun nach allen "Zeichen, die nicht dem Komma entsprechen". Und die Bedingung passt ja bei Deinen Zeilen.
  
  Du möchtest aber eine Negation des gesamten Regex; also genau dann, wenn ein Komma enthalten ist, soll Deine Bedingung "falsch" als Ergebnis haben.
  
  Negieren kannst Du mit dem '!' (ohne '').
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( ! /,/ ) { print $_; }
  
  oder
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( $_ !~ /,/ ) { print $_; }
  
  Lesenswert ist auch die Doku:
  
  perldoc perlretut
  perldoc perlrequick
  perldoc perlre
  
  http://perldoc.perl.org/perlretut.html
  http://perldoc.perl.org/perlrequick.html
  http://perldoc.perl.org/perlre.html
  
  So, und nun gute Nacht.
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - chopic
    
    2009-06-27 22:31
    
    User since
    2009-06-27
    2 Artikel
    BenutzerIn
    
    Hallo Linuxer,
    
    danke für deine Tips und hilfreiche Antwort! es hat geholfen!
    
    Chopic

View all threads created 2009-06-27 01:37.