Unicode Zeichen in JSON umwandeln (Allgemeines zu Perl)

[thread]20721[/thread]

Unicode Zeichen in JSON umwandeln

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Franz

2020-01-08 21:13

User since
2006-07-12
31 Artikel
BenutzerIn

Hallo,
ich muss vorweg gestehen, dass ich mit dem Thema Unicode auf Kriegsfuss stehe.

Ich lade über eine API JSON-Daten.
view-source:https://api.crossref.org/works/10.1177/0974928419874548

Diese enthalten dann wohl Unicode-Zeichen: Bspw. \u2018Jihadism\u2019

Ich will den Inhalt nun als HTML-Seite ausgeben, also ‘Jihadism’ wäre es dann wohl korrekt. Ich bekomme das bei bestem Willen nicht hin.

Ich vermute/hoffe, dass das so banal ist, dass mir jemand kurz den Weg weisen könnte.

Gruß&Dank
- +3 replies
- Linuxer
  
  2020-01-08 21:29
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hallo,
  
  edit: Bessere Variante wurde von Daxim geliefert! Bitte damit arbeiten!
  
  der simpelste Ansatz ohne Rücksicht auf eventuelle Sonderfälle wäre wohl ein Regulärer Ausdruck:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  # set text $text = q~\u2018Jihadism\u2019~; # replace \uXYZ with html entity &#xXYZ; $text =~ s/\\u(\d+)/&#x$1;/g; # print text with html entities say $text;
  
  Keine Ahnung, ob es hierfür ein Modul gibt.
  Last edited: 2020-01-09 11:09:38 +0100 (CET)
  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
  - Franz
    
    2020-01-09 08:22
    
    User since
    2006-07-12
    31 Artikel
    BenutzerIn
    
    Danke für den Hinweis! Das funktioniert wohl mindestens in vielen Fällen und ist eine Verbesserung. z.B. für García allerdings nicht. Immerhin bin ich selber drauf gekommen /\\u.{4}/.... Mal sehen ob es Fälle gibt, wo das nicht klappt.
    - Linuxer
      
      2020-01-09 11:51
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Hi,
      
      mach's sauber und beachte und verwende Daxims Lösung. ;-)
      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!
- rosti
  
  2020-01-09 09:17
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  use JSON;
  
  und was Du damit machst, steht in der Dokumentation. MFG
- Daxim
  
  2020-01-09 10:00
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  Du möchtest JSON dekodieren. Was Nachbar Linuxer gesagt hat, ist Pfusch.
  
  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 24 25 26 27
  
  use HTTP::Tiny qw(); use JSON::MaybeXS qw(decode_json); use Text::Xslate qw(); my $response = HTTP::Tiny->new->get('https://api.crossref.org/works/10.1177/0974928419874548'); die($response->{status}, $response->{reason}) unless $response->{success}; my $template = Text::Xslate->new; my $abstract = decode_json($response->{content})->{message}{abstract}; STDOUT->binmode(':encoding(UTF-8)'); STDOUT->print($template->render_string(<<'HTML', {abstract => $abstract})); <!DOCTYPE html> <html> <head> <meta charset="UTF-8"> </head> <body> <p><: $abstract :></p> </body> </html> HTML __END__ … <body> <p><jats:p> ‘Jihadism’ (also kno…

View all threads created 2020-01-08 21:13.