From: mailing lists <[email protected]>
> 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
===== [email protected] === 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
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
