This commit is contained in:
root
2019-08-30 19:30:19 +02:00
commit 6f2b105ca0
595 changed files with 78405 additions and 0 deletions

10
langs/perl/compile.txt Normal file
View File

@ -0,0 +1,10 @@
__DATA__
__WARN__
__END__
__DIE__
ARGVOUT
STDOUT
STDERR
BEGIN
STDIN
ARGV

22
langs/perl/perl.txt Normal file
View File

@ -0,0 +1,22 @@
### PERL LANGUAGE ###
# ELEMENT_NAME [optional-css-class] REGULAR_EXPRESSION
NAME Perl
VERSION 1.9.2
COMMENT (?default)|(\#.*?$)
STRING (?default)|(<<<EOT.*?^EOT)
REGEX:PREPROCESSOR \b\w*/([^\r\n]|(?<=\\)/)+/\w*\b
TAG <\?php|<\?|\?>
STATEMENT \b(?alt:statement.txt)\b
RESERVED \b(?alt:reserved.txt)\b
COMPILE:CONSTANT \b(?alt:compile.txt)\b
ENTITY (?default)|\b[a-z_]\w*(::|->)
VARIABLE (\$|%)[a-z_]\w*\b
IDENTIFIER \b[a-z_]\w*\b\s*(?=\([^\)]*\))
CONSTANT \b[a-z_]\w*\b
OPERATOR (?default)
SYMBOL (?default)

206
langs/perl/reserved.txt Normal file
View File

@ -0,0 +1,206 @@
getprotobynumber
getprotobyname
gethostbyaddr
gethostbyname
getservbyname
getservbyport
getnetbyaddr
getnetbyname
endprotoent
getpeername
getpriority
getprotoent
getsockname
setpriority
setprotoent
endhostent
endservent
gethostent
getservent
getsockopt
sethostent
setservent
setsockopt
socketpair
endnetent
getnetent
localtime
prototype
quotemeta
rewinddir
setnetent
wantarray
closedir
dbmclose
endgrent
endpwent
formline
getgrent
getgrgid
getgrnam
getlogin
getpwent
getpwnam
getpwuid
readline
readlink
readpipe
setgrent
setpwent
shmwrite
shutdown
syswrite
truncate
binmode
connect
dbmopen
defined
getpgrp
getppid
lcfirst
opendir
package
readdir
require
reverse
seekdir
setpgrp
shmread
sprintf
symlink
syscall
sysopen
sysread
sysseek
telldir
ucfirst
unshift
waitpid
accept
caller
chroot
delete
exists
fileno
format
gmtime
import
length
listen
msgctl
msgget
msgrcv
msgsnd
printf
rename
return
rindex
scalar
select
semctl
semget
shmctl
shmget
socket
splice
substr
system
unlink
unpack
values
alarm
atan2
bless
chdir
chmod
chomp
chown
close
crypt
fcntl
flock
index
ioctl
local
lstat
mkdir
print
rmdir
semop
shift
sleep
split
srand
study
times
umask
undef
untie
utime
write
bind
chop
dump
each
eval
exec
exit
fork
getc
glob
goto
grep
join
keys
kill
link
open
pack
pipe
push
rand
read
recv
seek
send
sort
sqrt
stat
tell
tied
time
wait
warn
abs
chr
cos
die
eof
exp
hex
int
log
map
oct
ord
pop
pos
ref
sin
tie
vec
use
sub
new
lc
no
qq
qr
qw
qx
tr
uc
m
q
s
y

29
langs/perl/statement.txt Normal file
View File

@ -0,0 +1,29 @@
continue
foreach
unless
elsif
until
while
reset
case
else
then
next
last
redo
for
xor
and
not
our
cmp
do
if
my
or
ne
eq
lt
gt
le
ge