Hello all,
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? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/