JGCSCS
4
Perl script
*.pl;*.pm
JGsoft
support@editpadpro.com
http://www.editpadpro.com
http://www.perl.org
TRUE
#

0
5
# Perl
sub Test {
  $string = "String $test";
  $number = 1234 if $string =~ m/regex/i;
}
0
FALSE
15
Brackets
Using a different color for curly braces to make them stand out from round and square brackets
[{}]+
FALSE
FALSE
17
0


0
FALSE
Single-quoted string
String delimited by single quotes.  Quotes can appear in the string if they are escaped with a \
'[^'\\\r\n]*+(?:\\(?:.|$)[^'\\\r\n]*+)*+'?
FALSE
FALSE
9
0


-1
TRUE
Double-quoted string

"
FALSE
TRUE
9
0


4
FALSE
Comment
Single-line comment starts with # and continues until the end of the line.  The # character can also appear in $#variable
(?<!\$)#.*+
FALSE
FALSE
5
0


0
TRUE
Double-slashed string
m// qr// qw// where the slash can be any non-word non-blank character or a pair of matching brackets (we also disallow the $ so a lone m at the end of the line doesn't cause the following lines to flash if they start with a $)
\b(?:m|qr|qw)\s*+(?:\([^)\\\r\n]*+(?:\\.[^)\\\r\n]*+)*+\)?|\[[^\]\\\r\n]*+(?:\\.[^\]\\\r\n]*+)*+\]?|\{[^}\\\r\n]*+(?:\\.[^}\\\r\n]*+)*+\}?|([^\w\s$]).*?(?<!\\)\1)
FALSE
FALSE
19
0


5
FALSE
Double-slashed string
// without the m, qr or qw.  We require the =~ or !~ operator to be present, so there's no confusion between // and the division operator
(?<=[=!]~\s*)/[^/\\\r\n]*+(?:\\.[^/\\\r\n]*+)*+/?
FALSE
FALSE
19
0


5
FALSE
Triple-slashed string
s/// tr/// y/// where the slash can be any non-word non-blank character or two pairs of matching brackets (we also disallow the $ so a lone s at the end of the line doesn't cause the following lines to flash if they start with a $)
\b(?:s|y|tr)(?:(?:\s*+\([^)\\\r\n]*+(?:\\.[^)\\\r\n]*+)*+\)){2}|(?:\s*+\[[^\]\\\r\n]*+(?:\\.[^\]\\\r\n]*+)*+\]){2}|(?:\s*+\{[^}\\\r\n]*+(?:\\.[^}\\\r\n]*+)*+\}){2}|\s*+([^\w\s$])(?:.*?(?<!\\)\1){2})
FALSE
FALSE
19
0


5
FALSE
Number
Integer, floating point, hexadecimal and binary
\b(?:[0-9]++(\.[0-9]++)?(e[+-]?+[0-9]++)?|0x[0-9a-fA-F]++|0b[01]++)\b
FALSE
FALSE
10
0


-1
FALSE
Keyword

\b(and|close|die|do|else|elsif|eq|exit|foreach|for|gt|if|join|keys|length|local|lc|lt|my|next|ne|not|open|or|print|return|require|shift|split|splice|stat|substr|sub|uc|undef|unless|use|values|warn|while|xor)\b
TRUE
FALSE
7
0


-1
FALSE
Here document
Properly finished here document.  A here document is started by an identifier preceded by << and terminated by the same identifier at the beginning of a line.
<<"?+([A-Za-z0-9_]++)\b"?+.*?^\1\b
FALSE
TRUE
9
0


3
TRUE
Here document (open)
Here document of which the terminator is not present and therefore continues until the end of the file.
<<"?+([A-Za-z0-9_]++)\b"?+.*+
FALSE
TRUE
9
0


3
TRUE
Here document
Properly finished non-interpolating here document.  A here document is started by an identifier preceded by << and terminated by the same identifier at the beginning of a line.
<<'([A-Za-z0-9_]++)'.*?^\1\b
FALSE
TRUE
9
0


0
TRUE
Here document
Non-interpolating here document of which the terminator is not present and therefore continues until the end of the file.
<<'([A-Za-z0-9_]++)'.*
FALSE
TRUE
9
0


0
TRUE
Here document operator

<<
FALSE
FALSE
9
0


0
FALSE
Operator

[-.[\]()=+*/<>|&!~]++
FALSE
FALSE
13
0


0
FALSE
5
(
)
TRUE
3
[
]
TRUE
3
{
}
TRUE
3
'
'
FALSE
2
"
"
FALSE
5
3
Interpolated here document
0
9
TRUE
1
Variable
Don't forget the negative look-behind (?<!\\) to make sure the $ wasn't escaped!
(?<!\\)[$@%](?:[A-Za-z_][A-Za-z0-9_]*+|\d\b)(?:\{(?:\$[A-Za-z_][A-Za-z0-9_]*+|'[^'\r\n]++')\}|\[(?:\d++|\$[A-Za-z_][A-Za-z0-9_]*+)\])?+
FALSE
FALSE
16
0


0
FALSE
Interpolated string
1
9
TRUE
3
Escaped character
This element makes sure escaped " and $ characters are skipped.  Using lookbehind won't work, since (?<!\\)" would fail to match the closing " in "string\\"
\\.
FALSE
FALSE
9
0


-1
FALSE
Closing "

"
FALSE
FALSE
9
0


2
FALSE
Variable

[$@%](?:[A-Za-z_][A-Za-z0-9_]*+|\d\b)(?:\{(?:\$[A-Za-z_][A-Za-z0-9_]*+|'[^'\r\n]++')\}|\[(?:\d++|\$[A-Za-z_][A-Za-z0-9_]*+)\])?+
FALSE
FALSE
16
0


0
FALSE
Interpolated pattern
0
19
FALSE
1
Variable
Don't forget the negative look-behind (?<!\\) to make sure the $ wasn't escaped!
(?<!\\)[$@%](?:[A-Za-z_][A-Za-z0-9_]*+|\d\b)(?:\{(?:\$[A-Za-z_][A-Za-z0-9_]*+|'[^'\r\n]++')\}|\[(?:\d++|\$[A-Za-z_][A-Za-z0-9_]*+)\])?+
FALSE
FALSE
16
0


-1
FALSE