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

[Otávio Fernandes]

On 4/25/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> 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.

hehehehehe

>    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

Luis, eu não conhecia este procedimento, também reclamava disso mas
não tinha achado uma solução ainda ... :-) Pena que ele ainda não é
orientado ...

> 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}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm