nanorc/perl.nanorc

## Here is an example for Perl.
##
syntax "Perl" "\.p[lm]$"
header "^#!.*/(env +)?perl( |$)"
magic "Perl script"
comment "#"

color red "\<(accept|alarm|atan2|bin(d|mode)|c(aller|h(dir|mod|op|own|root)|lose(dir)?|onnect|os|rypt)|d(bm(close|open)|efined|elete|ie|o|ump)|e(ach|of|val|x(ec|ists|it|p))|f(cntl|ileno|lock|ork))\>" "\<(get(c|login|peername|pgrp|ppid|priority|pwnam|(host|net|proto|serv)byname|pwuid|grgid|(host|net)byaddr|protobynumber|servbyport)|([gs]et|end)(pw|gr|host|net|proto|serv)ent|getsock(name|opt)|gmtime|goto|grep|hex|index|int|ioctl|join)\>" "\<(keys|kill|last|length|link|listen|local(time)?|log|lstat|m|mkdir|msg(ctl|get|snd|rcv)|next|oct|open(dir)?|ord|pack|pipe|pop|printf?|push|q|qq|qx|rand|re(ad(dir|link)?|cv|do|name|quire|set|turn|verse|winddir)|rindex|rmdir|s|scalar|seek(dir)?)\>" "\<(se(lect|mctl|mget|mop|nd|tpgrp|tpriority|tsockopt)|shift|shm(ctl|get|read|write)|shutdown|sin|sleep|socket(pair)?|sort|spli(ce|t)|sprintf|sqrt|srand|stat|study|substr|symlink|sys(call|read|tem|write)|tell(dir)?|time|tr(y)?|truncate|umask)\>" "\<(un(def|link|pack|shift)|utime|values|vec|wait(pid)?|wantarray|warn|write)\>"
color magenta "\<(continue|else|elsif|do|for|foreach|if|unless|until|while|eq|ne|lt|gt|le|ge|cmp|x|my|sub|use|package|can|isa)\>"
icolor cyan start="[$@%]" end="( |[^0-9A-Z_]|-)"
color yellow ""[^"]*"|'[^']*'|qq\|.*\|"
color white "[sm]/.*/"
color white start="(^use| = new)" end=";"
color green "#.*"
color yellow start="<< 'STOP'" end="STOP"

## Trailing spaces
color ,green "[[:space:]]+$"
First nanorc commit. 2010-07-29 00:15:43 +02:00			`## Here is an example for Perl.`
			`##`
Rename syntax definitions Duplicate syntax definition names may cause problems. Since nano comes with predefined all-lowercase syntax definitions, we use uppercase letters everywhere to reduce the risk of future conflicts 2016-03-02 20:49:58 +01:00			`syntax "Perl" "\.p[lm]$"`
Add header directives for perl and ruby, make the sh header directive more flexible, add header keyword to nanorc highlighting 2014-08-03 00:25:00 +02:00			`header "^#!.*/(env +)?perl( \|$)"`
* NanoRC Files: Copy linter and magic from nano 4.6 configs 2019-12-18 17:20:31 +01:00			`magic "Perl script"`
* Nanorc: Copy comment syntax from nano 4.6 nanorcs 2019-12-18 17:13:13 +01:00			`comment "#"`
Add header directives for perl and ruby, make the sh header directive more flexible, add header keyword to nanorc highlighting 2014-08-03 00:25:00 +02:00
First nanorc commit. 2010-07-29 00:15:43 +02:00			color red "\<(accept\|alarm\|atan2\|bin(d\|mode)\|c(aller\|h(dir\|mod\|op\|own\|root)\|lose(dir)?\|onnect\|os\|rypt)\|d(bm(close\|open)\|efined\|elete\|ie\|o\|ump)\|e(ach\|of\|val\|x(ec\|ists\|it\|p))\|f(cntl\|ileno\|lock\|ork))\>" "\<(get(c\|login\|peername\|pgrp\|ppid\|priority\|pwnam\|(host\|net\|proto\|serv)byname\|pwuid\|grgid\|(host\|net)byaddr\|protobynumber\|servbyport)\|([gs]et\|end)(pw\|gr\|host\|net\|proto\|serv)ent\|getsock(name\|opt)\|gmtime\|goto\|grep\|hex\|index\|int\|ioctl\|join)\>" "\<(keys\|kill\|last\|length\|link\|listen\|local(time)?\|log\|lstat\|m\|mkdir\|msg(ctl\|get\|snd\|rcv)\|next\|oct\|open(dir)?\|ord\|pack\|pipe\|pop\|printf?\|push\|q\|qq\|qx\|rand\|re(ad(dir\|link)?\|cv\|do\|name\|quire\|set\|turn\|verse\|winddir)\|rindex\|rmdir\|s\|scalar\|seek(dir)?)\>" "\<(se(lect\|mctl\|mget\|mop\|nd\|tpgrp\|tpriority\|tsockopt)\|shift\|shm(ctl\|get\|read\|write)\|shutdown\|sin\|sleep\|socket(pair)?\|sort\|spli(ce\|t)\|sprintf\|sqrt\|srand\|stat\|study\|substr\|symlink\|sys(call\|read\|tem\|write)\|tell(dir)?\|time\|tr(y)?\|truncate\|umask)\>" "\<(un(def\|link\|pack\|shift)\|utime\|values\|vec\|wait(pid)?\|wantarray\|warn\|write)\>"
			`color magenta "\<(continue\|else\|elsif\|do\|for\|foreach\|if\|unless\|until\|while\|eq\|ne\|lt\|gt\|le\|ge\|cmp\|x\|my\|sub\|use\|package\|can\|isa)\>"`
			`icolor cyan start="[$@%]" end="( \|[^0-9A-Z_]\|-)"`
perl.nanorc: added highlighting for 'text' and fixed "text".$nontext."more text" 2016-06-03 16:46:57 +02:00			`color yellow ""[^"]"\|'[^']'\|qq\\|.*\\|"`
First nanorc commit. 2010-07-29 00:15:43 +02:00			`color white "[sm]/.*/"`
			`color white start="(^use\| = new)" end=";"`
			`color green "#.*"`
			`color yellow start="<< 'STOP'" end="STOP"`
Color trailing whitespace green 2016-12-06 22:10:38 +01:00
			`## Trailing spaces`
			`color ,green "[[:space:]]+$"`