\n wird ausgegeben und nicht ausgeführt (gelöst) (Allgemeines zu Perl)

[thread]17907[/thread]

\n wird ausgegeben und nicht ausgeführt [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
fmhweb

2012-11-13 12:45
User since
2012-11-13
3 Artikel
BenutzerIn
Hi,

mit XML::LibXML lese ich eine XML Datei aus. In der XML gibt es bei einigen Werten linebreaks (\n). Wenn ich mit print mein Ergebniss ausgebe, schreibt er '\n' im Output und führt es nicht wie gewünscht aus. Hier mal ein zusammengewürfelter Codeschnipsel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sub get_xml_value{ my ($document,$value) = @_; my $returnvalue = ""; for($document->findnodes("//test/$value/text()")){$returnvalue = $_->toString();} return $returnvalue; } ... $xml = "<?xml version="1.0" encoding="utf-8"?> <test> <val1>Zeile1\nZeile2\n</val1> </test> "; ... my $document = XML::LibXML->new->parse_string($xml); my $output = get_xml_value($document,"val1"); print $output;
Quote
Ergebniss IST:
Zeile1\nZeile2\n

Egebniss SOLL:
Zeile1
Zeile2

Hat jemand eine Idee wie ich die codierung so ändere das linebreaks wieder erkannt werden?
Last edited: 2012-11-13 12:47:48 +0100 (CET)
- Gast wer
  
  2012-11-13 12:49
  
  suchen und ersetzen:
  $output=~s/\\n/\n/gs;
  Last edited: 2012-11-13 12:51:24 +0100 (CET)
- pq
  
  2012-11-13 12:51
  User since
  2003-08-04
  12208 Artikel
  Admin1
  hallo,
  
  wie weit bist du in perl schon?
  hast du dir perlintro schon durchgelesen? ein dokument, was mit perl mitgeliefert wird.
  
  dort gibt es einen absatz
  
  Code (perl): (dl )
  
  1 2
  
  print "Hello, $name\n"; # works fine print 'Hello, $name\n'; # prints $name\n literally
  
  wie du siehst, hängt es von den quotes ab, ob variablen und zeichen wie newlines interpoliert werden oder nicht.
  
  jetzt zu deinem code.
  
  es empfiehlt sich, möglichst den code hier zu zeigen, den man auch benutzt.
  es erspart einfach den helfern hier unötiges rumrätseln.
  
  du schreibst:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $xml = "<?xml version="1.0" encoding="utf-8"?> <test> <val1>Zeile1\nZeile2\n</val1> </test> ";
  
  das kann schonmal gar nicht hinhauen.
  
  $xml = "<?xml version="
  fällt dir was auf? nach dem 2. quote ist der string zu ende. perl sollte das skript erst gar nicht ausführen, weil es syntaktisch falsch ist.
  
  die annahme also, dass der code bei dir im original anders lautet. bitte zeige den echten code.
  
  edit: und auch auf die gefahr hin, dass es ignoriert wird: kostenlose, moderne, von der community empfohlene tutorials gibt es hier: http://perl-tutorial.org/
  Last edited: 2012-11-13 12:54:16 +0100 (CET)
  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
- Linuxer
  
  2012-11-13 12:53
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Zeile 8 bis 12 sehen merkwürdig aus.
  Du verwendest " um den String für $xml zu begrenzen und gleichzeitig innerhalb des xml-Tags ...
  Das beisst sich!
  
  Verwende strict, warnings und beispielsweise HERE-Dokumente:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  use strict; use warnings; # ... my $xml = <<XML_END; <?xml version="1.0" encoding="utf-8"?> <test> <val1>Zeile1\nZeile2\n</val1> </test> XML_END
  
  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
- pq
  
  2012-11-13 13:02
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  2012-11-13T11:45:42 fmhweb
  mit XML::LibXML lese ich eine XML Datei aus. In der XML gibt es bei einigen Werten linebreaks (\n).
  
  wenn du wirklich aus einer datei liest:
  entweder gibt es darin linebreaks, oder es steht backslash n darin.
  da musst du dich entscheiden.
  
  wenn es wirklich zeilenumbrüche *sein sollen*, sollten die auch so in der datei stehen.
  
  wenn darin aber aus unerfindlichen gründen backslash n steht, und du daran nichts ändern kannst, du sie aber in echte zeilenumbrüche umwandeln willst, dann musst du logischerweise backslash n mit einem zeilenumbruch *ersetzen*.
  
  das wichtigste steht am anfang: du musst den unterschied erkennen. entweder es stehen zeilenumbrüche da (also die zeile hört auf und der rest geht eine zeile weiter unten ganz links weiter, das solltest du in einem editor ganz einfach überprüfen können) oder backslash n.
  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
  - +3 replies
  - fmhweb
    
    2012-11-13 13:58
    
    User since
    2012-11-13
    3 Artikel
    BenutzerIn
    
    Hi,
    
    sorry wegen den Unklarheiten:
    
    $output =~ s/\\n/\n/g; hat mein Problem gelöst.
    - +2 replies
    - pq
      
      2012-11-13 14:01
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich hoffe, dir ist der unterschied trotzdem klargeworden. in der datei stehen keine zeilenumbrüche.
      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
      - fmhweb
        
        2012-11-13 14:24
        
        User since
        2012-11-13
        3 Artikel
        BenutzerIn
        
        Ja, es gibt keine Zeilenumbrüche in der Datei sondern es steht \n drin. Bei diesem Beitrag hatte ich wohl einen kleinen Blackout. Das man \\n nehmen musste bei regex replace hätte ich eigentlich wissen müssen. Ich entwickel derzeit täglich mehrere Nagios plugins und manchmal sieht man halt den Wald vor lauter Bäumen nicht mehr.
        
        Kritik und sonstige Hilfen höhre ich mir aber gerne an.
        
        more (33.3kb)
        
        modedit Editiert von pq: more-tag hinzugefügt
        Last edited: 2012-11-13 14:30:43 +0100 (CET)

View all threads created 2012-11-13 12:45.