JSON: mehrzeilige Werte in einzeilige umwandeln (gelöst) - #188695 (Allgemeines zu Perl)

rosti

2018-07-28 15:25

User since
2011-03-19
3194 Artikel
BenutzerIn

Percent-Encoding wäre meine Idee:

Code (perl): (dl )

1
2

NAME
    URI::Escape - Percent-encode and percent-decode unsafe characters

MfG

PS: Sieht zwar Scheise aus aber es funktioniert. Wer muss denn die Datei anfassen, doch nicht etwa der Anwender!?

Edit: auf jeden Fall würde ich, wenn ich schon JSON Dateien aus der Hand gebe, ein valides JSON abliefern.

Kommst Du wenigstens an die Daten ran?

Code (perl): (dl )

use URI::Escape qw(uri_escape);
my $data = do{ local $/ = undef; <DATA>};
print uri_escape $data; # eine Zeile

__DATA__

Das 
ist
ein 
mehrzeiliger 
Text

Last edited: 2018-07-28 16:34:28 +0200 (CEST)