ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Igor Mikhailov                       2:5005/42.21   06 Mar 2001  22:12:04
 To : All
 Subject : mod_perl+mason+Compress::Zlib
 -------------------------------------------------------------------------------- 
 

 password: :-P
 
 >КОД:
 
 ======================
     if($data->{'is_compressed'} eq 'true') {
 #       $body=uncompress(\$data->{'body'});
         $body=Compress::Zlib::memGunzip(\$data->{'body'});
         unless(defined $body) {
             warn "Can't uncompress body: $!";
             $body="Error\n";
         }
     } else {
         $body=$data->{'body'};
     }
 ======================
 
 >РЕЗУЛЬТАТ:
 
 $body == "Error\n"
 И варнинг в логах. Абсолютно тоже самое при использовании uncompress. Как cgi
 все работает (другой скрип с аналогичным кодом).
 
 ----------------------
 [igor ~]$ perl -e 'use HTML::Mason; print "$HTML::Mason::VERSION\n"';
 0.896
 ----------------------
 [igor ~]$ perl -e 'use Compress::Zlib; print "$Compress::Zlib::VERSION\n"';
 1.09
 ----------------------
 mod_perl - 1.25, apache - 1.3.14
 
 With best wishes Igor.
 
     Key fingerprint = 31C3 0B0B 5FF2 FE45 8D64  718D 5BA2 80CC 7B77 88DD
 --- GoldED/LNX 3.0.1
  * Origin: Дареный резистор тестером не проверяют. (2:5005/42.21)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор