line |
!l |
l&&!r |
l&&r |
condition |
639
|
0 |
0 |
0 |
--$limit > 0 and $string =~ s/\A((?:$Eksc5601::q_char)+?)$pattern//m |
671
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
685
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
705
|
0 |
0 |
0 |
scalar @split >= 1 and $split[-1] eq '' |
788
|
0 |
0 |
0 |
defined $replacementlist[$i] and $replacementlist[$i] ne '' |
|
0 |
0 |
0 |
defined $replacementlist[-1] and $replacementlist[-1] ne '' |
813
|
0 |
0 |
0 |
@char and not exists $tr{$char[0]} |
830
|
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} |
912
|
0 |
0 |
0 |
$pos < length $str and $pos <= $position |
932
|
0 |
0 |
0 |
@_ and wantarray |
957
|
0 |
0 |
0 |
@_ and wantarray |
983
|
0 |
0 |
0 |
@_ and wantarray |
1008
|
2800 |
0 |
0 |
@_ and wantarray |
1034
|
2875 |
0 |
0 |
@_ and wantarray |
1065
|
0 |
0 |
0 |
$last_s_matched and $_[0] =~ /\A (?>[1-9][0-9]*) \z/mosx |
1448
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1782
|
406 |
0 |
497 |
$min le $first and $first le $max |
|
406 |
477 |
20 |
$min le $first and $first le $max and $max le $last |
|
883 |
0 |
0 |
$min eq $first and $max eq $last |
|
477 |
386 |
20 |
$first le $min and $max le $last |
|
386 |
0 |
477 |
$min le $first and $last le $max |
|
0 |
366 |
20 |
$first le $min and $min le $last |
|
366 |
0 |
20 |
$first le $min and $min le $last and $last le $max |
1859
|
1273 |
606 |
8 |
$ignorecase and $char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/mosx |
1860
|
20 |
5 |
497 |
0 < $i and $i < $#char |
2002
|
319 |
1335 |
497 |
defined $char[$i + 1] and $char[$i + 1] eq '...' |
2025
|
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] |
2659
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Eksc5601::q_char) /gmosx)[-1] ne $pathsep |
2682
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Eksc5601::q_char) /gmosx)[-1] ne $pathsep |
2721
|
0 |
0 |
0 |
$cond eq 'd' and not -d "$head$leaf" |
2733
|
0 |
0 |
0 |
&Eksc5601::index($leaf, '.') == -1 and length $leaf <= 8 |
|
0 |
0 |
0 |
&Eksc5601::index($leaf, '.') == -1 and length $leaf <= 8 and &Eksc5601::index($pattern, '\\.') != -1 |
2803
|
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'} |
2826
|
0 |
0 |
0 |
exists $ENV{'HOME'} and defined $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'} |
2845
|
0 |
0 |
0 |
defined $home and not -d $home |
2856
|
0 |
0 |
0 |
defined $1 and substr($&, -length($1), length $1) eq $1 |
2958
|
0 |
0 |
0 |
@_ and not wantarray |
3328
|
38113 |
14546 |
1070 |
$Eksc5601::slash eq 'm//' and m[\G (/) ]cgox |
|
38113 |
14516 |
30 |
$Eksc5601::slash eq 'm//' and /\G (\?) /cgox |
4283
|
0 |
3 |
0 |
$2 == 5 and $3 ge '012' |
4291
|
0 |
0 |
0 |
$2 == 5 and $3 >= 12 |
4755
|
2588 |
0 |
50 |
grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char |
5095
|
218168 |
6 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
218174 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
5340
|
3327 |
6 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
3333 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
5547
|
8 |
34 |
18 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
5618
|
3268 |
1 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
3268 |
1 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
5651
|
2021 |
29 |
84 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
2050 |
30 |
54 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
507 |
1271 |
188 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
5656
|
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 $Eksc5601::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 $Eksc5601::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 $Eksc5601::q_char \z/mosx |
5908
|
10 |
177 |
0 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
5928
|
0 |
0 |
0 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
5935
|
38 |
1278 |
42 |
$ope =~ /\A m? \z/mosx and $delimiter eq '?' |
6027
|
13 |
2 |
12 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
15 |
8 |
4 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
14 |
9 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
6277
|
357 |
0 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
357 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
6310
|
316 |
1 |
9 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
317 |
4 |
5 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
91 |
169 |
23 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
6315
|
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 $Eksc5601::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 $Eksc5601::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 $Eksc5601::q_char \z/mosx |
6675
|
23 |
1 |
6 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
24 |
4 |
2 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
18 |
10 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
7104
|
314 |
0 |
0 |
$char[$i] eq '\\L' and $char[$i + 1] eq '\\u' |
|
314 |
0 |
0 |
$char[$i] eq '\\U' and $char[$i + 1] eq '\\l' |
7137
|
291 |
3 |
11 |
$char[$i] eq '^' and not $modifier =~ /m/mosx |
|
285 |
3 |
6 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
288 |
0 |
6 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
70 |
173 |
7 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |
7142
|
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 $Eksc5601::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 $Eksc5601::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 $Eksc5601::q_char \z/mosx |
7458
|
12 |
0 |
0 |
$char[$i] eq '^' and not $modifier =~ /m/mosx |
|
6 |
2 |
4 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx |
|
8 |
0 |
4 |
$ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Eksc5601::uc($char[$i]) ne &fc($char[$i]) |
|
8 |
0 |
0 |
$i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx |