On Tue, 2004-04-27 at 10:11, Sumanth Sharma wrote:
> Here is a sample code,
> use Compress::Zlib ;
> .
> .
> .
> .
>
> open(LOG,"<$log_file1")or print "cld not open $log_file1 for reading \n";
> $HTML_LOG = gzopen("$log_file2", "wb",1) or print "cld not open
> $log_file2 for writing \n";
> while (<LOG>)
> {
> $HTML_LOG->gzwrite($_)
> }
> close(LOG);
> $HTML_LOG->gzclose();
Answering the other half of your question, to mail the file use the
MailFile function in the Mail::Sender module.
http://search.cpan.org/~jenda/Mail-Sender-0.8.10/Sender.pm#MailFile
Hope this helps,
Kevin
--
Kevin Old <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
