line |
!l |
l&&!r |
l&&r |
condition |
702
|
0 |
0 |
0 |
--$limit > 0 and $string =~ s/\A((?:$Ekps9566::q_char)+?)$pattern//m |
731
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
744
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
763
|
0 |
0 |
0 |
scalar @split >= 1 and $split[-1] eq '' |
846
|
0 |
0 |
0 |
defined $replacementlist[$i] and $replacementlist[$i] ne '' |
|
0 |
0 |
0 |
defined $replacementlist[-1] and $replacementlist[-1] ne '' |
871
|
0 |
0 |
0 |
@char and not exists $tr{$char[0]} |
888
|
0 |
0 |
0 |
@char and exists $tr{$char[0]} |
|
0 |
0 |
0 |
@char and exists $tr{$char[0]} and $tr{$char[0]} eq $tr{$char} |
970
|
0 |
0 |
0 |
$pos < length $str and $pos <= $position |
990
|
0 |
0 |
0 |
@_ and wantarray |
1015
|
0 |
0 |
0 |
@_ and wantarray |
1041
|
0 |
0 |
0 |
@_ and wantarray |
1066
|
2968 |
0 |
0 |
@_ and wantarray |
1092
|
3271 |
0 |
0 |
@_ and wantarray |
1123
|
0 |
0 |
0 |
$last_s_matched and $_[0] =~ /\A (?>[1-9][0-9]*) \z/mosx |
1274
|
0 |
0 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
1519
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1853
|
446 |
0 |
719 |
$min le $first and $first le $max |
|
446 |
699 |
20 |
$min le $first and $first le $max and $max le $last |
|
1145 |
0 |
0 |
$min eq $first and $max eq $last |
|
699 |
426 |
20 |
$first le $min and $max le $last |
|
426 |
0 |
699 |
$min le $first and $last le $max |
|
0 |
366 |
60 |
$first le $min and $min le $last |
|
366 |
0 |
60 |
$first le $min and $min le $last and $last le $max |
1930
|
1273 |
606 |
8 |
$ignorecase and $char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/mosx |
1931
|
20 |
5 |
497 |
0 < $i and $i < $#char |
2073
|
319 |
1335 |
497 |
defined $char[$i + 1] and $char[$i + 1] eq '...' |
2096
|
20 |
20 |
477 |
$length == length $char[$i - 1] and $length == length $char[$i + 1] |
|
0 |
20 |
0 |
length $char[$i - 1] < $length and $length < length $char[$i + 1] |
2595
|
0 |
0 |
0 |
@_ and not wantarray |
2644
|
0 |
0 |
0 |
@_ and not wantarray |
2677
|
0 |
0 |
0 |
@_ and not wantarray |
2712
|
0 |
0 |
0 |
@_ and not wantarray |
2745
|
0 |
0 |
0 |
@_ and not wantarray |
2778
|
0 |
0 |
0 |
@_ and not wantarray |
2811
|
0 |
0 |
0 |
@_ and not wantarray |
2846
|
0 |
0 |
0 |
@_ and not wantarray |
2879
|
764 |
0 |
0 |
@_ and not wantarray |
2923
|
0 |
0 |
0 |
@_ and not wantarray |
2956
|
0 |
0 |
0 |
@_ and not wantarray |
2989
|
0 |
0 |
0 |
@_ and not wantarray |
3022
|
0 |
0 |
0 |
@_ and not wantarray |
3047
|
0 |
0 |
0 |
@_ and not wantarray |
3080
|
0 |
0 |
0 |
@_ and not wantarray |
3113
|
0 |
0 |
0 |
@_ and not wantarray |
3146
|
0 |
0 |
0 |
@_ and not wantarray |
3179
|
0 |
0 |
0 |
@_ and not wantarray |
3212
|
0 |
0 |
0 |
@_ and not wantarray |
3245
|
0 |
0 |
0 |
@_ and not wantarray |
3278
|
0 |
0 |
0 |
@_ and not wantarray |
3304
|
0 |
0 |
0 |
@_ and not wantarray |
3388
|
0 |
0 |
0 |
@_ and not wantarray |
3454
|
0 |
0 |
0 |
@_ and not wantarray |
3488
|
0 |
0 |
0 |
@_ and not wantarray |
3522
|
0 |
0 |
0 |
@_ and not wantarray |
4408
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Ekps9566::q_char) /gmosx)[-1] ne $pathsep |
4431
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Ekps9566::q_char) /gmosx)[-1] ne $pathsep |
4470
|
0 |
0 |
0 |
$cond eq 'd' and not &d("$head$leaf") |
4482
|
0 |
0 |
0 |
&Ekps9566::index($leaf, '.') == -1 and length $leaf <= 8 |
|
0 |
0 |
0 |
&Ekps9566::index($leaf, '.') == -1 and length $leaf <= 8 and &Ekps9566::index($pattern, '\\.') != -1 |
4552
|
0 |
0 |
0 |
exists $ENV{'HOME'} and $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'USERPROFILE'} and $ENV{'USERPROFILE'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
4575
|
0 |
0 |
0 |
exists $ENV{'HOME'} and defined $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'} |
4594
|
0 |
0 |
0 |
defined $home and not &d($home) |
4768
|
0 |
0 |
0 |
defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT' |
4812
|
0 |
0 |
0 |
$] =~ /^(?:5\.006|5\.008000)/mosx and $^O eq 'MSWin32' |
4994
|
0 |
0 |
0 |
defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT' |
5062
|
0 |
0 |
764 |
@_ >= 1 and $_[0] ne '' |
5464
|
0 |
0 |
0 |
defined $1 and substr($&, -length($1), length $1) eq $1 |
5566
|
0 |
0 |
0 |
@_ and not wantarray |
5932
|
54391 |
21347 |
1229 |
$Ekps9566::slash eq 'm//' and m[\G (/) ]cgox |
|
54391 |
21255 |
92 |
$Ekps9566::slash eq 'm//' and /\G (\?) /cgox |
7053
|
0 |
3 |
0 |
$2 == 5 and $3 ge '012' |
7061
|
0 |
0 |
0 |
$2 == 5 and $3 >= 12 |
7577
|
3014 |
0 |
70 |
grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char |
8512
|
3662 |
17114 |
412 |
defined $char[$i + 1] and $char[$i + 1] eq '\\' |
|
20776 |
390 |
22 |
defined $char[$i + 1] and $char[$i + 1] eq '\\' and $char[$i] =~ /\A ([\x80-\xFF].*) (\\) \z/msx |
8519
|
289 |
3458 |
204 |
defined $char[-1] and $char[-1] =~ /\A ([\x80-\xFF].*) (\\) \z/msx |
8558
|
307474 |
6 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
307480 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
8810
|
3297 |
6 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
3303 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
9022
|
44 |
106 |
90 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
9093
|
5429 |
1 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
5429 |
1 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
9126
|
3818 |
100 |
300 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
3918 |
62 |
238 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
680 |
2992 |
188 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
9136
|
6 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 |
|
6 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Ekps9566::q_char \z/mosx |
|
6 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 |
|
6 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Ekps9566::q_char \z/mosx |
|
4 |
2 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 |
|
6 |
0 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Ekps9566::q_char \z/mosx |
9388
|
10 |
177 |
0 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
9408
|
0 |
0 |
0 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
9415
|
64 |
1427 |
94 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
9507
|
37 |
16 |
24 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
53 |
8 |
16 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
52 |
9 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
9762
|
397 |
0 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
397 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
9795
|
320 |
8 |
15 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
328 |
4 |
11 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
108 |
155 |
23 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
9805
|
0 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 |
|
0 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Ekps9566::q_char \z/mosx |
|
0 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 |
|
0 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Ekps9566::q_char \z/mosx |
|
0 |
0 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 |
|
0 |
0 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Ekps9566::q_char \z/mosx |
10165
|
36 |
8 |
12 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
44 |
4 |
8 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
38 |
10 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
10296
|
6 |
3 |
0 |
defined $char[$i + 1] and $char[$i + 1] eq '\\' |
|
9 |
0 |
0 |
defined $char[$i + 1] and $char[$i + 1] eq '\\' and $char[$i] =~ /\A ([\x80-\xFF].*) (\\) \z/msx |
10316
|
85 |
6 |
0 |
defined $char[-1] and $char[-1] =~ /\A ([\x80-\xFF].*) (\\) \z/msx |
10654
|
372 |
0 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
372 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
10687
|
349 |
3 |
11 |
$char[$i] eq '^' and not $modifier =~ /m/mosx |
|
310 |
24 |
18 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
334 |
0 |
18 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
122 |
167 |
7 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
10697
|
0 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 |
|
0 |
0 |
0 |
$i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Ekps9566::q_char \z/mosx |
|
0 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 |
|
0 |
0 |
0 |
$i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Ekps9566::q_char \z/mosx |
|
0 |
0 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 |
|
0 |
0 |
0 |
$i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Ekps9566::q_char \z/mosx |
11013
|
56 |
0 |
0 |
$char[$i] eq '^' and not $modifier =~ /m/mosx |
|
28 |
16 |
12 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
44 |
0 |
12 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Ekps9566::uc($char[$i]) ne &fc($char[$i]) |
|
44 |
0 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |