Re: Compress and email file?

[Sumanth Sharma]

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();



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>