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

[Luis Motta Campos]

On Apr 25, 2007, at 2:18 AM, João Gabriel wrote:
> O "código" da imagem eu estou obtendo pelo seguinte modo:
> <code>
> open(BD,"imagem.jpg");
> binmode BD;
> foreach $conteudo(<BD>) {
> $imagem .= $conteudo;
> }
> close(BD);
> </code>
>
> Sei que isso não é a melhor forma de fazer... mas no momento preciso
> fazer assim.


   Leia de uma vez:

   sub read_image {
     local $/ = undef;
     open my $img, q{imagem.jpg} or die "$!";
     binmode $img;
     my $bytes = <$img>;
     close $img or die "$!";
     return $bytes;
   }

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