leere Zeilen an Ende entfernen (Allgemeines zu Perl)

[thread]20150[/thread]

leere Zeilen an Ende entfernen

Leser: 15

Articles: hide open all | hide show old branches

+13 replies
chmod777

2016-09-11 06:35

User since
2009-09-14
82 Artikel
BenutzerIn

Hi!

wie kann man bei einer variablen, die ca. 250 zeilen text enthält alle zeilen am Ende entfernen, die keine Zeichen enthalten?

Gibts da einen RegEx oder muss man die variable in ein array schieben und zeilenweise rückwärts abarbeiten ?

greets
- bianca
  
  2016-09-11 08:45
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; my $test = <<TESTTEIL Leerzeile vorher Hallo und guten Tag! Es folgen Leerzeilen TESTTEIL ; (my $ohne_leerzeilen = $test) =~ s/^[\r\n]$//mg; say "Mit : '$test'"; say "Ohne: '$ohne_leerzeilen'";
  
  Last edited: 2016-09-11 08:47:30 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- +6 replies
- GwenDragon
  
  2016-09-11 10:51
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Innerhalb der Datei gibt es keine Leerzeilen, nur am Ende der Datei?
  Entfernt werden sollen nur die am Ende der Datei?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - betterworld
    
    2016-09-11 12:02
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Ich denke, er/sie meint eine String-Variable, die einen mehrzeiligen Text enthält.
    
    Am einfachsten ist wohl der folgende Ausdruck:
    
    Code: (dl )
    
    $s =~ s#[\r\n]+\z##g;
    
    Macht alle Newlines am Ende weg. Denn mehrere Leere Zeilen sind ja letztendlich nichts anderes als mehrere Newlines.
    
    Wenn ich sowas baue, gehe ich normalerweise davon aus, dass die Zeilen auch mal normale Leerzeichen enthalten können. Sie sehen also aus wie leere Zeilen, enthalten aber Whitespace. Den Fall sollte man berücksichtigen, weil man bei solchen Strings sonst Fehler bekommt, deren Ursache auf den ersten Blick nicht erkenntlich ist.
    Das könnte man so entfernen:
    
    Code: (dl )
    
    $s =~ s#\r?\n\s*\z##g;
    
    Last edited: 2016-09-11 12:06:28 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - chmod777
      
      2016-09-11 12:56
      
      User since
      2009-09-14
      82 Artikel
      BenutzerIn
      
      hi!
      
      Danke euch. Ich hab's mit
      
      Code: (dl )
      
      (my $ohne_leerzeilen = $test) !~ s/^\s*$//mg;
      
      lösen können
    - +3 replies
    - bianca
      
      2016-09-11 13:17
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      GwenDragon und betterworld: habt ihr meine Lösung nicht gesehen? Stimmt damit etwas nicht?
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Raubtier
        
        2016-09-12 11:28
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Sie tut mehr als nur am Ende Leerzeilen zu entfernen. Deine Lösung entfernt mehrere doppelte Leerzeilen irgendwo in der Datei und ist außerdem wegen [\r\n] ohne */+ unterschiedlich bei Textdateien mit verschiedenen Trennern. Bzw. es ist schwer zu erkennen, was das eigentlich tut.
        
        Teste bei dir doch mal mit:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        my $test = <<TESTTEIL Leerzeile vorher Hallo und guten Tag! Es folgen Leerzeilen TESTTEIL ;
        
        Leerzeilen am Ende entfernen geht so:
        
        betterworld
        
        Code (perl): (dl )
        
        $s =~ s#[\r\n]+\z##g;
        
        Last edited: 2016-09-12 11:31:09 +0200 (CEST)
        
        bianca
        
        2016-09-12 11:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Au Weia. Danke Dir!
        10 print "Hallo"
        20 goto 10
- +5 replies
- Gast janus
  
  2016-09-12 09:51
  Code (perl): (dl )
  
  $s = unpack "A*", $s;
  
  haut alles wech. Leerzeilen, Spaces, Tabs ... ist auch byteorientiert, also von der Zeichenkodierung unabhängig.
  Last edited: 2016-09-12 10:15:46 +0200 (CEST)
  - +4 replies
  - bianca
    
    2016-09-12 11:32
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Wo finde ich eine Liste, was genau davon erfasst ist?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - Gast janus
      
      2016-09-12 18:32
      
      2016-09-12T09:32:20 bianca
      Wo finde ich eine Liste, was genau davon erfasst ist?
      
      Kannste Testen:
      
      Code (perl): (dl )
      
      print unpack "A*", "x \t \n\n\n";
      
      Last edited: 2016-09-12 18:42:01 +0200 (CEST)
      - +2 replies
      - bianca
        
        2016-09-12 22:57
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Aber ich kann doch unmöglich alle Zeichen testen, die irgendwann einmal durch diese Funktion rauschen werden. Die weiß ich doch jetzt noch nicht.
        10 print "Hallo"
        20 goto 10
        
        Gast janus
        
        2016-09-13 08:01
        
        Byteorientierung hat mit Zeichen nichts zu tun. Die A-Schablone verändert keine Bytes. Siehe perldoc -f pack
        Last edited: 2016-09-13 08:41:04 +0200 (CEST)

View all threads created 2016-09-11 06:35.