有时我需要在终端上使用 ne 漂亮的编辑器来修改Perl文件。
我找不到一种方法来突出显示Perl变量（以 $ ， @ 或％开头的任何内容）完全没有。
语法定义文件非常复杂，对文件语法的了解非常有限，因此对其进行破解会使我无所适从。
也：我想使用比红色/蓝色/黄色/绿色/青色/品红色/白色/黑色更多的颜色，但也没有找到使用RGB语法的方法。
注意：我的终端机模拟器支持256种颜色。
任何指针表示赞赏。
我在Perl语法def文件内容下面粘贴：我尝试使用各种RGB语法（盲目的，因为我找不到明确的规范，或者根本不可能）：#rrggbb，@rrggbb ，％rrggbb等。用于颜色部分。
关于检测变量：该文件清楚地为变量拼出了一种颜色（“ =品红色”）。这适用于其他语言，我可以成功地使用可变颜色并突出显示变量。
但是在Perl文件上，无论使用哪种颜色，都会进行零变量检测。应该有一种方法可以强制变量以$ / @ /％开头，但是我什至不知道从哪里开始指定此值...
该行下面的Perl的Def文件。与其他语言的语法文件相比，这令人费解。我想这就是我的问题：太复杂了，难以破解。
# JOE syntax highlight file for Perl
# Define colors
=Idle
=Preproc blue
=Comment dim yellow
=POD green
=Constant green
=String green
=Escape bold green
=Type bold
=Keyword bold blue
=Bad bold red
=Var magenta
:begin Idle
* begin noeat call=.perl()
#
# Perl as a subroutine for Mason
#
.subr perl
# Detect pod
:idle Idle
* idle1 noeat
.ifdef mason_line
"\n" idle return
.else
"\n" idle
.endif
"=" pod_start
# allow keywords
:idle1 Idle
* idle1
"#" line_comment_i recolor=-1
"\n" idle noeat
"0" first_digit recolor=-1
"1-9" decimal recolor=-1
"." maybe_float
"\"" string recolor=-1
"'" char recolor=-1
"`" backtick recolor=-1
"<" maybe_inc
"$" not_string buffer
.ifdef mason_block
"&%" perl_maybe_done buffer
"-a-zA-Z_@" ident buffer
.else
"/" regex recolor=-1
"-a-zA-Z_@%&" ident buffer
.endif
:perl_maybe_done Idle
* ident noeat
">" idle1 recolor=-2 return
# prevent keywords
:rest Idle
* rest
"({;~" idle1
"#" line_comment recolor=-1
"\n" idle noeat
"0" first_digit recolor=-1
"1-9" decimal recolor=-1
"." maybe_float
"\"" string recolor=-1
"'" char recolor=-1
"`" backtick recolor=-1
"$" not_string buffer
"<" maybe_inc
.ifdef mason_block
"&%" perl_maybe_done buffer
"a-zA-Z_@" maybe_string buffer
.else
"a-zA-Z_@%&" maybe_string buffer
.endif
:pod_start Idle
* pod_start
"\n" pod_block
:pod_block POD
* pod_block
"=" pod_ident buffer
:pod_ident POD
* pod_block noeat strings
"=cut" rest
done
"a-zA-Z0-9_" pod_ident
:maybe_inc Idle
* rest noeat
.ifdef mason_block
"/" perl_maybe_done_2
.endif
"<" maybe_inc1
:perl_maybe_done_2 Idle
* perl_idle noeat
"a-z" perl_maybe_done_2
">" idle
:maybe_inc1 Idle
* rest noeat
" " maybe_inc1
"'\"" quoted_inc_start save_c recolor=-1
"A-Za-z_" inc buffer noeat
:quoted_inc_start Var
* quoted_inc buffer
:quoted_inc Var
* quoted_inc
& skipline save_s
:inc Var
* skipline save_s noeat
"A-Za-z0-9_" inc
# Should be treated as a normal line here...
:skipline Idle
* skipline
"\n" next_line
:todelim Constant
* todelim
"\n" next_line strings
"&" founddelim
done
# eat \n so it's not in string.
:next_line Constant
* todelim buffer
"\n" next_line
:founddelim Var
* idle noeat
:regex Constant
* regex
"\\" regex_quote recolor=-1
"/" rest
:regex_quote Escape
* regex
:not_string Idle
* rest noeat
"A-Za-z_" ident
"\"'`#" rest
:line_comment Comment
* line_comment
"\n" rest
:line_comment_i Comment
* line_comment_i
"\n" idle noeat
:end_of_file_comment Comment
* end_of_file_comment
:first_digit Constant
* rest noeat
"x" hex
"b" binary
"b" binary
"." float
"eE" epart
"0-7" octal
"89" bad_number recolor=-1
:bad_number Bad
* rest noeat
"0-9" bad_number
:octal Constant
* rest noeat
"0-7_" octal
"89" bad_number recolor=-1
:binary Constant
* rest noeat
"01_" binary
"2-9" bad_number recolor=-1
:hex Constant
* rest noeat
"0-9A-Fa-f_" hex
:decimal Constant
* rest noeat
"0-9_" decimal
"eE" epart
"." float
:maybe_float Constant
* rest recolor=-2 noeat
"0-9" float recolor=-2
:float Constant
* rest noeat
"eE" epart
"0-9_" float
:epart Constant
* rest noeat
"0-9+\-" enum
:enum Constant
* rest noeat
"0-9_" enum
:string Constant
* string
"\"" rest
"\\" string_escape recolor=-1
"$@" string_subst recolor=-1
:string_subst Escape
* string noeat recolor=-1
"a-zA-Z_0-9" string_subst
:string_escape Escape
* string
"x" string_hex1
"c" string_ctrl
"N" string_named
"0-7" string_octal2
"\n" string recolor=-2
:string_named Escape
* string
"{" string_named_rest
:string_named_rest Escape
* string_named_rest
"}" string
:string_ctrl Escape
* string
:string_hex1 Escape
* string noeat
"{" string_unicode
"0-9a-fA-F" string_hex2
:string_unicode Escape
* string_unicode
"}" string
:string_hex2 Escape
* string noeat
"0-9a-fA-F" string
:string_octal2 Escape
* string noeat
"0-7" string_octal3
:string_octal3 Escape
* string noeat
"0-7" string
:char Constant
* char
# "\n" idle noeat
"'" rest
"\\" char_escape recolor=-1
:char_escape Escape
* char recolor=-2
"\\'" char
:backtick Constant
* backtick
"`" rest
"\\" backtick_escape recolor=-1
"$@" backtick_subst recolor=-1
:backtick_subst Escape
* backtick noeat recolor=-1
"a-zA-Z_0-9" backtick_subst
:backtick_escape Escape
* backtick
"x" backtick_hex1
"c" backtick_ctrl
"N" backtick_named
"0-7" backtick_octal2
"\n" backtick recolor=-2
:backtick_named Escape
* backtick
"{" backtick_named_rest
:backtick_named_rest Escape
* backtick_named_rest
"}" backtick
:backtick_ctrl Escape
* backtick
:backtick_hex1 Escape
* backtick noeat
"{" backtick_unicode
"0-9a-fA-F" backtick_hex2
:backtick_unicode Escape
* backtick_unicode
"}" backtick
:backtick_hex2 Escape
* backtick noeat
"0-9a-fA-F" backtick
:backtick_octal2 Escape
* backtick noeat
"0-7" backtick_octal3
:backtick_octal3 Escape
* backtick noeat
"0-7" backtick
:ident Idle
* rest noeat strings
"BEGIN" kw
"END" kw
"if" kw
"unless" kw
"while" kw
"until" kw
"foreach" kw
"sub" kw
"my" kw
"our" kw
"do" kw
"if" kw
"else" kw
"elsif" kw
"for" kw
"continue" kw
"last" kw
"print" kw
"reset" kw
"die" kw
"goto" kw
"require" kw
"use" kw
"eval" kw
"redo" kw
"next" kw
"warn" kw
"return" kw
"printf" kw
"close" kw
"package" kw
"m" match
"qr" match
"qq" match
"qx" match
"qw" match
"q" match
"s" subst
"tr" subst
"y" subst
"__END__" end_of_file_comment
"__DATA__" end_of_file_comment
done
"a-zA-Z0-9_" ident
:maybe_string Idle
* rest noeat strings
"qr" match
"qq" match
"qx" match
"qw" match
"q" match
done
"a-zA-Z0-9_" maybe_string
:type Type
* rest noeat
:kw Keyword
* rest noeat
:match Idle
* inmatch save_c recolor=-1
" " match
:inmatch Constant
* inmatch
& rest
"\\" inmatch_quote recolor=-1
:inmatch_quote Escape
* inmatch
:subst Idle
* insubst save_c recolor=-1
"<([{`" delim_insubst save_c recolor=-1
" " subst
:insubst Constant
* insubst
& inrepl
"\\" insubst_quote recolor=-1
:insubst_quote Escape
* insubst
:inrepl Constant
* inrepl
& rest
"\\" inrepl_quote
:inrepl_quote Escape
* inrepl
:delim_insubst Constant
* delim_insubst
& delim_repl
"\\" delim_quote
:delim_quote Escape
* delim_insubst
:delim_repl Constant
* repl save_c recolor=-1
" " delim_repl
L: 441 C: 1 97% i-----pvurT------@A perl.jsf
* inmatch
:subst Idle
* insubst save_c recolor=-1
"<([{`" delim_insubst save_c recolor=-1
" " subst
:insubst Constant
* insubst
& inrepl
"\\" insubst_quote recolor=-1
:insubst_quote Escape
* insubst
:inrepl Constant
* inrepl
& rest
"\\" inrepl_quote
:inrepl_quote Escape
* inrepl
:delim_insubst Constant
* delim_insubst
& delim_repl
"\\" delim_quote
:delim_quote Escape
* delim_insubst
:delim_repl Constant
* repl save_c recolor=-1
" " delim_repl
:repl Constant
* repl
& rest
"\\" repl_quote
:repl_quote Escape
* repl
.end