\n am Ende entfernen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-08 03:41:23
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]16913[/thread]

submit to reddit

\n am Ende entfernen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+16 replies
chmod777

2011-11-13 15:28

User since
2009-09-14
82 Artikel
BenutzerIn

Hi!

wir kann ich den befehl

s~ = /\n$//g;

derart erweiteren, dass alle hintereinand vorkommende "\n" am Ende entfernt werden? z.B. "\n\n\n" oder "\n\n\n\n\n"

grazie
- +2 replies
- bianca
  
  2011-11-13 15:34
  
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  
  2011-11-13T14:28:47 chmod777
  s~ = /\n$//g;
  
  s~ = /\n$// while $_ =~ /\n$/;
  10 print "Hallo"
  20 goto 10
  - pq
    
    2011-11-13 15:44
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    also das ist ja gleich doppelt ineffizient.
    
    erstens kann man mehrere gleiche zeichen, also newlines, ganz simpel mit dem pluszeichen auf einen schlag matchen bzw. entfernen, so dass deine schleife hier unnötig ist.
    zweitens ist ein prüfen mit m//, ob ein newline vorhanden ist, um es dann mit s/// zu ersetzen, auch komplett unnötig. was passiert deiner meinung nach, wenn man die prüfung nicht macht?
    traust du dem ersetzungsoperator nicht, aber dem matching-operator?
    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
- pq
  
  2011-11-13 15:41
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Quote
  s~ = /\n$//g;
  
  zuerst: was soll s~ = bedeuten?
  
  und das dollarzeichen in der regex ist ja auch komplett unnötig.
  weisst du, was es bedeutet?
  aus perldoc perlre:
  $ Match the end of the line (or before newline at the end)
  
  du möchtest also ein newline am ende oder vor einem newline am ende entfernen... also ein newline vor einem newline...
  
  für das wirklich ende eines strings nimmst du \z:
  \z Match only at end of string
  
  so, das als erstes.
  
  und wie du mehrere zeichen matchst, solltest du eigentlich auch wissen - mit einem pluszeichen.
  
  $string =~ s/\n+\z//
  
  also im grunde ziemlich simpel.
  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
- murphy
  
  2011-11-13 15:42
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  In einem regulären Ausdruck gibt es ja nun die kanonischen Operatoren um mögliche Wiederholungen von Mustern anzuzeigen. Zum Beispiel funktioniert das hier einwandfrei:
  
  Code (perl): (dl )
  
  $something =~ s/\n+$//;
  
  Eventuell will man auch lieber auf den systemspezifischen Eingabedatensatztrenner matchen, zum Beispiel so:
  
  Code (perl): (dl )
  
  $something =~ s|(?:\Q$/\E)+$||;
  
  Übrigens ist das Ersetzungsflag /g bei einem verankerten regulären Ausdruck logischerweise wirkungslos und überflüssig.
  
  Nachtrag: Außerdem ist $ hier weniger sinnvoll als \z. Danke an pq, dass sie mir das in Erinnerung gerufen hat :-)
  Last edited: 2011-11-13 16:08:33 +0100 (CET)
  When C++ is your hammer, every problem looks like your thumb.
- GwenDragon
  
  2011-11-13 15:46
  
  User since
  2005-01-17
  14563 Artikel
  Admin1
  
  Der Operator ~ ist falsch, der ist für eine binäre Negation.
  Du meinst wohl =~.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- rosti
  
  2011-11-13 19:12
  User since
  2011-03-19
  3219 Artikel
  BenutzerIn
  Nimm unpack():
  
  Code (perl): (dl )
  
  1 2
  
  my $s = "foo\n\n\n\n\n\n\n\n"; print unpack "A*", $s;
  
  Das haut Dir mit einem Donnerschlag alle "\n" hinten wech ;)
  
  PS/Edit: Ähm, Leerzeichen aber auch.
  Last edited: 2011-11-13 19:14:20 +0100 (CET)
