Файловый менеджер - Редактировать - /opt/imh-python/lib/python3.9/site-packages/pygments/lexers/__pycache__/perl.cpython-39.pyc
Ðазад
a a�h� � @ s� d Z ddlZddlmZmZmZmZmZmZm Z m Z ddlmZm Z mZmZmZmZmZmZmZ ddlmZ ddgZG dd� de�ZG d d� de�ZdS ) z� pygments.lexers.perl ~~~~~~~~~~~~~~~~~~~~ Lexers for Perl, Raku and related languages. :copyright: Copyright 2006-2025 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� Whitespace)�shebang_matches� PerlLexer� Perl6Lexerc 4 @ s� e Zd ZdZdZdZddgZg d�ZddgZd Z e je jB Z d ejdfdejdfd ejdfdejdfdejdfdejdfdejdfdejdfdejdfdejdfg dejfdejfdejfeddd�efdeeeeeee�dfdejfdejfdejfd ejfd!ejfd"ejfd#ejd$fd%ejd$fd&ejd$fd'ejd$fd(ejfd)ejd$fd*ejfd+efed,dd�ejfd-ejjfd.eeeejeeje�fd/ejd0fd1ej j!fd2ej j!fd3ej d4fd5e"j#fd6e"j$fd7e"j%fd8e"j&fd9e"j&fd:e"j'fd;efd<efd=ej(fd>ejfd?ej)d@fdAej)dBfdCej)dDfdEej)dFfdGej)fdHeeeej*�fdIeeeej*�fdJeee�dKfedLdd�efdMefdNefdOefdPedQfg1dRej+dfdSej+fgd+efdTedfdUedfdVej*fdWej dfgdXej*dfdYej*dfdWedfdZej,dfd[e-dfgd\ej.fd+efd]eee�fd^edfd_edfgd`ej)fdaej)fdTej)d@fdbej)dfdcej)fgddej)fdaej)fdeej)dBfdfej)dfdgej)fgdhej)fdaej)fdiej)dDfdjej)dfdkej)fgdlej)fdaej)fdmej)dFfdnej)dfdoej)fgdpejdfgdq�Z/drds� Z0dtS )ur z For Perl source code. �Perlzhttps://www.perl.org�perl�pl)�*.pl�*.pm�*.tz*.perlztext/x-perlzapplication/x-perl� z"/(\\\\|\\[^\\]|[^\\/])*/[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�forZforeach�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�bindZbinmode�blessZcaller�chdir�chmod�chomp�chop�chown�chr�chroot�closeZclosedir�connectr �cosZcryptZdbmcloseZdbmopen�defined�delete�die�dumpZeachZendgrentZ endhostentZ endnetentZendprotoentZendpwentZ endservent�eof�eval�exec�exists�exit�expZfcntl�filenoZflock�forkr8 Zformline�getcZgetgrent�getgrgid�getgrnam� gethostbyaddr� gethostbynameZ gethostent�getloginZgetnetbyaddrZgetnetbynameZ getnetent�getpeername�getpgrp�getppid�getpriority�getprotobynameZgetprotobynumberZgetprotoentZgetpwent�getpwnam�getpwuid� getservbyname� getservbyportZ getservent�getsockname� getsockopt�glob�gmtimeZgoto�grep�hex�import�index�intZioctl�join�keys�killr% �lcZlcfirst�length�link�listen�local� localtime�log�lstat�map�mkdirZmsgctlZmsggetZmsgrcvZmsgsndr&