1Parse::DMIDecode::HandlUes(e3r)Contributed Perl DocumentPaatrisoen::DMIDecode::Handle(3)
2
3
4
6 Parse::DMIDecode::Handle - SMBIOS Structure Handle Object Class
7
9 use Parse::DMIDecode qw();
10 my $decoder = new Parse::DMIDecode;
11 $decoder->probe;
12
13 for my $handle ($decoder->get_handles) {
14 printf("Handle %s of type %s is %s bytes long (minus strings).\n".
15 " > Contians the following keyword data entries:\n",
16 $handle->handle,
17 $handle->dmitype,
18 $handle->bytes
19 );
20
21 for my $keyword ($handle->keywords) {
22 my $value = $handle->keyword($keyword);
23 printf("Keyword \"%s\" => \"%s\"\n",
24 $keyword,
25 (ref($value) eq 'ARRAY' ?
26 join(', ',@{$value}) : ($value||''))
27 );
28 }
29 }
30
33 new
34 Create a new struture handle object. This is called by
35 Parse::DMIDecode's parse() (and indirectly by probe()) methods.
36
37 raw
38 my $raw_data = $handle->raw;
39
40 Returns the raw data as generated by dmidecode that was parsed to
41 create this handle object.
42
43 bytes
44 my $bytes = $handle->bytes;
45
46 address
47 my $address = $handle->address;
48
49 Returns the address handle of the structure.
50
51 handle
52 Alias for address.
53
54 dmitype
55 my $dmitype = $handle->dmitype;
56
57 type
58 Alias for dmitype.
59
60 description
61 my $description = $handle->description;
62
63 keywords
64 my @keywords = $handle->keywords;
65
66 Returns a list of keyword data pairs available for retreival from this
67 handle object.
68
69 keyword
70 for my $keyword ($handle->keywords) {
71 printf("Keyword \"%s\" => \"%s\"\n",
72 $keyword,
73 $handle->keyword($keyword)
74 );
75 }
76
77 parsed_structures
78 use Data::Dumper;
79 my $ref = $handle->parsed_structures;
80 print Dumper($ref);
81
82 Returns a copy of the parsed structures. This should be used with care
83 as this is a cloned copy of the parsed data structures that the
84 Parse::DMIDecode::Handle object uses internally, and as such may change
85 format in later releases without notice.
86
88 Parse::DMIDecode
89
91 $Id: Handle.pm 976 2007-03-04 20:47:36Z nicolaw $
92
94 Nicola Worthington <nicolaw@cpan.org>
95
96 <http://perlgirl.org.uk>
97
98 If you like this software, why not show your appreciation by sending
99 the author something nice from her Amazon wishlist ?
100
101 <http://www.amazon.co.uk/gp/registry/1VZXC59ESWYK0?sort=priority>
102
104 Copyright 2006 Nicola Worthington.
105
106 This software is licensed under The Apache Software License, Version
107 2.0.
108
109 <http://www.apache.org/licenses/LICENSE-2.0>
110
111
112
113perl v5.28.1 2019-02-02 Parse::DMIDecode::Handle(3)