[Nano-devel] Perl Syntax Highlighting

[Richard Smith]

Here's a rough Perl syntax highlighting block for the .nanorc. It's not 
perfect because a lot of perl's built-in functions have such small 
names, but it works well with my coding style and the 4000 line bit of 
code I've been testing it on. The magenta line is there for 
completeness sake, it looks better without it. Hopefully this will act 
as a starter for somebody willing to clean it up.


syntax "perl" ".*\.pl$" ".*\.pm$"
color red " accept" " alarm" " atan2" " bind" " binmode" " caller" " 
chdir" " chmod" " chop" " chown" " chroot" " close" " closedir" " 
connect" " cos" " crypt" " dbmclose" " dbmopen" " defined"
color red " delete" " die" " do" " dump" " \<each\>" " eof" " eval" " 
exec" " exists" " exit" " exp" " fcntl" " fileno" " flock" " fork" " 
getc" " getlogin" " getpeername" " getpgrp" " getppid"
color red " getpriority" " getpwnam" " gethostbyname" " getnetbyname" " 
getprotobyname" " getpwuid" " getgrgid" " getservbyname" " 
gethostbyaddr" " getnetbyaddr" " getprotobynumber"
color red " getservbyport" " getpwent" " getgrent" " gethostent" " 
getnetent" " getprotoent" " getservent" " setpwent" " setgrent" " 
sethostent" " setnetent" " setprotoent" " setservent"
color red " endpwent" " endgrent" " endhostent" " endnetent" " 
endprotoent" " endservent" " getsockname" " getsockopt" " gmtime" " 
goto" " grep" " hex" " index" " int" " ioctl" " join" " keys"
color red " kill" " last" " length" " link" " listen" " local" " 
localtime" " log" " lstat" " m" " mkdir" " msgctl" " msgget" " msgsnd" 
" msgrcv" " next" " oct" " open" " opendir" " ord" " pack"
color red " pipe" " pop" " print" " printf" " push" " q" " qq" " qx" " 
rand" " read" " readdir" " readlink" " recv" " redo" " rename" " 
require" " reset" " return" " reverse" " rewinddir" " rindex"
color red " rmdir" " \<s\>" " scalar" " seek" " seekdir" " select" " 
semctl" " semget" " semop" " send" " setpgrp" " setpriority" " 
setsockopt" " shift" " shmctl" " shmget" " shmread" " shmwrite"
color red " shutdown" " sin" " sleep" " socket" " socketpair" " sort" " 
splice" " split" " sprintf" " sqrt" " srand" " stat" " study" " substr" 
" symlink" " syscall" " sysread" " system"
color red " syswrite" " tell" " telldir" " time" " tr" " y" " truncate" 
" umask" " undef" " unlink" " unpack" " unshift" " utime" " values" " 
vec" " wait" " waitpid" " 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"
color cyan start="(\$|@|%)" end="( |\W|-)"
color yellow "".*""
color yellow "qq\|.*\|"
color white "s\/.*\/"
color white "m\/.*\/"
color white start="^use" end=";"
color white start=" = new" end=";"
color green "\#.*"
color yellow start="<< 'STOP'" end="STOP"



Richard Smith
address@hidden

- Chatbear - free messageboards, amazing customisation.
- http://www.chatbear.com/