Tk::Photo - Data konvertieren (Base64) (gelöst) - #149627 (Graphische Oberflächen)

Kean

2011-06-15 14:30

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Okay ich komme dem Ziel immer näher.

Ein Bild in einen String umwandeln geht so:

Code (perl): (dl )

1
2

my $image = $mw->Photo( -file => 'test.gif' );
my $image_data = encode_base64($image->data());

Und ein String in eine Datei umwandeln so:

Code (perl): (dl )

1
2
3

my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7';
my $image = $mw->Photo(-data => $image_data, -format => 'gif');
$image->write('test.gif', -format => 'gif');

Was mich jetzt aber noch etwas beschäftigt, ist die Frage warum mein Teststring (welchen ich nicht selbst erzeugt habe) so kurz ist.
Wenn ich diesen String in eine Datei schreibe und ohne zu ändern wieder einlese, ist er viel länger und sieht anderst aus.

Gibt es noch eine andere Möglichkeit einen String zu codieren wie Base64?