perl程式設計技巧

1. Why does POE pass parameters as array slices?
http://poe.perl.org/?POE_FAQ/calling_convention

2. perl regular expression fast referecnces
metacharacters are

{ } [ ] ( ) ^ $ . | * + ?

a metacharacter can be matched by putting a backslash before it
anchor metacharacters ^ and $ .
The anchor ^ means match at the beginning of the string and the anchor $ means match at the end of the string, or before a newline at the end of the string.

"housekeeper" =~ /keeper/; # matches

"housekeeper" =~ /^keeper/; # doesn't match

"housekeeper" =~ /keeper$/; # matches

"housekeeper " =~ /keeper$/; # matches

A character class allows a set of possible characters, rather than just a single character, to match at a particular point in a regexp.Character classes are denoted by brackets [...], with the set of characters to be possiblly matched inside. Some examples:

/cat/; #matches 'cat'

/[bcr]at/; #matches 'bat', 'cat', or 'rat'

/item[0123456789]/; #matches 'item0' or ... or 'item9'

"abc" =~ /[cab]/; #matches 'a'

/[yY][eE][sS]/ can be rewritten as /yes/i.

The 'i' stands for case-insensitive and is an example of a modifier of the matching operation.
The special characters for a character class are - ] / ^ $ (and the pattern delimiter, whatever it is). ] is special because it denotes the end of a character class. $ is special because it denotes a scalar variable. / is special because it is used in escape sequences.

/[/]c]def/; # matches ']def' or 'cdef'

$x = 'bcr';

/[$x]at/; # matches 'bat', 'cat', or 'rat'

/[/$x]at/; # matches '$at' or 'xat'

/[//$x]at/; # matches '/at', 'bat, 'cat', or 'rat'

The specia character '-' acts as a range operator within a character class.

/item[0-9]/; # matches 'item0' or ... or 'item9'

/[0-9bx-z]aa/; # matches '0aa', ..., '9aa',

                    # 'baa', 'xaa', 'yaa', or 'zaa'
   /[0-9a-fA-F]/;  # matches a hexadecimal digit
   /[0-9a-zA-Z_]/; # matches a "word" character,

# like those in a Perl variable name

If '-' is the first or last character in a character class, it is treated as an ordinary character; [-ab], [ab-] and [a/-b] are all equivalent.
The special character ^ in the first position of a character class denotes a negated character class, which matches any characters but those in the brackets.

/[^a]at/; # doesn't match 'aat' or 'at', but matches

# all other 'bat', 'cat, '0at', '%at', etc.

/[^0-9]/; # matches a non-numeric character

/[a^]at/; # matches 'aat' or '^at'; here '^' is ordinary

/d matches a digit, not just [0-9] but also digits from non-roman scripts

/s matches a whitespace character, the set [/ /t/r/n/f] and others

/w matches a word character (alphanumeric or _), not just [0-9a-zA-Z_] but also digits and

characters from non-roman scripts

/D is a negated /d; it represents any other character than a digit, or [^/d]

/S is a negated /s; it represents any non-whitespace character [^/s]

/W is a negated /w; it represents any non-word character [^/w]

The period '.' matches any character but "/n" (unless the modifier //s is in effect, as explained

below).

//d/d:/d/d:/d/d/; # matches a hh:mm:ss time format

/[/d/s]/; # matches any digit or whitespace character

//w/W/w/; # matches a word char, followed by a

# non-word char, followed by a word char

/..rt/; # matches any two chars, followed by 'rt'

/end/./; # matches 'end.'

/end[.]/; # same thing, matches 'end.'

The alternation metacharacter | .To match dog or cat, we form the
regexp dog|cat. As before, Perl will try to match the regexp at the earliest possible point in the
string. At each character position, Perl will first try to match the first alternative, dog. If dog doesn't
match, Perl will then try the next alternative, cat. If cat doesn't match either, then the match fails and
Perl moves to the next position in the string.