perl.php

F2blog v1.1 beta 12.27更新说明 1、后台编辑器增加了文本粘贴与从WORD粘贴

                12 => 'string',
                13 => 'string',
                14 => 'var',
                15 => 'var',
                16 => 'var',
                17 => 'var',
                18 => 'var',
                19 => 'var',
                20 => 'string',
                21 => 'string',
                22 => 'string',
                23 => 'identifier',
                24 => 'number',
            ),
            3 => 
            array (
                0 => 'special',
                1 => 'comment',
                2 => 'code',
                3 => 'code',
                4 => 'code',
                5 => 'special',
                6 => 'special',
                7 => 'string',
                8 => 'string',
                9 => 'comment',
                10 => 'string',
                11 => 'string',
                12 => 'string',
                13 => 'var',
                14 => 'var',
                15 => 'var',
                16 => 'var',
                17 => 'var',
                18 => 'var',
                19 => 'string',
                20 => 'string',
                21 => 'string',
                22 => 'identifier',
                23 => 'number',
            ),
            4 => 
            array (
                0 => 'var',
                1 => 'var',
                2 => 'var',
                3 => 'special',
            ),
            5 => 
            array (
                0 => 'special',
            ),
            6 => 
            array (
                0 => 'string',
            ),
            7 => 
            array (
                0 => 'var',
                1 => 'var',
                2 => 'var',
                3 => 'special',
            ),
            8 => 
            array (
                0 => 'special',
            ),
            9 => 
            array (
                0 => 'var',
                1 => 'var',
                2 => 'var',
                3 => 'special',
            ),
        );
        $this->_end = array (
            0 => '/(?m)^=cut[^\\n]*/',
            1 => '/\\}/',
            2 => '/\\)/',
            3 => '/\\]/',
            4 => '/%b2%/',
            5 => '/%b2%/',
            6 => '/\\/[cgimosx]*/',
            7 => '/`/',
            8 => '/\'/',
            9 => '/"/',
        );
        $this->_states = array (
            -1 => 
            array (
                0 => -1,
                1 => 0,
                2 => 1,
                3 => 2,
                4 => 3,
                5 => -1,
                6 => -1,
                7 => 4,
                8 => 5,
                9 => -1,
                10 => -1,
                11 => -1,
                12 => 6,
                13 => -1,
                14 => -1,
                15 => -1,
                16 => -1,
                17 => -1,
                18 => -1,
                19 => 7,
                20 => 8,
                21 => 9,
                22 => -1,
                23 => -1,
            ),
            0 => 
            array (
            ),
            1 => 
            array (
                0 => -1,
                1 => 0,
                2 => 1,
                3 => 2,
                4 => 3,
                5 => -1,
                6 => -1,
                7 => 4,
                8 => 5,
                9 => -1,
                10 => -1,
                11 => -1,
                12 => 6,
                13 => -1,
                14 => -1,
                15 => -1,
                16 => -1,
                17 => -1,
                18 => -1,
                19 => 7,
                20 => 8,
                21 => 9,
                22 => -1,
                23 => -1,
            ),
            2 => 
            array (
                0 => -1,
                1 => 0,
                2 => 1,
                3 => 2,
                4 => 3,
                5 => -1,
                6 => -1,
                7 => 4,
                8 => 5,
                9 => -1,
                10 => -1,
                11 => -1,
                12 => 6,
                13 => -1,
                14 => -1,
                15 => -1,
                16 => -1,
                17 => -1,
                18 => -1,
                19 => -1,
                20 => 7,
                21 => 8,
                22 => 9,
                23 => -1,
                24 => -1,
            ),
            3 => 
            array (
                0 => -1,
                1 => 0,
                2 => 1,
                3 => 2,
                4 => 3,
                5 => -1,
                6 => -1,
                7 => 4,
                8 => 5,
                9 => -1,
                10 => -1,
                11 => -1,
                12 => 6,
                13 => -1,
                14 => -1,
                15 => -1,
                16 => -1,
                17 => -1,
                18 => -1,
                19 => 7,
                20 => 8,
                21 => 9,
                22 => -1,
                23 => -1,
            ),
            4 => 
            array (
                0 => -1,
                1 => -1,
                2 => -1,
                3 => -1,
            ),
            5 => 
            array (
                0 => -1,
            ),
            6 => 
            array (
                0 => -1,
            ),
            7 => 
            array (
                0 => -1,
                1 => -1,
                2 => -1,
                3 => -1,
            ),
            8 => 
            array (
                0 => -1,
            ),
            9 => 
            array (
                0 => -1,
                1 => -1,
                2 => -1,
                3 => -1,
            ),
        );
        $this->_keywords = array (
            -1 => 
            array (
                0 => 
                array (
                ),
                1 => -1,
                2 => -1,
                3 => -1,
                4 => -1,
                5 => 
                array (
                ),
                6 => 
                array (
                ),
                7 => -1,
                8 => -1,
                9 => 
                array (
                ),
                10 => 
                array (
                ),
                11 => 
                array (
                ),
                12 => -1,
                13 => 
                array (
                ),
                14 => 
                array (
                ),
                15 => 
                array (
                ),
                16 => 
                array (
                ),
                17 => 
                array (
                ),
                18 => 
                array (
                ),
                19 => -1,
                20 => -1,
                21 => -1,
                22 => 
                array (
                    'reserved' => '/^(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eval|exec|exists|exit|exp|fcntl|fileno|flock|fork|format|formline|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|goto|grep|hex|import|index|int|ioctl|join|keys|kill|last|lc|lcfirst|length|link|listen|local|localtime|lock|log|lstat|map|mkdir|msgctl|msgget|msgrcv|msgsnd|my|next|no|oct|open|opendir|ord|our|pack|package|pipe|pop|pos|print|printf|prototype|push|quotemeta|rand|read|readdir|readline|readlink|readpipe|recv|redo|ref|rename|require|reset|return|reverse|rewinddir|rindex|rmdir|scalar|seek|seekdir|select|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|sub|substr|symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|tie|tied|time|times|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|use|utime|values|vec|wait|waitpid|wantarray|warn|write|y)$/',
                    'missingreserved' => '/^(new)$/',
                    'flowcontrol' => '/^(if|else|elsif|while|unless|for|foreach|until|do|continue|not|or|and|eq|ne|gt|lt)$/',
                ),
                23 => 
                array (
                ),
            ),
            0 => 
            array (
            ),
            1 => 
            array (
                0 => 
                array (
                ),
                1 => -1,
                2 => -1,
                3 => -1,
                4 => -1,
                5 => 
                array (
                ),
                6 => 
                array (
                ),
                7 => -1,
                8 => -1,
                9 => 
                array (
                ),
                10 => 
                array (
                ),
                11 => 
                array (
                ),
                12 => -1,
                13 => 
                array (
                ),
                14 => 
                array (
                ),
                15 => 
                array (
                ),
                16 => 
                array (
                ),
                17 => 
                array (
                ),
                18 => 
                array (
                ),
                19 => -1,
                20 => -1,
                21 => -1,
                22 => 
                array (
                    'reserved' => '/^(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eval|exec|exists|exit|exp|fcntl|fileno|flock|fork|format|formline|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|goto|grep|hex|import|index|int|ioctl|join|keys|kill|last|lc|lcfirst|length|link|listen|local|localtime|lock|log|lstat|map|mkdir|msgctl|msgget|msgrcv|msgsnd|my|next|no|oct|open|opendir|ord|our|pack|package|pipe|pop|pos|print|printf|prototype|push|quotemeta|rand|read|readdir|readline|readlink|readpipe|recv|redo|ref|rename|require|reset|return|reverse|rewinddir|rindex|rmdir|scalar|seek|seekdir|select|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|sub|substr|symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|tie|tied|time|times|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|use|utime|values|vec|wait|waitpid|wantarray|warn|write|y)$/',
                    'missingreserved' => '/^(new)$/',
                    'flowcontrol' => '/^(if|else|elsif|while|unless|for|foreach|until|do|continue|not|or|and|eq|ne|gt|lt)$/',
                ),
                23 => 
                array (
                ),
            ),
            2 => 
            array (
                0 => 
                array (
                ),
                1 => -1,
                2 => -1,
                3 => -1,
                4 => -1,
                5 => 
                array (
                ),
                6 => 
                array (
                ),
                7 => -1,
                8 => -1,
                9 => 
                array (
                ),
                10 => 
                array (
                ),
                11 => 
                array (
                ),
                12 => -1,
                13 => 
                array (
                ),
                14 => 
                array (
                ),
                15 => 
                array (
                ),
                16 => 
                array (
                ),
                17 => 
                array (
                ),
                18 => 
                array (
                ),
                19 => 
                array (
                ),
                20 => -1,
                21 => -1,
                22 => -1,
                23 => 
                array (
                    'reserved' => '/^(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eval|exec|exists|exit|exp|fcntl|fileno|flock|fork|format|formline|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|goto|grep|hex|import|index|int|ioctl|join|keys|kill|last|lc|lcfirst|length|link|listen|local|localtime|lock|log|lstat|map|mkdir|msgctl|msgget|msgrcv|msgsnd|my|next|no|oct|open|opendir|ord|our|pack|package|pipe|pop|pos|print|printf|prototype|push|quotemeta|rand|read|readdir|readline|readlink|readpipe|recv|redo|ref|rename|require|reset|return|reverse|rewinddir|rindex|rmdir|scalar|seek|seekdir|select|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|sub|substr|symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|tie|tied|time|times|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|use|utime|values|vec|wait|waitpid|wantarray|warn|write|y)$/',
                    'missingreserved' => '/^(new)$/',
                    'flowcontrol' => '/^(if|else|elsif|while|unless|for|foreach|until|do|continue|not|or|and|eq|ne|gt|lt)$/',
                ),
                24 => 
                array (
                ),
            ),
            3 => 
            array (
                0 => 
                array (
                ),
                1 => -1,
                2 => -1,
                3 => -1,
                4 => -1,
                5 => 
                array (
                ),
                6 => 
                array (
                ),
                7 => -1,
                8 => -1,
                9 => 
                array (
                ),
                10 => 
                array (
                ),
                11 => 
                array (
                ),
                12 => -1,
                13 => 
                array (
                ),
                14 => 
                array (
                ),
                15 => 
                array (
                ),