Regex mit Spaltenprüfung möglich? (Allgemeines zu Perl)

[thread]14265[/thread]

Regex mit Spaltenprüfung möglich?

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
rk-ger

2009-11-19 03:06
User since
2006-08-07
45 Artikel
BenutzerIn
Hallo,

noch ein Problem:

Ich möchte eingelesene Zeilen in einer Schleife nur dann verarbeiten, wenn der Text exakt ab der 16. Stelle beginnt. Also konkret: Zeilenanfang plus 15 Leerzeichen, danach ein beliebiges Zeichen. In dem Fall möchte ich die Zeile einlesen, andernfalls nicht.

Beispiel:

Test Test Test -> nicht einlesen, nur 14 Leerzeichen
Test Test Test -> einlesen bis Zeilenende. 15 Leerzeichen
Test Test Test -> nicht einlesen, 16 Leerzeichen

Mit einem RegEx bekomme ich es nicht hin. Ich habe
Code: (dl )

$_ =~ /^ {15}(\S.*)$/
probiert. Das findet aber gar nichts.

Und
Code: (dl )

$_ =~ /^ {15} *(.*)$/
ignoriert zwar Zeilen mit zu wenig Leerzeichen, nimmt aber die mit zu vielen Leerzeilen mit.

Was mache ich falsch? Wo liegt mein Denkfehler? Wie geht es richtig?

Gruß
Richard
- +2 replies
- Gast wer
  
  2009-11-19 03:24
  Deine erste regexp ist nicht falsch, weiß nicht warum es nicht funktioniert.
  Sind alles wirklich Leerzeichen?
  Sind es wirklich 15 Zeichen und nicht 16?
  Das sollte funktionieren:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  if($line=~/^\s{15}(\S.*)$/) { print "15 space-zeichen plus ($1)\n"; }
  - LanX-
    
    2009-11-19 09:43
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    hmm wenn er z.B. 4 Tabs hat und die mit 4 Vorschub angezeigt werden, dann greifen die 15 natürlich nicht...
    me and my writeups
- +2 replies
- LanX-
  
  2009-11-19 10:13
  User since
  2008-07-15
  1000 Artikel
  BenutzerIn
  2009-11-19T02:06:02 rk-ger
  Hallo,
  
  Code: (dl )
  
  1 2 3
  
  Test Test Test -> nicht einlesen, nur 14 Leerzeichen Test Test Test -> einlesen bis Zeilenende. 15 Leerzeichen Test Test Test -> nicht einlesen, 16 Leerzeichen
  
  Was mache ich falsch?
  
  dein Beispiel wird erst richtig angezeigt mit code tags!
  
  allerdings:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  while (<DATA>) { print if /^ {15}(\S.*)/; } __DATA__ Test Test Test -> nicht einlesen, nur 14 Leerzeichen Test Test Test -> einlesen bis Zeilenende. 15 Leerzeichen Test Test Test -> nicht einlesen, 16 Leerzeichen
  
  liefert unproblematisch
  
  Code: (dl )
  
  Test Test Test -> einlesen bis Zeilenende. 15 Leerzeichen
  
  me and my writeups
  - rk-ger
    
    2009-11-19 10:49
    
    User since
    2006-08-07
    45 Artikel
    BenutzerIn
    
    Ok, danke für den Hinweis.
    
    Ich habe es gefixt. Wie üblich saß der Fehler vor dem Gerät. Meine Inputdatei ist kaputt. Die Anzahl der Leerzeichen schwankt abschnittsweise. Das hatte ich nicht realisiert. Erst schlafen, dann coden. Danke für die Hinweise.

View all threads created 2009-11-19 03:06.