[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