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

Otávio Fernandes otaviof em gmail.com
Quarta Abril 25 04:14:54 PDT 2007


On 4/25/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> 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}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

Faltou o base64 ! Vai uma idéia de como ficaria o código:

-------
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;

}
-------

boa sorte,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | Debian 4.0 (Testing) -- GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --


Mais detalhes sobre a lista de discussão Cascavel-pm