Lines Matching refs:guid
51 guid => 0,
266 my $guid = shift || return undef;
267 if ((my $len = length $guid) != 16) {
272 unpack("I", $guid),
273 unpack("S", substr($guid, 4, 2)),
274 unpack("S", substr($guid, 6, 2)),
275 unpack("C", substr($guid, 8, 1)),
276 unpack("C", substr($guid, 9, 1)),
277 unpack("C", substr($guid, 10, 1)),
278 unpack("C", substr($guid, 11, 1)),
279 unpack("C", substr($guid, 12, 1)),
280 unpack("C", substr($guid, 13, 1)),
281 unpack("C", substr($guid, 14, 1)),
282 unpack("C", substr($guid, 15, 1));
358 $hash{guid} = unpack("a16", substr($str, $p, 16)); $p += 16;
401 # guid
402 printf("GUID: %s\n", guid_to_string($hash{guid}));