regexp spaltenbasiert (Allgemeines zu Perl)

[thread]20447[/thread]

regexp spaltenbasiert

Tags: emacs regex Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+16 replies
parafux

2018-04-10 11:15
User since
2018-04-10
5 Artikel
BenutzerIn
ich würde gern einen bestimmten regexp in den jeweiligen Zeilen auf genau eine bestimmte Spalte verschieben.
Das heisst, dass dieser Ausdruck jeweils entsprechend weit nach rechts verschoben wird.

beispiel:
Code: (dl )

1 2 3 4 5 6 7 8 9

vorher xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz nachher xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
geht das mit regulären Ausdrücken? Falls ja, wie? Muss gar nicht perl spezifisch sein, einfach nur im emacs wäre mir am liebsten.

modedit Editiert von GwenDragon: Code-Tags gesetzt
Last edited: 2018-04-10 11:35:23 +0200 (CEST)
- GwenDragon
  
  2018-04-10 11:25
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Willkommen im Forum, parafux.
  
  Hmmm…
  Ich seh’ da keinen Unterschied bei deinem Beispieltext.
  Was soll denn da geändert werden? Bitte überprüfe dein Beispiel doch mal.
  
  ~~Ich versteh jedenfalls nicht genau was du möchtest. Bist du so nett und versuchst es näher zu erklären.~~
  
  //EDITH: Ich habe deinen Text in Code-Tags gesetzt und jetzt sehe ich was du möchtest.
  Last edited: 2018-04-10 11:38:53 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- Linuxer
  
  2018-04-10 11:33
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Willkommen,
  
  Daten-Beispiele solltest Du am besten in [code][/code] Tags setzen.
  Dann bleibt auch die Formatierung mit mehreren Leerzeichen erhalten.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  vorher xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz nachher xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
  
  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!
  - GwenDragon
    
    2018-04-10 11:36
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Ach herrje, Leerzeichen, das habe ich nicht gesehen. Darauf kam ich nicht.
    Danke für den Hinweis.
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +5 replies
- Linuxer
  
  2018-04-10 11:37
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Du könntest alle Vorkommen von Whitespaces durch ein Whitespace ersetzen.
  Wenn die Strings nur wenig unterschiedlich lang sind, wäre evtl. ein Tab eine passende Wahl.
  Was man da benutzen und wie genau, hängt dabei von Deinen Daten ab und wie groß die Varianz der Längen innerhalb einer Spalte ist.
  
  Wenn Zeilenweise gelesen wird, könnte jede Zeile mit s/\s+/\t/g bearbeitet werden.
  
  Wie das in emacs funktioniert, weiß ich nicht; ich benutze vim ;-)
  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!
  - +4 replies
  - parafux
    
    2018-04-10 12:30
    
    User since
    2018-04-10
    5 Artikel
    BenutzerIn
    
    Hallo,
    
    also mein Code ist nur ein Beispiel, es müssen keine Leerzeichen sein. ich hätte einfach gern nur eine Anweisung, wie ich einen regex an eine bestimmte Spalte schiebe. Ich brauche evtl. auch eine unterschiedliche Anzahl an Tabs, deswegen ist ein Ersetzen durch Leerzeichen oder Tabs keine Lösung für mich.
    
    Allgemeine regex-Ausdrücke sind ja dann auch (evtl. in abgewandelter Form) für meinen emacs verwendbar.
    
    Gruß p.
    - hlubenow
      
      2018-04-10 13:46
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Versteh' ich immer noch nicht.
      Was möchtest Du durch was ersetzen?
    - Linuxer
      
      2018-04-10 15:46
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Bin mir nicht sicher, ob ich Dich richtig verstehe.
      
      Vielleicht so:
      
      Du könntest mit Wildcards, Quantifiern und einfangenden Klammern (in Perl) arbeiten.
      
      Code: (dl )
      
      s/^(.{10})\s\s\s/$1\t\t/
      
      sollte die drei Whitespaces an Position 11 bis 13 durch zwei Tabs ersetzen...
      
      Vielleicht helfen auch Perls "Lookaround-Assertions": perlre Lookaround-Assertions
      
      Alternativ könnte man sowas auch in Perl mit perlfunc substr machen. Grundlegend nur string-basiert, wenn es variabel (z.B. mit Regex) werden soll, muss man da drum herum arbeiten.
      
      Was heißt "bestimmte Spalte"; woran wird das fest gemacht?
      Vielleicht sind Regex auch das falsche Werkzeug für Dein Problem. Aber das habe ich auch wahrscheinlich noch nicht richtig erkannt.
      
      Innerhalb von Perl kannst Du im Ersetzungsteil auch Funktionen aufrufen.
      So könnte man auch die zu ersetzenden Zeichen zählen und dann entsprechend eine dynamische Anzahl Ersetzungszeichen einfügen.
      
      Beispiel, ungetestet:
      more (3.5kb)
      
      Ein anderer Ansatz wäre, die Zeile aufzusplitten und beispielsweise mit printf neu zu formatieren und auszugeben.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      # ist eher ein Kandidat für einen einzeiler oder skript; weniger direkt als spontane Eingabe im Editor # vielleicht als Funktion vorbereitbar und dann verwendbar my @fields = split /\s+/, $line; my $format = ( "%25s" x @fields ) . "\n"; printf $format, @fields;
      
      Vielleicht liege ich auch komplett falsch. Aber mehr als raten bleibt nicht, da die Beschreibung bisher recht vage ist.
      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!
    - GwenDragon
      
      2018-04-10 16:05
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Reports.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      use strict; use warnings; my ($col1, $col2, $col3); format STDOUT = @<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< $col1, $col2, $col3 . while (<DATA>) { chomp; ($col1, $col2, $col3) = split /\s+/; write STDOUT; } __DATA__ xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
      
      Ergibt
      
      Code: (dl )
      
      1 2 3
      
      xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- rosti
  
  2018-04-10 13:18
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  Ich würde da nicht im Presentation-Layer rumoperieren sondern das Layout ganz einfach über ein Template realisieren und damit strikt vom Code trennen. TE's siehe CPAN.
  
  MfG
  
  PS: Zum Auffüllen mit Leerzeichen gibt es die pack() Funktion:
  
  Code (perl): (dl )
  
  1 2
  
  # 20 Zeichen breite Ausgabe print pack "A20", "Name";
  
  Last edited: 2018-04-10 16:45:54 +0200 (CEST)
