Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

joshua's scratchpad

by joshua (Pilgrim)
on Jun 05, 2004 at 12:29 UTC ( [id://361548] : scratchpad . print w/replies, xml ) Need Help??

# Regex for an ip address my ($ip) = $q->remote_addr() =~ /^((\d{2,3}\.){3}\d{2,3})$/;

Remove all decorations (ie, title-bar and WM buttons) from a Tk window