<?php
/*************************************************************************************
 * perl.php
 * --------
 * Author: Andreas Gohr (andi@splitbrain.org)
 * Copyright: (c) 2004 Andreas Gohr - licensed under GPL (see below)
 * Release Version: 1.0.1
 * CVS Revision Version: $Version$
 * Date Started: 2004/08/20
 * Last Modified: $Date: $
 *
 * Perl language file for GeSHi.
 *
 * CHANGES
 * -------
 * 2004/08/20 (1.0.1)
 *   -  First Release
 *
 * TODO (updated 2004/08/20)
 * -------------------------
 * * LABEL:
 * * string comparison operators
 *
 *************************************************************************************
 *
 *     This file is part of GeSHi.
 *
 *   GeSHi is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   GeSHi is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with GeSHi; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 ************************************************************************************/

$language_data = array (
	'LANG_NAME' => 'Perl',
	'COMMENT_SINGLE' => array(1 => '#'),
	'COMMENT_MULTI' => array( '=pod' => '=cut'),
	'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
	'QUOTEMARKS' => array("'", '"'),
	'ESCAPE_CHAR' => '\\',
	'KEYWORDS' => array(
		1 => array(
			'case', 'do', 'else', 'elsif', 'for', 'if', 'then', 'until', 'while', 'foreach', 'my',
			'or', 'and', 'unless', 'next', 'last', 'redo', 'not',
      'reset', 'continue',
			),
		2 => array(
			'use', 'sub', 'new', '__END__', '__DATA__', '__DIE__', '__WARN__', 'BEGIN'
			),
		3 => array(
      "abs", "accept", "alarm", "atan2", "bind", "binmode", "bless",
      "caller", "chdir", "chmod", "chomp", "chop", "chown", "chr",
      "chroot", "close", "closedir", "connect", "continue", "cos",
      "crypt", "dbmclose", "dbmopen", "defined", "delete", "die", 
      "dump", "each", "endgrent", "endhostent", "endnetent", "endprotoent",
      "endpwent", "endservent", "eof", "eval", "exec", "exists", "exit",
      "exp", "fcntl", "fileno", "flock", "fork", "format", "formline",
      "getc", "getgrent", "getgrgid", "getgrnam", "gethostbyaddr",
      "gethostbyname", "gethostent", "getlogin", "getnetbyaddr", "getnetbyname",
      "getnetent", "getpeername", "getpgrp", "getppid", "getpriority",
      "getprotobyname", "getprotobynumber", "getprotoent", "getpwent",
      "getpwnam", "getpwuid", "getservbyname", "getservbyport", "getservent",
      "getsockname", "getsockopt", "glob", "gmtime", "goto", "grep",
      "hex", "import", "index", "int", "ioctl", "join", "keys", "kill",
      "last", "lc", "lcfirst", "length", "link", "listen", "local",
      "localtime", "log", "lstat", "m", "map", "mkdir", "msgctl", "msgget",
      "msgrcv", "msgsnd", "my", "next", "no", "oct", "open", "opendir",
      "ord", "our", "pack", "package", "pipe", "pop", "pos", "print",
      "printf", "prototype", "push", "q", "qq", "qr", "quotemeta", "qw",
      "qx", "rand", "read", "readdir", "readline", "readlink", "readpipe",
      "recv", "redo", "ref", "rename", "require", "return",
      "reverse", "rewinddir", "rindex", "rmdir", "s", "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",
      "study", "substr", "symlink", "syscall", "sysopen", "sysread",
      "sysseek", "system", "syswrite", "tell", "telldir", "tie", "tied",
      "time", "times", "tr", "truncate", "uc", "ucfirst", "umask", "undef",
      "unlink", "unpack", "unshift", "untie", "utime", "values",
      "vec", "wait", "waitpid", "wantarray", "warn", "write", "y"
			)
		),
	'SYMBOLS' => array(
		'(', ')', '[', ']', '!', '@', '%', '&', '*', '|', '/', '<', '>'
		),
	'CASE_SENSITIVE' => array(
		GESHI_COMMENTS => true,
		1 => true,
		2 => true,
		3 => true,
		),
	'STYLES' => array(
		'KEYWORDS' => array(
			1 => 'color: #b1b100;',
			2 => 'color: #000000; font-weight: bold;',
			3 => 'color: #000066;'
			),
		'COMMENTS' => array(
			1 => 'color: #808080; font-style: italic;',
			'MULTI' => 'color: #808080; font-style: italic;'
			),
		'ESCAPE_CHAR' => array(
			0 => 'color: #000099; font-weight: bold;'
			),
		'BRACKETS' => array(
			0 => 'color: #66cc66;'
			),
		'STRINGS' => array(
			0 => 'color: #ff0000;'
			),
		'NUMBERS' => array(
			0 => 'color: #cc66cc;'
			),
		'METHODS' => array(
			0 => 'color: #006600;'
			),
		'SYMBOLS' => array(
			0 => 'color: #66cc66;'
			),
		'REGEXPS' => array(
			0 => 'color: #0000ff;',
			4 => 'color: #009999;',
			),
		'SCRIPT' => array(
			)
		),
	'OOLANG' => true,
	'OBJECT_SPLITTER' => '->',
	'REGEXPS' => array(
		0 => "[\\$%@]+[a-zA-Z_][a-zA-Z0-9_]*",
		4 => "&lt;[a-zA-Z_][a-zA-Z0-9_]*&gt;",
		),
	'STRICT_MODE_APPLIES' => GESHI_NEVER,
	'SCRIPT_DELIMITERS' => array(
		),
	'HIGHLIGHT_STRICT_BLOCK' => array(
		)
);

?>