Am nevoie ca sa transform cu base64 anumite fisiere ca sa apara ca
atsamente la mail ... problema e ca nu pot sa fac atasamente cu fisiere
binare:

exemplu de la ei pe site (ca sa fiu sigur ca nu am gresit nimic):
   use MIME::Base64 qw(encode_base64);

   open(FILE, "/var/log/wtmp") or die "$!";
   while (read(FILE, $buf, 60*57)) {
       print encode_base64($buf);
   }  

cu un fisier text totul e ok dar cu o imagine (.png daca are vreo
importanta) imi da:

~/stuf/script-zm/mime_test$ ./read_file.pl lol.png
Wide character in subroutine entry at ./read_file.pl line 9.
~/stuf/script-zm/mime_test$

Nu mai inteleg ... please help.
---
Pentru dezabonare, trimiteti mail la 
[EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
REGULI, arhive si alte informatii: http://www.lug.ro/mlist/


Raspunde prin e-mail lui