C:\>perl -MYAPE::Regex::Explain -le"print YAPE::Regex::Explain->new(qr
+/[^[:print:]]/)->explain"
The regular expression:
(?-imsx:[^[:print:]])
matches as follows:
NODE EXPLANATION
----------------------------------------------------------------------
(?-imsx: group, but do not capture (case-sensitive)
(with ^ and $ matching normally) (with . not
matching \n) (matching whitespace and #
normally):
----------------------------------------------------------------------
[^[:print:]] any character except: alphanumeric,
punctuation, and whitespace characters
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------
MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" | I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). | ** The third rule of perl club is a statement of fact: pod is sexy. |
|