- +9 replies
- hlubenow
  
  2011-11-14 09:13
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Auch ineffizient, aber immerhin ganz gut zu lesen:
  
  Code (perl): (dl )
  
  while (/\n$/) {chomp}
  
  ;)
  - +4 replies
  - Linuxer
    
    2011-11-14 09:58
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    Dass ist aber auch noch stark fehlerträchtig, wenn man nicht aufpasst.
    
    chomp() entfernt das, was im Skalar $/ steht. Standardmäßig ist es der Zeilenumbruch des jeweiligen Systems (DOS / Unix) auf dem das Skript läuft.
    
    Wenn nun auf einem WinDOS eine "unix-formatierte" Datei verarbeitet wird (also Zeilenende mit \x0a), wird chomp() versuchen, ein \x0d\x0a zu entfernen (weil das in $/ steht), was nicht funktionieren wird, weil kein \x0d im Zeilenumbruch vorhanden ist.
    
    Umgekehrt gibt es auf Linux mit DOS-Dateien ähnliche Probleme...
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl # vim: set ts=4 sw=4 et sta: use strict; use warnings; # DOS line my $line = "Hallo Welt.\x0d\x0a\x0d\x0a"; print "Start: ", $line; while ( $line =~ m/\n$/ ) { chomp $line; } print "Stop: ", $line;
    
    Code: (dl )
    
    1 2 3 4
    
    $ perl linebreak.pl | xxd 0000000: 5374 6172 743a 2048 616c 6c6f 2057 656c Start: Hallo Wel 0000010: 742e 0d0a 0d0a 5374 6f70 3a20 4861 6c6c t.....Stop: Hall 0000020: 6f20 5765 6c74 2e0d 0a0d o Welt....
    
    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!
    - +2 replies
    - hlubenow
      
      2011-11-14 10:08
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Ich denke mal, der OP meinte 'Entfernen der Zeilenumbruchzeichen am Ende unter Linux (= "\n")'. Dann würde sich das Problem nicht stellen.
      - Linuxer
        
        2011-11-14 10:26
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Ja, vermutlich stimmt das sogar.
        Aber man sollte sich dieser Fallstricke bewusst sein. Daher war ich so frei, da nochmal drauf hinzuweisen ;-)
        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
      
      2011-11-14 10:29
      
      User since
      2005-01-17
      14563 Artikel
      Admin1
      
      Wer schon mal Leute hatte, die ihre Text- oder Konfigurationsdateien mit falschen Zeilenenden hoch luden, wird wissen, dass ein chomp oft sinnlos ist und nur ein Entfernen von [\x0d\x0a] am Ende wirklich hilft.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - bianca
    
    2011-11-14 10:00
    
    User since
    2009-09-13
    6978 Artikel
    BenutzerIn
    
    Das ist ja noch schlimmer als mein Vorschlag, siehe Antwort von Linuxer.
    Dachte nicht, dass meins noch zu unterbieten wäre :))
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - Dubu
    
    2011-11-14 10:03
    User since
    2003-08-04
    2145 Artikel
    ModeratorIn + EditorIn
    
    Oh, dann doch schon lieber
    
    Code (perl): (dl )
    
    while (chomp) {}
    
    ;-)
    - hlubenow
      
      2011-11-14 10:09
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Auch wieder wahr. ;)
    - GUIfreund
      
      2011-11-14 19:11
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      2011-11-14T09:03:38 Dubu
      Oh, dann doch schon lieber
      
      Code (perl): (dl )
      
      while (chomp) {}
      
      ;-)
      
      Habe eben mal in perldoc -f chomp nachgelesen. Dort findet sich
      
      Quote
      When in paragraph mode ("$/ = """), it removes all
      trailing newlines from the string.
      
      Vielleicht ist es das, was der OP sucht.
      Gruß
      GUIfreund

View all threads created 2011-11-13 15:28.