iso-8859 ausgabe (Seite 3) (Perl/CGI)

[thread]659[/thread]

iso-8859 ausgabe (Seite 3)

lando89c66

2006-01-25 10:47

User since
2006-01-24
7 Artikel
BenutzerIn
[default_avatar]

[quote=esskar,25.01.2006, 09:16][quote=lando89c66,25.01.2006, 07:31]=?iso-8859-1?B?RFZELVZlcmxlaWggLSBwZXJmZWt0IGb8ciBsYW5nZSBXaW50ZXJhYmVuZGU6IDMgRFZEcyBm/HIgOSw5OSBFVVI=?=[/quote]

Code: (dl )

use strict;
use warnings;

use MIME::Words qw(:all);  

my $data = "=?iso-8859-1?B?RFZELVZlcmxlaWggLSBwZXJmZWt0IGb8ciBsYW5nZSBXaW50ZXJhYmVuZGU6IDMgRFZEcyBm/HIgOSw5OSBFVVI=?=";

print decode_mimewords($data);

[/quote]
wenn ich diesen code ausführe bekomme ich nur

ARRAY(0x1801380)

ausgegeben...was mach ich falsch ???

renee

2006-01-25 11:22

User since
2003-08-04
14371 Artikel
ModeratorIn

hier wird decode_mimewords im Array-Kontext aufgerufen (weil print eine Liste erwartet) und da wird Dein $data gesplittet (siehe Doku zu CPAN:

MIME::Words

Es muss dann so heissen:

Code: (dl )

1
2
3

foreach(decode_mimewords($data)){
  print $_;
}

oder

Code: (dl )

1
2

my $decoded = decode_mimewords($data);
print $decoded;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

lando89c66

2006-01-25 12:14

User since
2006-01-24
7 Artikel
BenutzerIn
[default_avatar]

also irgendwie wird es jetzt schon wieder richtig dargestellt, aber die umlaute erhalten ersatzzeichen wie komma oder ähnliches...

ptk

2006-01-26 01:43

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Scheint korrekt auszusehen:

Code: (dl )

DVD-Verleih - perfekt für lange Winterabende: 3 DVDs für 9,99 EUR

View all threads created 2006-01-24 15:03.