Lines Matching refs:substr
1134 my $low_addr = substr($addr, -8); # get last 8 hex chars
1135 my $high_addr = substr($addr, -16, 8); # get up to 8 more hex chars
1962 $fname = "..." . substr($fname, -55);
3657 if (substr($str, 6, 2) eq chr(0)x2) {
3659 } elsif (substr($str, 4, 2) eq chr(0)x2) {
3677 if (substr($str, 4, 4) eq chr(0)x4) {
3680 } elsif (substr($str, 0, 4) eq chr(0)x4) {
4689 my $a1 = substr($addr1,-7);
4690 $addr1 = substr($addr1,0,-7);
4691 my $a2 = substr($addr2,-7);
4692 $addr2 = substr($addr2,0,-7);
4701 $a1 = substr($addr1,-7);
4702 $addr1 = substr($addr1,0,-7);
4703 $a2 = substr($addr2,-7);
4704 $addr2 = substr($addr2,0,-7);
4740 my $a1 = hex(substr($addr1,-7));
4741 $addr1 = substr($addr1,0,-7);
4742 my $a2 = hex(substr($addr2,-7));
4743 $addr2 = substr($addr2,0,-7);
4752 $a1 = hex(substr($addr1,-7));
4753 $addr1 = substr($addr1,0,-7);
4754 $a2 = hex(substr($addr2,-7)) + $b;
4755 $addr2 = substr($addr2,0,-7);
4795 my $a1 = substr($addr,-7);
4796 $addr = substr($addr,0,-7);
4807 $a1 = substr($addr,-7);
4808 $addr = substr($addr,0,-7);