2021-03-10 11:35:00 -05:00
|
|
|
hljs.registerLanguage("perl",(()=>{"use strict";function e(e){
|
|
|
|
|
return e?"string"==typeof e?e:e.source:null}function n(...n){
|
|
|
|
|
return n.map((n=>e(n))).join("")}function t(...n){
|
|
|
|
|
return"("+n.map((n=>e(n))).join("|")+")"}return e=>{
|
|
|
|
|
const r=/[dualxmsipngr]{0,12}/,s={$pattern:/[\w.]+/,
|
|
|
|
|
keyword:"abs accept alarm and atan2 bind binmode bless break caller chdir chmod chomp chop chown chr chroot close closedir connect continue cos crypt dbmclose dbmopen defined delete die do dump each else elsif endgrent endhostent endnetent endprotoent endpwent endservent eof eval exec exists exit exp fcntl fileno flock for foreach fork format formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername getpgrp getpriority getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname getservbyport getservent getsockname getsockopt given glob gmtime goto grep gt hex if index int ioctl join keys kill last lc lcfirst length link listen local localtime log lstat lt ma map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct open opendir or ord our pack package pipe pop pos print printf prototype push q|0 qq quotemeta qw qx rand read readdir readline readlink readpipe recv redo ref rename require reset return reverse rewinddir rindex rmdir say 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 state study sub substr symlink syscall sysopen sysread sysseek system syswrite tell telldir tie tied time times tr truncate uc ucfirst umask undef unless unlink unpack unshift untie until use utime values vec wait waitpid wantarray warn when while write x|0 xor y|0"
|
|
|
|
|
},i={className:"subst",begin:"[$@]\\{",end:"\\}",keywords:s},a={begin:/->\{/,
|
|
|
|
|
end:/\}/},o={variants:[{begin:/\$\d/},{
|
|
|
|
|
begin:n(/[$%@](\^\w\b|#\w+(::\w+)*|\{\w+\}|\w+(::\w*)*)/,"(?![A-Za-z])(?![@$%])")
|
|
|
|
|
},{begin:/[$%@][^\s\w{]/,relevance:0}]
|
|
|
|
|
},c=[e.BACKSLASH_ESCAPE,i,o],g=[/!/,/\//,/\|/,/\?/,/'/,/"/,/#/],l=(e,t,s="\\1")=>{
|
|
|
|
|
const i="\\1"===s?s:n(s,t)
|
|
|
|
|
;return n(n("(?:",e,")"),t,/(?:\\.|[^\\\/])*?/,i,/(?:\\.|[^\\\/])*?/,s,r)
|
|
|
|
|
},d=(e,t,s)=>n(n("(?:",e,")"),t,/(?:\\.|[^\\\/])*?/,s,r),p=[o,e.HASH_COMMENT_MODE,e.COMMENT(/^=\w/,/=cut/,{
|
|
|
|
|
endsWithParent:!0}),a,{className:"string",contains:c,variants:[{
|
|
|
|
|
begin:"q[qwxr]?\\s*\\(",end:"\\)",relevance:5},{begin:"q[qwxr]?\\s*\\[",
|
|
|
|
|
end:"\\]",relevance:5},{begin:"q[qwxr]?\\s*\\{",end:"\\}",relevance:5},{
|
|
|
|
|
begin:"q[qwxr]?\\s*\\|",end:"\\|",relevance:5},{begin:"q[qwxr]?\\s*<",end:">",
|
|
|
|
|
relevance:5},{begin:"qw\\s+q",end:"q",relevance:5},{begin:"'",end:"'",
|
|
|
|
|
contains:[e.BACKSLASH_ESCAPE]},{begin:'"',end:'"'},{begin:"`",end:"`",
|
|
|
|
|
contains:[e.BACKSLASH_ESCAPE]},{begin:/\{\w+\}/,relevance:0},{
|
|
|
|
|
begin:"-?\\w+\\s*=>",relevance:0}]},{className:"number",
|
|
|
|
|
begin:"(\\b0[0-7_]+)|(\\b0x[0-9a-fA-F_]+)|(\\b[1-9][0-9_]*(\\.[0-9_]+)?)|[0_]\\b",
|
|
|
|
|
relevance:0},{
|
|
|
|
|
begin:"(\\/\\/|"+e.RE_STARTERS_RE+"|\\b(split|return|print|reverse|grep)\\b)\\s*",
|
|
|
|
|
keywords:"split return print reverse grep",relevance:0,
|
|
|
|
|
contains:[e.HASH_COMMENT_MODE,{className:"regexp",variants:[{
|
|
|
|
|
begin:l("s|tr|y",t(...g))},{begin:l("s|tr|y","\\(","\\)")},{
|
|
|
|
|
begin:l("s|tr|y","\\[","\\]")},{begin:l("s|tr|y","\\{","\\}")}],relevance:2},{
|
|
|
|
|
className:"regexp",variants:[{begin:/(m|qr)\/\//,relevance:0},{
|
|
|
|
|
begin:d("(?:m|qr)?",/\//,/\//)},{begin:d("m|qr",t(...g),/\1/)},{
|
|
|
|
|
begin:d("m|qr",/\(/,/\)/)},{begin:d("m|qr",/\[/,/\]/)},{
|
|
|
|
|
begin:d("m|qr",/\{/,/\}/)}]}]},{className:"function",beginKeywords:"sub",
|
|
|
|
|
end:"(\\s*\\(.*?\\))?[;{]",excludeEnd:!0,relevance:5,contains:[e.TITLE_MODE]},{
|
|
|
|
|
begin:"-\\w\\b",relevance:0},{begin:"^__DATA__$",end:"^__END__$",
|
|
|
|
|
subLanguage:"mojolicious",contains:[{begin:"^@@.*",end:"$",className:"comment"}]
|
|
|
|
|
}];return i.contains=p,a.contains=p,{name:"Perl",aliases:["pl","pm"],keywords:s,
|
|
|
|
|
contains:p}}})());
|
