Thread Tk::Photo - Data konvertieren (Base64) (13 answers)
Opened by Kean at 2011-06-15 13:42

GwenDragon
 2011-06-15 13:59
#149624 #149624
User since
2005-01-17
14711 articles
Admin1
[Homepage]
user image
Geht es um CPAN:Tk::Photo wie in Wiki:TkPhotoAusImageDaten beschrieben?

Die Bilddaten sind mit der Kodierung Base64 erzeugt.

Ginge so:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use MIME::Base64 qw/encode_base64 decode_base64/;

# Bilddatei einlesen
open (my $fh, $file_name) or die $!;
binmode $fh;
local ($/) = undef;  # slurp

# als Base64-kodiert in Variable speichern
my $image_base64_data = encode_base64(<$fh>);
close($fh) or die $!;

# Base64-Daten als Bild speichern
$image_base64_data = 'R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==';
open (my $fh, ">", $file_name) or die $!;
binmode $fh;
print $fh decode_base64($image_base64_data);
close($fh) or die $!;


Editiert von GwenDragon: Daten vergessen
Last edited: 2011-06-15 14:15:38 +0200 (CEST)

View full thread Tk::Photo - Data konvertieren (Base64)