[Perl] Decode

[_DeWie_]

Ik ben aan het klooien met XML feed van NU.nl : http://nu.nl/deeplink.xml

Aangezien hier geen encoding in vermeld wordt, krijg ik een nogal brak resultaat. Als ik deze probeer te parssen met de XML::Parser.

Nu wil ik graag alle ' vervangen naar encoding="ISO-8859-1".

Heb al vanalles geprobeerd, heeft iemand een helder moment

[Grum]

Wat is nou het probleem ?

Je hebt een ' en daar wil je et normale char van maken ?

[_DeWie_]

Inderdaad, alleen gaat het niet alleen om de &#39 maar om alle speciale vars .

[Grum]

schrijf der een regex voor ?

[_DeWie_]

Als ik wist hoe die eruit zou moeten zien, zou ik dat ook allang doen

Voor de duidelijkheid het gaat dus niet alleen om deze, maar om meerdere

[chem]

uit m'n archiefje:

PHP:

<?sub parsecgi {    $data = $ENV{'QUERY_STRING'};    local (%qs) = ();    foreach $qs ( split ('&amp;', $data) ) {        local ($name, $val) = split ('=', $qs);        $name = &amp;url_decode ($name);        $qs{$name} = &amp;url_decode ($val);    }    %qs;}?>

[_DeWie_]

Heb ik volgens mij zowiezo de functie : url_decode nodig ??
Wil je die ook nog sharen

[_DeWie_]

Even ter verduidelijking : het is dus niet urlencode.

Teken : '

urlencode = %27
hier = '

Ik weet alleen niet welke vorm van encoding dit is en dus ook niet hoe ik deze decodeer.

Hij wordt trouwens wel goed herkent in de browser ...

[chem]

dat is idd htmlcodering maar maakt weinig uit. lijkt me dat er wel een standaard functie @ perl voor is.

[_DeWie_]

Zal aan mij liggen, maar daar lig ik al 2 dagen naar te zoeken

[Verwijderd]

Ooit van ASCII tabellen gehoord? ja oke

zoek maar op Google naar 'ASCII tabel' dan vind je wel iets

[_DeWie_]

Inderdaad, stom

$XML_data =~ s/&#(.{1,3});/chr($1)/eg;

[Grum]

alleen de . in \d veranderen en dan issie goed