Entfernen eines Zeilenumbruchs in Abhängigkeit vom Zeilenende und darauffolgenden Zeilenanfang (gelöst) (Allgemeines zu Perl)

[thread]15895[/thread]

Entfernen eines Zeilenumbruchs in Abhängigkeit vom Zeilenende und darauffolgenden Zeilenanfang [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
SEA

2011-01-27 11:50
User since
2006-10-06
6 Artikel
BenutzerIn
Hallo Perl-Community,

ich möchte abhängig vom Ende einer Zeile und vom Anfang der nächsten Zeile eine Ersetzung durchführen. Aber es will einfach nicht ...

Versuch 1:
Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -pe 's/b\nc/bc/g'
Versuch 2:
Code: (dl )

echo "a#b#c#d" | tr '#' '\n' | perl -pe 's/b$^c/bc/mg'
Gewollte Ausgabe:
Code: (dl )

1 2 3

a bc d
Weiß jemand eine Lösung?

(Ubuntu 10.10, Perl v5.10.1)

Viele Grüße
SEA
- +5 replies
- pq
  
  2011-01-27 12:02
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  das problem ist, dass -pe ja zeilenweise bearbeitet. d.h. da du immer nur eine zeile auf einmal kriegst, kannst du gar nicht wissen, was in der nächsten zeile kommt. so kann die regex nie matchen.
  abhängig davon, wie gross deine echten daten sind, würde ich sie also auf einmal und nicht zeilenbasiert bearbeiten.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +4 replies
  - SEA
    
    2011-01-27 13:18
    
    User since
    2006-10-06
    6 Artikel
    BenutzerIn
    
    Alles klar ;-)
    
    Gibt es einen Parameter, der diese Zeilenbeschränkung aufhebt?
    (meine Eingabedaten sind nicht so riesig ...)
    - +3 replies
    - pq
      
      2011-01-27 13:28
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      also man kann den zeilenende-parameter eigentlich über eine kommandozeilen-option setzen, aber ich weiss nicht, wie man ihn auf undef setzt, deshalb so:
      perl -pwe 'BEGIN { $/ = undef } s///'
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +2 replies
      - SEA
        
        2011-01-27 13:32
        
        User since
        2006-10-06
        6 Artikel
        BenutzerIn
        
        Ok, danke dir!
        
        Code: (dl )
        
        echo "a#b#c#d" | tr '#' '\n' | perl -pwe 'BEGIN { $/ = undef } s/b\nc/bc/'
        
        ... funktioniert genau so, wie ich mir das vorgestellt habe.
        
        Ich habe noch eine zweite Lösung:
        
        Code: (dl )
        
        echo "a#b#c#d" | tr '#' '\n' | perl -e '@_ = <STDIN>; $_ = join("", @_); s/b\nc/bc/g; print $_;'
        
        Viele Grüße
        SEA
        
        pq
        
        2011-01-27 15:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2011-01-27T12:32:48 SEA
        Ich habe noch eine zweite Lösung:
        
        Code: (dl )
        
        echo "a#b#c#d" | tr '#' '\n' | perl -e '@_ = <STDIN>; $_ = join("", @_); s/b\nc/bc/g; print $_;'
        
        wobei du hier auch $/ setzen könntest, denn so liest du erst alles in ein array und machst dann wieder ein join. mit $/ undef wird das lesen von <STDIN> erst gar nicht gesplittet. also:
        echo "a#b#c#d" | tr '#' '\n' | perl -we 'undef $/; $_ = <STDIN>; s/b\nc/bc/g; print $_;'
        
        bei der variante brauchst du den BEGIN-block nicht.
        
        ich würde mir übrigens angewöhnen, bei perl-einzeilern immer -w dazuzupacken. wenn du einen fehler machst, kann -w dich u.U. darauf hinweisen. wenn man es in einzeilern nicht benutzt, wundert man sich ggfs. eine ganze weile, warum etwas nicht funktioniert.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- Gast wer
  
  2011-01-27 17:34
  Code (perl): (dl )
  
  echo "a#b#c#d" | tr '#' '\n' | perl -ne 'if($last){ $m="$last$_"; print $m=~s/b\nc/bc/g?$m:$last;} $last=$_; END{print $last}'
  
  Last edited: 2011-01-27 17:38:38 +0100 (CET)

View all threads created 2011-01-27 11:50.