perl.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Perl" Extensions="pl pm cgi" Version="1" Revision="0" Sample="#!/bin/perl
require &quot;cgi-lib.pl&quot;;
use sigtrap;
do 'envars.pl';
$_ = $password1;
sub WriteBack {
        while ($_ ne &quot;fred&quot;)    {
                sleep 5;
        }
}

" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="SyntaxColoring" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
			<SubRules>
				<Range Name="Remark" Style="Remark">
					<Attributes Foreground="$00A00000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="#"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings" Style="Strings">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings" Style="Strings">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="'" Close="'"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="$" Style="$">
					<Attributes Foreground="clPurple" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="$"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="hex
rindex
stat
accept
exists
while
xor
warn
eof
join
msgrcv
if
rmdir
endhostent
setsockopt
CHECK
for
chroot
bless
ord
return
link
FETCHSIZE
study
no
kill
getsockopt
closedir
semget
ge
lc
CLOSE
undef
VERSION
PRINT
next
strict
STORESIZE
dbmclose
getservbyname
tell
telldir
import
setnetent
STDERR
untie
waitpid
getpwuid
splice
getpeername
getservbyport
gethostbyaddr
socketpair
reverse
truncate
gethostbyname
charnames
rand
atan2
gmtime
crypt
endpwent
pipe
eq
semop
getprotoent
GETC
package
sigtrap
index
getprotobynumber
sin
each
PUSH
quotemeta
msgsnd
BEGIN
endprotoent
WRITE
local
time
semctl
redo
fileno
scalar
getnetbyaddr
getnetbyname
overload
chr
oct
wait
or
lstat
endservent
setprotoent
cos
printf
shift
setgrent
eval
ucfirst
chdir
elsif
dump
sqrt
bind
defined
rename
END
unlink
last
use
map
syswrite
umask
format
log
sort
POP
getpgrp
autouse
fcntl
goto
listen
else
getgrnam
continue
readdir
getc
split
recv
system
isa
EXTEND
DELETE
seekdir
gt
push
getpwent
pos
utime
STDOUT
open
uc
send
setpwent
srand
symlink
setservent
delete
values
substr
unless
readlink
READ
getpwnam
PRINTF
new
SHIFT
keys
shmwrite
reset
lcfirst
rewinddir
Exporter
exec
fork
getgrent
vec
can
lt
syscall
binmode
getsockname
wantarray
ops
glob
sub
getservent
FIRSTKEY
shmctl
chown
TIEHASH
TIESCALAR
constant
msgget
READLINE
flock
length
alarm
ioctl
FETCH
socket
exit
subs
pack
read
grep
opendir
DATA
write
caller
formline
sprintf
SPLICE
vmsish
die
ne
integer
blib
chmod
mkdir
sleep
getprotobyname
endnetent
getgrgid
cmp
unpack
STORE
fields
TIEARRAY
UNSHIFT
INIT
vars
print
CLEAR
close
abs
endgrent
localtime
foreach
tie
sethostent
times
getppid
do
require
chop
getnetent
dbmopen
DESTROY
TIEHANDLE
base
shmread
setpgrp
chomp
diagnostics
getpriority
NEXTKEY
pop
connect
msgctl
ref
int
AUTOLOAD
unshift
shmget
locale
shutdown
less
EXISTS
gethostent
le
seek
sysread
not
and
my
exp
select
setpriority
STDIN
getlogin
-A
-B
-C
-M
-O
-R
-S
-T
-W
-X
-b
-c
-d
-e
-f
-g
-k
-l
-o
-p
-r
-s
-t
-u
-w
-x
-z
__DATA__
__END__
__FILE__
__LINE__
our
until
getgrname
readline
semgett
tied
CORE
m
q
qq
qw
qx
SUPER
s
tr
UNIVERSAL
x
y
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Var" Enabled="True" Style="" Words="ARG
ERRNO
FORMAT_LINE_BREAK_CHARACTERS
GID
OFS
MULTILINE_MATCHING
FORMAT_NAME
UID
PID
EXECUTABLE_NAME
INPUT_RECORD_SEPARATOR
COMPILING
EXTENDED_OS_ERROR
MATCH
SUBSCRIPT_SEPARATOR
POSTMATCH
INPUT_LINE_NUMBER
EFFECTIVE_GROUP_ID
FORMAT_LINES_PER_PAGE
OUTPUT_FIELD_SEPARATOR
ARGV
OS_ERROR
OUTPUT_AUTOFLUSH
DEBUGGING
RS
PROGRAM_NAME
PERLDB
EGID
OUTPUT_RECORD_SEPARATOR
EVAL_ERROR
REAL_USER_ID
PERL_VERSION
EUID
REAL_GROUP_ID
OFMT
SYSTEM_FD_MAX
PROCESS_ID
FORMAT_TOP_NAME
LIST_SEPARATOR
LAST_PAREN_MATCH
FORMAT_FORMFEED
FORMAT_LINES_LEFT
SUBSEP
ACCUMULATOR
OSNAME
FORMAT_PAGE_NUMBER
INPLACE_EDITORS
WARNING
NR
BASETIME
CHILD_ERROR
PREMATCH
EFFECTIVE_USER_ID
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Params" Enabled="True" Style="" Words="">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="@" Enabled="True" Style="" Words="$@
@
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding>
		<FoldRegion Name="{..}" Type="1">
			<OpenToken Symbol="{"/>
			<CloseToken Symbol="}"/>
			<Properties/>
			<SubRegions/>
		</FoldRegion>
	</CodeFolding>
	<CustomData/>
</SynUniHighlighter>