Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

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

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


in reply to Re^5: Memcache 'get' returns undef running under mod_perl (debug)
in thread Memcache 'get' returns undef running under mod_perl

Interesting. Testing it a little further, it appears that it is the combination /me causing the problems. Removing just the 'm' to give

$html =~ s/<\?KEYWORD\s+([^\?^>]+)\??>/$self->handle($1)/ge;

does make it 'work'.

However, I need the match to be multiline. Re-introducing the /m option in a loop also makes things work:

my $MAX = 100; while( $html =~ m/<\?KEYWORD\s+([^\?^>]+)\??>/m ) { my $ssi_html = $self->handle($1); $html =~ s/<\?KEYWORD\s+([^\?^>]+)\??>/$ssi_html/m; last if $MAX++ > 100; }

-=( Graq )=-

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://654739]
help
Chatterbox?
[james28909]: everything past the first two things you piked from my posts are irrelevant to me and my beliefs. they are side effects.
[james28909]: two or three. if it has to do with how humans are handling said situations, then that is after they were able to evolve into those problems. agnostic means only believe with evidence. i took that from a tyson video
[james28909]: and it seems that racism suggest that there is indeed a better race, but that is for evolution to decide
[1nickt]: "right now, humans are smarter than in any of those times": define "smart"
[erix]: ah, now you're appraoch downvote-territory ;)

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2017-12-15 14:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (433 votes). Check out past polls.

    Notices?