The following example shows how a complicated string, such as the date / time string from the unix "date" command, can be matched against a regular expression defined as a constant. The original regular expression is 5 lines long.
use Regexp::Constant;
my $date = "Mon Oct 25 11:59:13 EDT 2004";
print $1 if $date =~ /@{[REGEX_SHELL_DATE]}/;
exit();
WARNING - BETA SOFTWARE - NOT ALL REGEX'S HAVE BEEN TESTED A module for defining commonly used regular expressions as constants.
REGEX_SIGNED REGEX_BINARY REGEX_DECIMAL REGEX_FLOAT REGEX_HEX REGEX_OCTAL REGEX_OCTET REGEX_COMMA_DELIMITED_NUMBER
REGEX_TINYINT REGEX_TINYINT_SIGNED REGEX_SMALLINT REGEX_SMALLINT_SIGNED REGEX_MEDIUMINT REGEX_MEDIUMINT_SIGNED REGEX_INT REGEX_INT_SIGNED REGEX_BIGINT REGEX_BIGINT_SIGNED
REGEX_MAC_ADDRESS REGEX_IP_CLASS_A REGEX_IP_CLASS_B REGEX_IP_CLASS_C REGEX_IP_ADDRESS REGEX_DOMAIN_NAME REGEX_EMAIL_ADDRESS
REGEX_HOUR REGEX_MINUTE REGEX_SECOND REGEX_TIME REGEX_GMT_OFFSET REGEX_TIMEZONE
REGEX_DAY REGEX_WEEKDAY_ABBREVIATED REGEX_WEEKDAY_NAME REGEX_WEEKDAY REGEX_MONTH_NUMERIC REGEX_MONTH_NAME_ABBREVIATED REGEX_MONTH_NAME REGEX_MONTH REGEX_YEAR REGEX_ROMAN_NUMERAL
REGEX_CLF_DATE REGEX_MYSQL_DATE REGEX_CLF_DATETIME REGEX_MYSQL_DATETIME REGEX_SHELL_DATE
REGEX_AREA_CODE REGEX_PHONE_EXCHANGE REGEX_PHONE_EXTENSION REGEX_PHONE
REGEX_HTML_SIMPLE
REGEX_REQUEST_METHOD REGEX_REQUEST_OBJECT REGEX_URI REGEX_PROTOCOL REGEX_RESPONSE_CODE REGEX_CONTENT_LENGTH REGEX_HTTP_REFERER REGEX_HTTP_USER_AGENT REGEX_COOKIE
REGEX_STATE REGEX_STATE_ABBREVIATION REGEX_ZIP_CODE REGEX_ZIP_CODE_PLUS_FOUR
REGEX_REPEATED_WORD REGEX_WINDOWS_FILENAME REGEX_NUMBER REGEX_WORD_UNCAPITALIZED REGEX_WORD_CAPITALIZED
REGEX_MD5 REGEX_GUID REGEX_ISBN REGEX_SSN
REGEX_VISA REGEX_MASTERCARD REGEX_DISCOVER REGEX_DINERS_CLUB REGEX_AMERICAN_EXPRESS REGEX_CREDIT_CARD REGEX_CREDIT_CARD_EXPIRATION REGEX_CREDIT_CARD_VALIDATION
None by default.
None.
Some values are not defined, or use basic matching (HTML, Cookie, etc).
Telephone does not properly match paranthesis around area code.
Many REGEX untested or partially tested.
David Tiberio, <dtiberio5@hotmail.com>
Copyright 2004 David Tiberio, dtiberio5@hotmail.com
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
