Re: Fwd: How attach files and send mails on perl????

[Gunnar Hjalmarsson]

Armin Garcia wrote:

sub Main{

        my $aux;

        @tmp=`ls $attach_path`;
        foreach (@tmp){
                if ($_ =~ /backup*/){
                        $aux=$_;
                }
        }

Try inserting

    chomp $aux;

here.

        $file="$attach_path/$aux";

<snip>

Well the problem is i recibe the next output on my terminal when i execute
this script

*Unsuccessful stat on filename containing newline at
/usr/local/share/perl/5.8.8/MIME/Lite.pm line 1549.

I dont understand what does mean ... :s

It says that a filename passed to MIME::Lite contains a newline, which 
means that it contains a newline...  See suggested fix above.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/