Lines Matching refs:str
33 my $str = $fh->readn(2);
34 croak "reached EOF while reading U16" unless length($str) == 2;
35 return unpack("S", $str);
40 my ($str, $c);
42 $str .= $c;
45 return $str;
50 my $str = $fh->readn(4);
51 croak "reached EOF while reading U32" unless length($str) == 4;
52 return unpack("L", $str);
57 my $str = $fh->readn(4);
58 croak "reached EOF while reading I32" unless length($str) == 4;
59 return unpack("l", $str);
64 my $str = $fh->readn(4);
65 croak "reached EOF while reading objindex" unless length($str) == 4;
66 return unpack("L", $str);
71 my $str = $fh->readn(4);
72 croak "reached EOF while reading opindex" unless length($str) == 4;
73 return unpack("L", $str);
78 my $str = $fh->readn(4);
79 croak "reached EOF while reading svindex" unless length($str) == 4;
80 return unpack("L", $str);
85 my $str = $fh->readn(4);
86 croak "reached EOF while reading pvindex" unless length($str) == 4;
87 return unpack("L", $str);
92 my ($str, $c);
93 $str = '';
95 $str .= $c;
98 return cstring($str);
105 my $str;
108 read($fh, $str, $len);
109 croak "reached EOF while reading PV" unless length($str) == $len;
110 return cstring($str);
118 my ($str, $c);
120 $str .= $c;
123 return cstring($str);
128 my ($str, $c);
130 $str .= $c;
133 return $str;
147 my $str = $fh->readn(8);
148 croak "reached EOF while reading I32" unless length($str) == 8;
149 return sprintf "0x%09llx", unpack("q", $str);