1 | (function (Prism) {
|
2 |
|
3 | var brackets = /(?:\((?:[^()\\]|\\[\s\S])*\)|\{(?:[^{}\\]|\\[\s\S])*\}|\[(?:[^[\]\\]|\\[\s\S])*\]|<(?:[^<>\\]|\\[\s\S])*>)/.source;
|
4 |
|
5 | Prism.languages.perl = {
|
6 | 'comment': [
|
7 | {
|
8 |
|
9 | pattern: /(^\s*)=\w[\s\S]*?=cut.*/m,
|
10 | lookbehind: true,
|
11 | greedy: true
|
12 | },
|
13 | {
|
14 | pattern: /(^|[^\\$])#.*/,
|
15 | lookbehind: true,
|
16 | greedy: true
|
17 | }
|
18 | ],
|
19 |
|
20 | 'string': [
|
21 | {
|
22 | pattern: RegExp(
|
23 | /\b(?:q|qq|qw|qx)(?![a-zA-Z0-9])\s*/.source +
|
24 | '(?:' +
|
25 | [
|
26 |
|
27 | /([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1/.source,
|
28 |
|
29 | // q a...a
|
30 | // eslint-disable-next-line regexp/strict
|
31 | /([a-zA-Z0-9])(?:(?!\2)[^\\]|\\[\s\S])*\2/.source,
|
32 |
|
33 | // q(...)
|
34 | // q{...}
|
35 | // q[...]
|
36 | // q<...>
|
37 | brackets,
|
38 | ].join('|') +
|
39 | ')'
|
40 | ),
|
41 | greedy: true
|
42 | },
|
43 |
|
44 | // "...", `...`
|
45 | {
|
46 | pattern: /("|`)(?:(?!\1)[^\\]|\\[\s\S])*\1/,
|
47 | greedy: true
|
48 | },
|
49 |
|
50 | // '...'
|
51 | // FIXME Multi-line single-quoted strings are not supported as they would break variables containing '
|
52 | {
|
53 | pattern: /'(?:[^'\\\r\n]|\\.)*'/,
|
54 | greedy: true
|
55 | }
|
56 | ],
|
57 | 'regex': [
|
58 | {
|
59 | pattern: RegExp(
|
60 | /\b(?:m|qr)(?![a-zA-Z0-9])\s*/.source +
|
61 | '(?:' +
|
62 | [
|
63 | // m/.../
|
64 | /([^a-zA-Z0-9\s{(\[<])(?:(?!\1)[^\\]|\\[\s\S])*\1/.source,
|
65 |
|
66 | // m a...a
|
67 | // eslint-disable-next-line regexp/strict
|
68 | /([a-zA-Z0-9])(?:(?!\2)[^\\]|\\[\s\S])*\2/.source,
|
69 |
|
70 | // m(...)
|
71 | // m{...}
|
72 | // m[...]
|
73 | // m<...>
|
74 | brackets,
|
75 | ].join('|') +
|
76 | ')' +
|
77 | /[msixpodualngc]*/.source
|
78 | ),
|
79 | greedy: true
|
80 | },
|
81 |
|
82 | // The lookbehinds prevent -s from breaking
|
83 | {
|
84 | pattern: RegExp(
|
85 | /(^|[^-])\b(?:s|tr|y)(?![a-zA-Z0-9])\s*/.source +
|
86 | '(?:' +
|
87 | [
|
88 | // s/.../.../
|
89 | // eslint-disable-next-line regexp/strict
|
90 | /([^a-zA-Z0-9\s{(\[<])(?:(?!\2)[^\\]|\\[\s\S])*\2(?:(?!\2)[^\\]|\\[\s\S])*\2/.source,
|
91 |
|
92 | // s a...a...a
|
93 | // eslint-disable-next-line regexp/strict
|
94 | /([a-zA-Z0-9])(?:(?!\3)[^\\]|\\[\s\S])*\3(?:(?!\3)[^\\]|\\[\s\S])*\3/.source,
|
95 |
|
96 | // s(...)(...)
|
97 | // s{...}{...}
|
98 | // s[...][...]
|
99 | // s<...><...>
|
100 | // s(...)[...]
|
101 | brackets + /\s*/.source + brackets,
|
102 | ].join('|') +
|
103 | ')' +
|
104 | /[msixpodualngcer]*/.source
|
105 | ),
|
106 | lookbehind: true,
|
107 | greedy: true
|
108 | },
|
109 |
|
110 | // /.../
|
111 | // The look-ahead tries to prevent two divisions on
|
112 | // the same line from being highlighted as regex.
|
113 | // This does not support multi-line regex.
|
114 | {
|
115 | pattern: /\/(?:[^\/\\\r\n]|\\.)*\/[msixpodualngc]*(?=\s*(?:$|[\r\n,.;})&|\-+*~<>!?^]|(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|x|xor)\b))/,
|
116 | greedy: true
|
117 | }
|
118 | ],
|
119 |
|
120 | // FIXME Not sure about the handling of ::, ', and #
|
121 | 'variable': [
|
122 | // ${^POSTMATCH}
|
123 | /[&*$@%]\{\^[A-Z]+\}/,
|
124 | // $^V
|
125 | /[&*$@%]\^[A-Z_]/,
|
126 | // ${...}
|
127 | /[&*$@%]#?(?=\{)/,
|
128 | // $foo
|
129 | /[&*$@%]#?(?:(?:::)*'?(?!\d)[\w$]+(?![\w$]))+(?:::)*/,
|
130 | // $1
|
131 | /[&*$@%]\d+/,
|
132 | // $_, @_, %!
|
133 | // The negative lookahead prevents from breaking the %= operator
|
134 | /(?!%=)[$@%][!"#$%&'()*+,\-.\/:;<=>?@[\\\]^_`{|}~]/
|
135 | ],
|
136 | 'filehandle': {
|
137 | // <>, <FOO>, _
|
138 | pattern: /<(?![<=])\S*?>|\b_\b/,
|
139 | alias: 'symbol'
|
140 | },
|
141 | 'v-string': {
|
142 | // v1.2, 1.2.3
|
143 | pattern: /v\d+(?:\.\d+)*|\d+(?:\.\d+){2,}/,
|
144 | alias: 'string'
|
145 | },
|
146 | 'function': {
|
147 | pattern: /(\bsub[ \t]+)\w+/,
|
148 | lookbehind: true
|
149 | },
|
150 | 'keyword': /\b(?:any|break|continue|default|delete|die|do|else|elsif|eval|for|foreach|given|goto|if|last|local|my|next|our|package|print|redo|require|return|say|state|sub|switch|undef|unless|until|use|when|while)\b/,
|
151 | 'number': /\b(?:0x[\dA-Fa-f](?:_?[\dA-Fa-f])*|0b[01](?:_?[01])*|(?:(?:\d(?:_?\d)*)?\.)?\d(?:_?\d)*(?:[Ee][+-]?\d+)?)\b/,
|
152 | 'operator': /-[rwxoRWXOezsfdlpSbctugkTBMAC]\b|\+[+=]?|-[-=>]?|\*\*?=?|\/\/?=?|=[=~>]?|~[~=]?|\|\|?=?|&&?=?|<(?:=>?|<=?)?|>>?=?|![~=]?|[%^]=?|\.(?:=|\.\.?)?|[\\?]|\bx(?:=|\b)|\b(?:and|cmp|eq|ge|gt|le|lt|ne|not|or|xor)\b/,
|
153 | 'punctuation': /[{}[\];(),:]/
|
154 | };
|
155 |
|
156 | }(Prism));
|