Lines Matching full:substr
649 $value_pd++ if (substr
758 if (substr($pattern, -1) eq "/") {
864 if ($lk_path ne "" && substr($lk_path,length($lk_path)-1,1) ne "/") {
980 $subsystem = substr($subsystem, 0, $output_section_maxlen - 3);
1594 my $sel = substr($nr, 0, 1);
1595 my $str = substr($nr, 1);
2152 (length($first) == 2 && substr($first, -1) eq ".")) ||
2154 (length($middle) == 2 && substr($middle, -1) eq "."))) {
2161 if (substr($name, -1) =~ /[,\.]/) {
2162 $name = substr($name, 0, length($name) - 1);
2163 } elsif (substr($name, -2) =~ /[,\.]"/) {
2164 $name = substr($name, 0, length($name) - 2) . '"';
2167 if (substr($name, 0, 1) =~ /[,\.]/) {
2168 $name = substr($name, 1, length($name) - 1);
2169 } elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2170 $name = '"' . substr($name, 2, length($name) - 2);
