Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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);

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://255373]
help
Chatterbox?
[Discipulus]: if you prepend 'good' to this mere part of the day you get a wish..as in good morning LanX
[LanX]: good
[LanX]: ;-p
[Eily]: good mere part of the day to you too
[karlgoethebier]: good #metoo

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2018-02-20 10:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (269 votes). Check out past polls.

    Notices?