From: mailing lists <listas.cor...@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 ===== je...@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 -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/