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

little's scratchpad

by little (Curate)
on Jun 04, 2004 at 08:29 UTC ( [id://360764] : scratchpad . print w/replies, xml ) Need Help??

assuming that you dont use http://username:password@any.domain.tld
if (param('pl_url') =~ m|^https?://[^/:]{4,255}|) { ... }