view release on metacpan or  search on metacpan

t/data_shishin.docx matches  view on Meta::CPAN

    $label =~ s/%/.*/g;
    my($label_re, $pattern_re) = map re($_), $label, $pattern;
    my $re = qr{
	@prefix_re \K
	^
	(?(<level>) (?= \g{level} $indent_re \S ) )	# required level
	(?<in> [ ]*) "$label_re": [ ]*+			# find given label
	(?: . | \n\g{in} \s++ ) *			# and look for ...
	$pattern_re					# pattern
	(?: . | \n\g{in} (?: \s++ | [\]\}] ) ) *	# and take the rest
    }xm;
    warn "$re\n" if $config{debug};
    match_regions pattern => $re;
}

1;

__DATA__

define JSON-OBJECTS ^([ ]*)\{(?s:.*?)^\g{-1}\},?\n

option default --json-block --jq-filter

option --jq-filter --if='jq "if type == \"array\" then .[] else . end"'

 view release on metacpan or  search on metacpan

share/sccc2.dict  view on Meta::CPAN

#
# C/C++セキュアコーディング 第2版
# https://www.jpcert.or.jp/securecoding_book_2nd.html
#

([、。をがはにな])\g{-1}                    // 
(?<!も)のの                                 // 
(?:へに|にへ)                               // 

(一|ひと)つ                                 // ひとつ
(迄|まで)                                   // まで

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

it.

Order of capture group in the pattern is not guaranteed.  Please avoid
to use direct index, and use relative or named capture group instead.
For example, if you want to search repeated characters, use
`(\w)\g{-1}` or `(?<c>\w)\g{c}` rather than
`(\w)\1`.

- **-e** _pattern_, **--and**=_pattern_

    Specify the positive match pattern.  Next command print lines contains

 view release on metacpan or  search on metacpan

lib/App/JobLog/TimeGrammar.pm  view on Meta::CPAN

     (?<us>
      (\d{1,2}) (?{ $b1 = $^N })
      ((?&divider))
      (\d{1,2}) (?{ $b2 = $^N })
      \g{-2}
      (\d{4})
      (?{
       $buffer{year}  = $^N;
       $buffer{month} = $b1;
       $buffer{day}   = $b2;

 view release on metacpan or  search on metacpan

t/app/rssfilter/match/abcpreviews.t  view on Meta::CPAN

    qr/too many arguments/,
    'throws error when given more than one item to match'
);

ok(
    App::Rssfilter::Match::AbcPreviews::match( Mojo::DOM->new( '<guid>I am a preview<\guid>' ) ),
    'match item whose guid contains "preview"'
);

ok(
    ! App::Rssfilter::Match::AbcPreviews::match( Mojo::DOM->new( '<guid>I am a human being<\guid>' ) ),
    'does not match item whose guid does not contain "preview"'
);

ok(
    ! App::Rssfilter::Match::AbcPreviews::match( Mojo::DOM->new( '<title>sneak peek preview season</title><guid>http://hoop.de.doo/sneak-preview</guid>' ) ),

 view release on metacpan or  search on metacpan

bin/transpierce  view on Meta::CPAN

	if (!-d $working_directory) {
		mkdir $working_directory
			or die "$working_directory did not exist, and couldn't be created: $!";
	}

	my $file_string = qr{ (["']) (?<str> .*) \g1 | (?<str> \S+) }x;
	my $perm_string = qr{ (?<chmod> 0[0-7]{3}) \s (?<chown> \S+) \s (?<chgrp> \S+) }x;

	my $context = undef;
	my @files;