Добавлены профессиональными переводчиками и компаниями и на основе веб-страниц и открытых баз переводов.
diese version unterstützt die im- und exportfunktion folgender grafikformate: xpm, xbm, png.
this version supports importing and exporting of the following graphic formats: xpm, xbm, png. evaluate the advantages of the new version!
#!/usr/bin/perl use strict ; use warnings ; use tk ; use mime :: base64 ; use image :: magick ; my $mw = mainwindow -> new (); #my $image_data = 'r0lgodlhbgagajeaannz2qaaap///////yh5baeaaaaalaaaaaagaayaaainja0haedwlcwmkiqfbqa7'; my $image_data = 'r0lgodlhbgagapabaaaaap///yh5baeaaaealaaaaaagaayaaaijhb0xq+y5ygqfads=' ; print $image_data . "\n" ; my $image = $mw -> photo (- data => $image_data , - format => 'gif' ); $image -> write ( 'test.gif' , - format => 'gif' ); my $image_new = $mw -> photo ( - file => 'test.gif' , - format => 'gif' ); my $img = image :: magick -> new (); $img -> blobtoimage ( $image_new -> data (- format => 'xpm' )); #$img->set(magick => 'gif'); #$img->write('test2.gif'); my $image_data_new = encode_base64 ( $img -> imagetoblob ( magick => 'gif' )); print $image_data_new ; exit ;
#!/usr/bin/perl use strict ; use warnings ; use image :: magick ; use mime :: base64 ; my $data_in = 'r0lgodlhaqabajeaannz2f///////////yh5baeaaaaalaaaaaabaaeaaaicraeaow==' ; my $img = image :: magick -> new (); $img -> blobtoimage ( decode_base64 ( $data_in )); my $data_out = encode_base64 ( $img -> imagetoblob ( magick => 'gif' )); print "in : $data_in\n" ; print "out: $data_out\n" ;