- +5 replies
- Linuxer
  
  2018-04-10 15:50
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Weitere Überlegung:
  
  Wenn der Gedanke ist, dass Du die Spalte 3 (z) der ersten und zweite Zeile soweit einrücken lassen willst, wie sie in Zeile drei eingerückt sind, dann sehe ich da keine einfache Regex, die das liefert.
  
  Wenn das zeilenweise vorgeht, ist in Zeile eins und zwei noch gar nicht bekannt, wie weit Zeile 3 eingerückt ist.
  
  Es müsste also erstmal alles analysiert werden und dann in einem zweiten Durchlauf dann die Reformatierung auf Basis der Analyse stattfinden.
  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!
  - +4 replies
  - parafux
    
    2018-04-10 17:35
    User since
    2018-04-10
    5 Artikel
    BenutzerIn
    
    Danke für Eure Hilfe, ja ich denke auch dass es keine regex-Lösung dafür gibt.
    
    mit Spalte meine ich tatsächlich die Stelle der chars, also hier nochmal das Beispiel, diesmal mit Spaltennummern:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    0000000000123456789012345 1234567891111111111222222 xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz nachher xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
    
    In diesem Beispiel soll also der regex zzzz an die Spalte 20 verschoben werden, alles andere soll so bleiben wie es ist.
    
    Ich habe es übrigens über den Umweg "Einlesen in Excel" inzwischen hinbekommen.
    Einfach vor jeden regex zzz ein Komma gesetzt (ja, kommt nur dort vor) und Excel hats in eine separate Spalte gepackt.
    
    Aber es ging sicher auch mit dem perl-script.
    
    Danke Euch trotzdem.
    
    ... sollte eigentlich so wie im screenshot.75.jpg aussehen, aber der blog hier entfernt irgendwie immer die Leerzeichen
    
    modedit Editiert von GwenDragon: Code-Tags hinzugefügt
    Anhänge
    
    image/jpeg
    647 x 397
    screenshot.75.jpg
    
    Last edited: 2018-04-10 19:37:00 +0200 (CEST)
    - gelöscht 2018-04-10 17:37
    - +2 replies
    - Linuxer
      
      2018-04-10 17:46
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Wie ich schon mal geantwortet hatte, musst Du Deine Beispieldaten in Code-Tags einbetten.
      Schau auch mal in die "Formatierungshilfe", die direkt über dem Eingabefeld verlinkt ist: /bat/poard/markup_help/
      
      [code]Dein Code hier rein, auch mit mehreren Zeilen und auch mit wenig oder vielen Leerzeichen[/code]
      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!
      - parafux
        
        2018-04-10 19:54
        
        User since
        2018-04-10
        5 Artikel
        BenutzerIn
        
        ah, jetzt verstehe ich was mit Code-Tags gemeint ist. Danke .... bin noch ganz neu hier.
- Gast payx
  
  2018-04-10 19:23
  Hallo,
  
  hier ein paar Lösungsansätze mit regexp und printf:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; my @rows = <DATA>; print "\n1. Loesung:\n"; print s/(\S+\s+\S+)\s+(\S+)/$1 $2/r for @rows; print "\n2. Loesung:\n"; print s/ +/\t/gr for @rows; print "\n3. Loesung:\n"; printf "%s\t%s\t%s", split / +/ for @rows; __DATA__ xxxxx yyyyyy zzzzz xxxxx yyyyyy zzzzzzz xxxxx yyyyyy zzzzzz
  
  Alle drei Ansätze funktionieren mit den Beispieldaten, nicht mit allen möglichen denkbaren Daten.
  
  Grüße
  payx
  Last edited: 2018-04-10 19:37:33 +0200 (CEST)

View all threads created 2018-04-10 11:15.