Encoding

Jeg lukker.

Jeg fik selv bikset et løsning sammen....

########################################################
# Modtager en streng som eneste parameter, og returnerer
# en ny streng, hvor alle tegn med en ascii værdi på over 127
# er blevet konverteret til en hex-værdi med et ligmed tegn foran.
sub encodeString {
  my $encodedString;
  my $tmpChar;
  for (my $i=length($_[0]); $i >= 0; $i--) {
    $tmpChar = substr($_[0],$i,1);
    my $tmpCharDecimal = unpack \"c\", \"$tmpChar\";
    if ($tmpCharDecimal < 0) {
      $encodedString = \"=\". unpack(\"H2\",$tmpChar) . $encodedString;
    }
    else {
      $encodedString = $tmpChar . $encodedString;
    }
  }
  return $encodedString;
}

Hmm...

Jeg har haft samme problem et par gange i forbindelse med alm. formmail og maillists.

Jeg har forsøgt at anvende/indsætte din løsning, - uden held...

Hvis du har et script hvor det er anvendt, ville det være fedt at se...!

/jewwwer (som ikke er nogen prel-haj ,-)

( =perl-haj ,-)

Jeg bruger det skam fuldstændig som det her står skrevet...?

my $testString = \"Test af særtegn i email: æøå ÆØÅ öäé\";

my $encodedMailString = &encodeString($testString);

... send din email, hvor kroppen bliver sat til indholdet af $encodedMailString