Zeilenumbruch (Allgemeines zu Perl)

[thread]15448[/thread]

Zeilenumbruch

Leser: 25

Articles: hide open all | hide show old branches

+8 replies
tadeus

2010-09-06 22:38

User since
2009-10-09
19 Artikel
BenutzerIn

Hallo zusammen,

ich habe ein Problem mit dem Zeilenumbruch in der Konsole.

1. Und zwar wenn ich einen Zeilenumbruch machen möchte mit \n dann schreibt er direkt in die Konsole \n und macht nichts. Ist das nicht das Zeichen für einen Umbruch?

2. Ich habe hier eine Funktion welche mir einen String über einen Seperator in ein Array zerlegt. Wenn ich dort auf Zeilenumbrücke \n prüfe, findet er keine obwohl Umbrüche drin sind.

Wo hakts bei mir?

Grüße

tadeus
- +5 replies
- pq
  
  2010-09-06 22:44
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  2010-09-06T20:38:11 tadeus
  1. Und zwar wenn ich einen Zeilenumbruch machen möchte mit \n dann schreibt er direkt in die Konsole \n und macht nichts. Ist das nicht das Zeichen für einen Umbruch?
  
  naja, auf das quoting kommt es an.
  schreibst du
  print '\n'
  dann landet in der ausgabe backslash n.
  stattdessen musst du
  print "\n"
  schreiben, damit der backslash hier mit dem n als spezielle sequenz erkannt wird.
  steht aber auch in http://p3rl.org/perlintro
  
  Quote
  Wenn ich dort auf Zeilenumbrücke \n prüfe, findet er keine obwohl Umbrüche drin sind.
  
  da verweise ich immer wieder gerne auf VariablenInhalt.
  stell so erstmal sicher, dass in den daten auch das drin ist, was du denkst. das passiert häufiger, als man denkt, dass man sich da täuscht.
  dann wäre natürlich noch die frage, wie prüfst du denn? das solltest du schon dazusagen, damit dir jemand helfen kann. wie zerlegst du das array und wie prüfst du?
  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
  - tadeus
    
    2010-09-06 22:47
    User since
    2009-10-09
    19 Artikel
    BenutzerIn
    
    Danke, das mit den Anführungszeichen wusst ich nicht, das es differenziert wird.
    
    Hier meine benutzte Funktion:
    
    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 23
    
    sub explode($$;$) { my ($separator,$string,$limit) = @_; my @splitted; my $x = 1; my $offset = 0; my $sep_len = length($separator); while((my $pos = index($string,$separator,$offset)) >= 0 && (!$limit || $x < $limit)) { my $part = substr($string,$offset,$pos-$offset); push(@splitted,$part); $offset = $pos+$sep_len; $x++; } push(@splitted,substr($string,$offset,length($string)-$offset)); return @splitted; }
    
    Edit:
    ok hat sich erledigt, hier muss ich auch die " benutzen
    Danke
    Last edited: 2010-09-06 22:51:00 +0200 (CEST)
    - pq
      
      2010-09-06 22:51
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hast du dir den wiki-artikel durchgelesen?
      willst du stattdessen nicht einfach die eingebaute funktion split benutzen? (habs mir jetzt nicht im detail angesehen, sieht aber so aus, als ob du das willst).
      
      und wo prüfst du auf newlines? dazu hast du gar nichts gesagt. ausserdem fehlt der aufruf der subroutine.
      bisschen mehr info braucht man schon, um dir zu helfen. ansonsten kann niemand die frage beantworten, warum dein prüfen auf newlines fehlt.
      und wie gesagt (nochmal): lies den wiki-artikel
      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
      
      2010-09-06 22:56
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-09-06T20:47:18 tadeus
      Edit:
      ok hat sich erledigt, hier muss ich auch die " benutzen
      Danke
      
      vergiss trotzdem nicht das wiki, wenn du das nächste mal nicht blind rumraten willst. es lohnt sich.
      
      und es wäre sicher sinnvoll gewesen, die relevante stelle zu posten. die stelle mit den quotes kommt in dem geposteten teil gar nicht vor.
      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
    - Dubu
      
      2010-09-07 10:47
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Da muss ich pq recht geben: Willst du nicht split() benutzen? Deine Funktion ließe sich hierauf verkürzen:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      sub explode($$;$) { my ($separator,$string,$limit) = @_; return split(/\Q$separator/, $string, $limit); }
      
      Oder eben ganz weglassen und direkt split() benutzen. Die Signatur ist fast dieselbe, nur ist bei split() der Trenner eine Regex (daher oben das Quoting mit \Q).
- +2 replies
- lichtkind
  
  2010-09-07 01:09
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  nur kleine anmerkung:
  ab 5.10 gibts say (use feature ":5.10";) und damit keine probleme mehr mit "\n".
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - hlubenow
    
    2010-09-07 02:25
    
    User since
    2009-02-22
    876 Artikel
    BenutzerIn
    
    2010-09-06T23:09:05 lichtkind
    nur kleine anmerkung:
    ab 5.10 gibts say (use feature ":5.10";) und damit keine probleme mehr mit "\n".
    
    Übrigens gibt's auch für Versionen vor 5.10 "say" per Modul Perl6::Say.
    
    Bin ansonsten nicht ganz glücklich mit dem Keyword "say"; denke dabei eher an Sprachausgabe (noch aus Amiga-Zeiten (dort in "Utilities")).
    Last edited: 2010-09-07 02:28:05 +0200 (CEST)

View all threads created 2010-09-06 22:38.