Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/pygments/lexers/__pycache__/ |
Upload File : |
o ���a�� � @ s� d Z ddlZddlmZmZmZmZmZmZm Z m Z ddlmZm Z mZmZmZmZmZmZ ddlmZ ddgZG dd� de�ZG d d� de�ZdS ) z� pygments.lexers.perl ~~~~~~~~~~~~~~~~~~~~ Lexers for Perl, Raku and related languages. :copyright: Copyright 2006-2021 by the Pygments team, see AUTHORS. :license: BSD, see LICENSE for details. � N)� RegexLexer�ExtendedRegexLexer�include�bygroups�using�this�default�words)�Text�Comment�Operator�Keyword�Name�String�Number�Punctuation)�shebang_matches� PerlLexer� Perl6Lexerc @ sN e Zd ZdZdZddgZg d�ZddgZej ej B Zdej d fd ej d fdej d fdej d fd ej d fdej d fdej d fdej d fdej d fdej d fg g dejf�dejf�dejf�eddd�ef�deeeeeee�df�dejf�dej f�dej f�dej f�dej f�d ej f�d!ej d"f�d#ej d"f�d$ej d"f�d%ej d"f�d&ej f�d'ej d"f�d(ej f�d)ef�ed*dd�ejf�d+ejjf�d,eeeejeeje�f�d-ejd.f�d/ejjf�d0ejjf�d1ejd2f�d3e j!f�d4e j"f�d5e j#f�d6e j$f�d7e j$f�d8e j%f�d9ef�d:ef�d;ej&f�d<ej f�d=ej'd>f�d?ej'd@f�dAej'dBf�dCej'dDf�dEej'f�dFeeeej(�f�dGeeeej(�f�dHeee�dIf�edJdd�ef�dKef�dLef�dMef�dNedOf�dPej)d fdQej)fgd)efdRed fdSed fdTej(fdUejd fgdVej(d fdWej(d fdUed fdXej*d fdYed fgdZej+fd)efd[eee�fd\ed fd]ed fgd^ej'fd_ej'fdRej'd>fd`ej'd fdaej'fgdbej'fd_ej'fdcej'd@fddej'd fdeej'fgdfej'fd_ej'fdgej'dBfdhej'd fdiej'fgdjej'fd_ej'fdkej'dDfdlej'd fdmej'fgdnejd fgdo�Z,dpdq� Z-drS )sr z9 For `Perl <https://www.perl.org>`_ source code. �Perl�perl�pl)�*.pl�*.pm�*.tz*.perlztext/x-perlzapplication/x-perlz"/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*�#popz"!(\\\\|\\[^\\]|[^\\!])*![egimosx]*z\\(\\\\|[^\\])*\\[egimosx]*z$\{(\\\\|\\[^\\]|[^\\}])*\}[egimosx]*z"<(\\\\|\\[^\\]|[^\\>])*>[egimosx]*z%\[(\\\\|\\[^\\]|[^\\\]])*\][egimosx]*z$\((\\\\|\\[^\\]|[^\\)])*\)[egimosx]*z"@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z"%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*z$\$(\\\\|\\[^\\]|[^\\$])*\$[egimosx]*z \A\#!.+?$z\#.*?$z^=[a-zA-Z0-9]+\s+.*?\n=cut)�case�continue�do�else�elsif�for�foreach�if�last�my�next�our�redo�reset�then�unless�until�while�print�new�BEGIN�CHECK�INIT�END�returnz\b��suffixz!(format)(\s+)(\w+)(\s*)(=)(\s*\n)�formatz$(eq|lt|gt|le|ge|ne|not|and|or|cmp)\bz:s/(\\\\|\\[^\\]|[^\\/])*/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*z.s!(\\\\|\\!|[^!])*!(\\\\|\\!|[^!])*![egimosx]*z+s\\(\\\\|[^\\])*\\(\\\\|[^\\])*\\[egimosx]*z:s@(\\\\|\\[^\\]|[^\\@])*@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*z:s%(\\\\|\\[^\\]|[^\\%])*%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*zs\{(\\\\|\\[^\\]|[^\\}])*\}\s*�balanced-regexzs<(\\\\|\\[^\\]|[^\\>])*>\s*zs\[(\\\\|\\[^\\]|[^\\\]])*\]\s*zs\((\\\\|\\[^\\]|[^\\)])*\)\s*z&m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*zm(?=[/!\\{<\[(@%$])z6((?<==~)|(?<=\())\s*/(\\\\|\\[^\\]|[^\\/])*/[gcimosx]*z\s+)��abs�accept�alarm�atan2�bind�binmode�bless�caller�chdir�chmod�chomp�chop�chown�chr�chroot�close�closedir�connectr �cos�crypt�dbmclose�dbmopen�defined�delete�die�dump�each�endgrent� endhostent� endnetent�endprotoent�endpwent� endservent�eof�eval�exec�exists�exit�exp�fcntl�fileno�flock�forkr7 �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�killr$ �lc�lcfirst�length�link�listen�local� localtime�log�lstat�map�mkdir�msgctl�msgget�msgrcv�msgsndr% r&