blob: 6ae342f4eba46357715a01443343a4201f5e7059 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# Perl language definition file
#
# Author: Andre Simon
# Mail: andre.simon1@gmx.de
# Date: 28.01.2003
# Update: 11.09.2007 (regex kwb)
# Update: 11.09.2008 (regex pattern)
# ------------------------------------------
# This file is a part of highlight, a free source code converter released under the GPL.
#
# The file is used to describe keywords and special symbols of programming languages.
# See README in the highlight directory for details.
#
# New definition files for future releases of highlight are always appreciated ;)
#
# ----------
# andre.simon1@gmx.de
# http:/www.andre-simon.de/
$DESCRIPTION=Perl
$KEYWORDS(kwa)=and cmp continue else elsif eq for foreach ge goto gt if last
le lt do ne next not or package return sub switch unless until use while xor
# TODO string functions, array functions etc
$KEYWORDS(kwc)=my local print
$STRINGDELIMITERS=" ' END
$SL_COMMENT=#
$IGNORECASE=false
$ESCCHAR=regex(\\\d{3}|\\x\p{XDigit}{2}|\\[ntvbrfa\\\?'"])
$ALLOWEXTESCAPE=true
$KEYWORDS(kwb)=regex([$@%]\#?\w+)
#$KEYWORDS(kwc)=regex((\$\{(\w+)\}))
# pattern to highlight regexes (m//, s///, tr ///)
$KEYWORDS(kwc)=regex(m?\/.*?\/|(s|tr)\/.*?\/.*?\/[cegimosx]*, 0)
$KEYWORDS(kwd)=regex((->)?([a-zA-Z_]+)\s*[\(;])
$SYMBOLS= ( ) [ ] { } , ; : & | < > ! = / * + - $ . ^ ~ %
|