Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^6: Memcache 'get' returns undef running under mod_perl (debug)

by graq (Curate)
on Dec 04, 2007 at 08:52 UTC ( [id://654739] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $MAX = 100;
    while( $html =~ m/<\?KEYWORD\s+([^\?^>]+)\??>/m )
    ...
      $html =~ s/<\?KEYWORD\s+([^\?^>]+)\??>/$ssi_html/m;
      last if $MAX++ > 100; 
    }