view release on metacpan or  search on metacpan

files/SHJS/sh_perl.js  view on Meta::CPAN

      /(?:m|qr)(?=\{)/g,
      'sh_keyword',
      2
    ],
    [
      /(?:m|qr)(?=#)/g,
      'sh_keyword',
      4
    ],
    [
      /(?:m|qr)(?=\|)/g,
      'sh_keyword',
      6
    ],
    [
      /(?:m|qr)(?=@)/g,
      'sh_keyword',
      8
    ],
    [
      /(?:m|qr)(?=<)/g,
      'sh_keyword',
      10
    ],
    [
      /(?:m|qr)(?=\[)/g,
      'sh_keyword',
      12
    ],
    [
      /(?:m|qr)(?=\\)/g,
      'sh_keyword',
      14
    ],
    [
      /(?:m|qr)(?=\/)/g,
      'sh_keyword',
      16
    ],
    [
      /"/g,
      'sh_string',
      18
    ],
    [
      /'/g,
      'sh_string',
      19
    ],
    [
      /</g,
      'sh_string',
      20
    ],
    [
      /\/[^\n]*\//g,
      'sh_string',
      -1
    ],
    [
      /\b(?:chomp|chop|chr|crypt|hex|i|index|lc|lcfirst|length|oct|ord|pack|q|qq|reverse|rindex|sprintf|substr|tr|uc|ucfirst|m|s|g|qw|abs|atan2|cos|exp|hex|int|log|oct|rand|sin|sqrt|srand|my|local|our|delete|each|exists|keys|values|pack|read|syscall|...
      'sh_keyword',
      -1
    ],
    [
      /^\=(?:head1|head2|item)/g,
      'sh_comment',
      21
    ],
    [
      /(?:\$[#]?|@|%)[\/A-Za-z0-9_]+/g,
      'sh_variable',
      -1
    ],
    [
      /~|!|%|\^|\*|\(|\)|-|\+|=|\[|\]|\\|:|;|,|\.|\/|\?|&|<|>|\|/g,
      'sh_symbol',
      -1
    ],
    [
      /\{|\}/g,
      'sh_cbracket',
      -1
    ],
    [
      /(?:[A-Za-z]|_)[A-Za-z0-9_]*(?=[ \t]*\()/g,
      'sh_function',
      -1
    ]
  ],
  [
    [
      /$/g,
      null,
      -2
    ]
  ],
  [
    [
      /\{/g,
      'sh_regexp',
      3
    ]
  ],
  [
    [
      /[ \t]+#.*/g,
      'sh_comment',
      -1
    ],
    [
      /\$(?:[A-Za-z0-9_]+|\{[A-Za-z0-9_]+\})/g,
      'sh_variable',
      -1
    ],
    [
      /\\\{|\\\}|\}/g,
      'sh_regexp',
      -3
    ]
  ],