Encoding xn--vrvl-hra.dk ændres til vrøvl.dk og omvendt

Du kan google: perl punycode

Tak, så fandt jeg
http://blog.wensheng.com/2011/03/command-line-idn-punycode-convertor.html

men der skal man installere et plugin
use Net::LibIDN ':all';

Bliver man virkelig nødt til installere et sådant - er der ikke en algoritme så man ikke skal installere ekstra?

Nej. Du kan vel hive de to metoder ud af koden, som har brug for (disclaimer: jeg gætter lidt)

Nøh de eksempler jeg finder bruger alle den, så nu har jeg forsøgt

sudo cpan -i Net::LibIDN

Men så får jeg fejlmeddelelse
__test1.c:1:18: error: idna.h: No such file or directory
__test1.c:1:18: error: idna.h: No such file or directory
This module requires GNU Libidn, which could not be found.
    -- NOT OK
Running make test
  Can't test without successful make
Running make install
  make had returned bad status, install seems impossible

Ok, da. ;) Lad mig ilge prøve ...

Og så troede jeg efter en del søgen at http://www.gnu.org/software/libidn/manual/html_node/Downloading-and-Installing.html ville løse det - men nej

Ups måske virker det med en ældre version - der får jeg ingen fejlmeddelelse.
prøver nu ftp://alpha.gnu.org/pub/gnu/libidn/libidn-1.9.tar.gz

Nu har jeg fået det installeret, og jeg er tæt på at det virker, nu får jeg punycode, men jeg er åbenbart ikke enig med systemet i hvordan et ø ser ud, men det kan jeg rette med en regexp så snart er jeg flyvende. Tak for hjælpen - navnet "Punycode" var det der fik mig videre.

Hvad jeg endte med at gøre:
Installere GNO LibIDN 1.9 som nævnt ovenfor (nyere versioner viirker ikke til nedenstående)
Installere Net::LibIDN som nævnt ovenfor
bruge koden fra wengsheng ovenfor til scriptet nedenfor.

#!/bin/env perl
use Net::LibIDN ':all';
open (OUTFILE, ">>outfile.txt");
print OUTFILE $ARGV[0] . " Bliver til \n";
print OUTFILE idn_to_ascii($ARGV[0],'utf-8') . "\n";
print OUTFILE idn_to_unicode($ARGV[0],'utf-8') . "\n";
print OUTFILE idn_punycode_encode($ARGV[0],'utf-8') . "\n";
print OUTFILE idn_punycode_decode($ARGV[0],'utf-8') . "\n";
close (OUTFILE);

Jeg gav dig gerne point, men husker fra sidste år at du ikke vil have dem. Hvis du dropper et svar - giver jeg dig points, ellers lukker jeg spg om 1 måned og tager points selv.

#!/bin/env perl
use Net::LibIDN ':all';
...................
$punydomain=idn_to_ascii($domain,'iso-8859-1');

Endte med at være svaret idet min fil var iso-8859-1 kodet

Nej tak til point. Og du har jo lavet arbejdet.

Jeg rendte også ind i lidt versionsproblemer, på den maskine jeg prøvede. Fik ikke lige startet en anden.

Ingen anden mulighed