ketema has asked for the wisdom of the Perl Monks concerning the following question:
open(PIC,"<","$dir\\$filename"); while (read(PIC,$_,57)) { $binData .= encode_base64($_); } close PIC; open(PIC,">","E:\\$filename"); print PIC decode_base64($binData);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: jpg's and base 64
by Zaxo (Archbishop) on Dec 02, 2004 at 03:31 UTC |