[Cascavel-pm] [Bulk] Re: Envio de imagem jpeg via sendmail sem módulos

[Luis Motta Campos]

On Apr 25, 2007, at 1:14 PM, Otávio Fernandes wrote:
> use MIME::Base64;
>
> sub read_image {
>
>     local $/ = undef;
>     open my $img, q{imagem.jpg} or die "$!";
>     binmode $img;
>     my $bytes = encode_base64(<$img>);
>     close $img or die "$!";
>     return $bytes;
>
> }

   AAAaahhhhrrrrggg!!!
   ODEIO módulos mal-educados.

   O MIME::Base64 é enxerido e exporta automaticamente funções para o  
namespace alheio.
   Isto não é considerado boa prática de programação, e eu recomendo  
que você use assim:

use MIME::Base64 (); # impede falta-de-educação
sub read_image {
     local $/ = undef;
     open my $img, q{imagem.jpg} or die "$!";
     binmode $img;
     my $bytes = MIME::Base64::encode_base64(<$img>); # eu sei  
exatamente o que eu quero.
     close $img or die "$!";
     return $bytes;
}

   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}