Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Perl Tk Icons

by didier (Vicar)
on May 03, 2003 at 19:24 UTC ( #255373=note: print w/ replies, xml ) Need Help??


in reply to Perl Tk Icons

This script will does the trick:
It's not very nice but it was written 7 years ago...

use MIME::Base64; unless(defined($ARGV[0])){ print <<'END'; Usage: perl im2b64.pl one.gif two.gif etc... Output is bin2b64.txt Use example of result: $c->Photo('image',-data=>$im_encode,format=>'gif'); END exit; } $c = 0; foreach(@ARGV){ open(K, $_) or die "$!"; binmode(K); foreach(<K>){ $data_im .= $_; } $im_encode = encode_base64($data_im); chop($im_encode); $ARGV[$c] =~ s/\./_/g; $done{$ARGV[$c]} = $im_encode; undef($data_im); $c++; close(K); } $sep = '-' x 35; open(K,">>$ARGV[0].txt") || die "$!"; foreach $key (keys(%done)){ print K "\x24$key = \n\"$done{$key}\\n\\n\"\;\n\n"; print K "$sep\n\n"; } close(K);


Comment on Re: Perl Tk Icons
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://255373]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2014-07-25 04:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (167 votes), past polls