Re: Sending files efficiently with Net::SMTP

From:           	mailing lists <listas.correo@yahoo.es>
> I have a perl (Ver. 5.10.0) program running over an old machine which send messages with this code:
>
>
>     my $smtp = Net::SMTP->new($dstMailServer, Timeout=>10, Debug=>0,);
>     unless(defined($smtp)){
>         syslog LOG_INFO, "id:%s error: unable to connect with %s", $myid, $dstMailServer;
>         exit $EX_TEMPFAIL;
>     }  
>     $smtp->mail($sender);
>     $smtp->to($recipient);
>     $smtp->data();
>     my $line;
>     open INPUTFILE, "<", $outfile or die "couldn't open $outfile";
>     while(defined($line=<INPUTFILE>)){
>         $smtp->datasend($line);
>     }
>     close INPUTFILE;
>     $smtp->dataend();
>     $smtp->quit;
>
>
> since the machine belongs to a third party I have no possibility to
> install perl modules (no internet connection, compilers, etc) like
> Slurp. So sending files in the MB range is very slow. Anyone know how
> to optimize (if possible) this code?


Read (and send) the files by blocks (8kb sounds reasonable) instead
of lines.

See
	perldoc -f read

not sure it'll help much though.

Jenda
===== Jenda@Krynicky.cz === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
	-- Terry Pratchett in Sourcery

• Sending files efficiently with Net::SMTP by mailing lists
• Re: Sending files efficiently with Net::SMTP by Jenda Krynicky
• Re: Sending files efficiently with Net::SMTP by Igor Dovgiy
• Re: Sending files efficiently with Net::SMTP by Igor Dovgiy