← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:56:53 2010

File /usr/local/lib/perl5/5.8.8/i686-linux/Socket.pm
Statements Executed 6063
Statement Execution Time 90.5ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
46112237ms237msSocket::::inet_atonSocket::inet_aton (xsub)
13832150.2ms60.5msSocket::::sockaddr_inSocket::sockaddr_in
18495229.2ms29.2msSocket::::__ANON__[:395]Socket::__ANON__[:395]
13831210.3ms10.3msSocket::::unpack_sockaddr_inSocket::unpack_sockaddr_in (xsub)
461124.60ms4.60msSocket::::pack_sockaddr_inSocket::pack_sockaddr_in (xsub)
461124.28ms4.28msSocket::::inet_ntoaSocket::inet_ntoa (xsub)
642500µs627µsSocket::::AUTOLOADSocket::AUTOLOAD
61264µs64µsSocket::::constantSocket::constant (xsub)
61263µs63µsSocket::::CORE:substSocket::CORE:subst (opcode)
0000s0sSocket::::BEGINSocket::BEGIN
0000s0sSocket::::sockaddr_unSocket::sockaddr_un
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Socket;
2
315µsour($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
416µs$VERSION = "1.78";
5
6=head1 NAME
7
8Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h defines and structure manipulators
9
10=head1 SYNOPSIS
11
12 use Socket;
13
14 $proto = getprotobyname('udp');
15 socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto);
16 $iaddr = gethostbyname('hishost.com');
17 $port = getservbyname('time', 'udp');
18 $sin = sockaddr_in($port, $iaddr);
19 send(Socket_Handle, 0, 0, $sin);
20
21 $proto = getprotobyname('tcp');
22 socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
23 $port = getservbyname('smtp', 'tcp');
24 $sin = sockaddr_in($port,inet_aton("127.1"));
25 $sin = sockaddr_in(7,inet_aton("localhost"));
26 $sin = sockaddr_in(7,INADDR_LOOPBACK);
27 connect(Socket_Handle,$sin);
28
29 ($port, $iaddr) = sockaddr_in(getpeername(Socket_Handle));
30 $peer_host = gethostbyaddr($iaddr, AF_INET);
31 $peer_addr = inet_ntoa($iaddr);
32
33 $proto = getprotobyname('tcp');
34 socket(Socket_Handle, PF_UNIX, SOCK_STREAM, $proto);
35 unlink('/var/run/usock');
36 $sun = sockaddr_un('/var/run/usock');
37 connect(Socket_Handle,$sun);
38
39=head1 DESCRIPTION
40
41This module is just a translation of the C F<socket.h> file.
42Unlike the old mechanism of requiring a translated F<socket.ph>
43file, this uses the B<h2xs> program (see the Perl source distribution)
44and your native C compiler. This means that it has a
45far more likely chance of getting the numbers right. This includes
46all of the commonly used pound-defines like AF_INET, SOCK_STREAM, etc.
47
48Also, some common socket "newline" constants are provided: the
49constants C<CR>, C<LF>, and C<CRLF>, as well as C<$CR>, C<$LF>, and
50C<$CRLF>, which map to C<\015>, C<\012>, and C<\015\012>. If you do
51not want to use the literal characters in your programs, then use
52the constants provided here. They are not exported by default, but can
53be imported individually, and with the C<:crlf> export tag:
54
55 use Socket qw(:DEFAULT :crlf);
56
57In addition, some structure manipulation functions are available:
58
59=over 4
60
61=item inet_aton HOSTNAME
62
63Takes a string giving the name of a host, and translates that to an
64opaque string (if programming in C, struct in_addr). Takes arguments
65of both the 'rtfm.mit.edu' type and '18.181.0.24'. If the host name
66cannot be resolved, returns undef. For multi-homed hosts (hosts with
67more than one address), the first address found is returned.
68
69For portability do not assume that the result of inet_aton() is 32
70bits wide, in other words, that it would contain only the IPv4 address
71in network order.
72
73=item inet_ntoa IP_ADDRESS
74
75Takes a string (an opaque string as returned by inet_aton(),
76or a v-string representing the four octets of the IPv4 address in
77network order) and translates it into a string of the form 'd.d.d.d'
78where the 'd's are numbers less than 256 (the normal human-readable
79four dotted number notation for Internet addresses).
80
81=item INADDR_ANY
82
83Note: does not return a number, but a packed string.
84
85Returns the 4-byte wildcard ip address which specifies any
86of the hosts ip addresses. (A particular machine can have
87more than one ip address, each address corresponding to
88a particular network interface. This wildcard address
89allows you to bind to all of them simultaneously.)
90Normally equivalent to inet_aton('0.0.0.0').
91
92=item INADDR_BROADCAST
93
94Note: does not return a number, but a packed string.
95
96Returns the 4-byte 'this-lan' ip broadcast address.
97This can be useful for some protocols to solicit information
98from all servers on the same LAN cable.
99Normally equivalent to inet_aton('255.255.255.255').
100
101=item INADDR_LOOPBACK
102
103Note - does not return a number.
104
105Returns the 4-byte loopback address. Normally equivalent
106to inet_aton('localhost').
107
108=item INADDR_NONE
109
110Note - does not return a number.
111
112Returns the 4-byte 'invalid' ip address. Normally equivalent
113to inet_aton('255.255.255.255').
114
115=item sockaddr_family SOCKADDR
116
117Takes a sockaddr structure (as returned by pack_sockaddr_in(),
118pack_sockaddr_un() or the perl builtin functions getsockname() and
119getpeername()) and returns the address family tag. It will match the
120constant AF_INET for a sockaddr_in and AF_UNIX for a sockaddr_un. It
121can be used to figure out what unpacker to use for a sockaddr of
122unknown type.
123
124=item sockaddr_in PORT, ADDRESS
125
126=item sockaddr_in SOCKADDR_IN
127
128In a list context, unpacks its SOCKADDR_IN argument and returns an array
129consisting of (PORT, ADDRESS). In a scalar context, packs its (PORT,
130ADDRESS) arguments as a SOCKADDR_IN and returns it. If this is confusing,
131use pack_sockaddr_in() and unpack_sockaddr_in() explicitly.
132
133=item pack_sockaddr_in PORT, IP_ADDRESS
134
135Takes two arguments, a port number and an opaque string, IP_ADDRESS
136(as returned by inet_aton(), or a v-string). Returns the sockaddr_in
137structure with those arguments packed in with AF_INET filled in. For
138Internet domain sockets, this structure is normally what you need for
139the arguments in bind(), connect(), and send(), and is also returned
140by getpeername(), getsockname() and recv().
141
142=item unpack_sockaddr_in SOCKADDR_IN
143
144Takes a sockaddr_in structure (as returned by pack_sockaddr_in()) and
145returns an array of two elements: the port and an opaque string
146representing the IP address (you can use inet_ntoa() to convert the
147address to the four-dotted numeric format). Will croak if the
148structure does not have AF_INET in the right place.
149
150=item sockaddr_un PATHNAME
151
152=item sockaddr_un SOCKADDR_UN
153
154In a list context, unpacks its SOCKADDR_UN argument and returns an array
155consisting of (PATHNAME). In a scalar context, packs its PATHNAME
156arguments as a SOCKADDR_UN and returns it. If this is confusing, use
157pack_sockaddr_un() and unpack_sockaddr_un() explicitly.
158These are only supported if your system has E<lt>F<sys/un.h>E<gt>.
159
160=item pack_sockaddr_un PATH
161
162Takes one argument, a pathname. Returns the sockaddr_un structure with
163that path packed in with AF_UNIX filled in. For unix domain sockets, this
164structure is normally what you need for the arguments in bind(),
165connect(), and send(), and is also returned by getpeername(),
166getsockname() and recv().
167
168=item unpack_sockaddr_un SOCKADDR_UN
169
170Takes a sockaddr_un structure (as returned by pack_sockaddr_un())
171and returns the pathname. Will croak if the structure does not
172have AF_UNIX in the right place.
173
174=back
175
176=cut
177
1783106µs1339µsuse Carp;
# spent 339µs making 1 call to Exporter::import
1793105µs1707µsuse warnings::register;
# spent 707µs making 1 call to warnings::register::import
180
18116µsrequire Exporter;
1823501µsuse XSLoader ();
18319µs@ISA = qw(Exporter);
184172µs@EXPORT = qw(
185 inet_aton inet_ntoa
186 sockaddr_family
187 pack_sockaddr_in unpack_sockaddr_in
188 pack_sockaddr_un unpack_sockaddr_un
189 sockaddr_in sockaddr_un
190 INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE
191 AF_802
192 AF_AAL
193 AF_APPLETALK
194 AF_CCITT
195 AF_CHAOS
196 AF_CTF
197 AF_DATAKIT
198 AF_DECnet
199 AF_DLI
200 AF_ECMA
201 AF_GOSIP
202 AF_HYLINK
203 AF_IMPLINK
204 AF_INET
205 AF_INET6
206 AF_ISO
207 AF_KEY
208 AF_LAST
209 AF_LAT
210 AF_LINK
211 AF_MAX
212 AF_NBS
213 AF_NIT
214 AF_NS
215 AF_OSI
216 AF_OSINET
217 AF_PUP
218 AF_ROUTE
219 AF_SNA
220 AF_UNIX
221 AF_UNSPEC
222 AF_USER
223 AF_WAN
224 AF_X25
225 IOV_MAX
226 MSG_BCAST
227 MSG_BTAG
228 MSG_CTLFLAGS
229 MSG_CTLIGNORE
230 MSG_CTRUNC
231 MSG_DONTROUTE
232 MSG_DONTWAIT
233 MSG_EOF
234 MSG_EOR
235 MSG_ERRQUEUE
236 MSG_ETAG
237 MSG_FIN
238 MSG_MAXIOVLEN
239 MSG_MCAST
240 MSG_NOSIGNAL
241 MSG_OOB
242 MSG_PEEK
243 MSG_PROXY
244 MSG_RST
245 MSG_SYN
246 MSG_TRUNC
247 MSG_URG
248 MSG_WAITALL
249 MSG_WIRE
250 PF_802
251 PF_AAL
252 PF_APPLETALK
253 PF_CCITT
254 PF_CHAOS
255 PF_CTF
256 PF_DATAKIT
257 PF_DECnet
258 PF_DLI
259 PF_ECMA
260 PF_GOSIP
261 PF_HYLINK
262 PF_IMPLINK
263 PF_INET
264 PF_INET6
265 PF_ISO
266 PF_KEY
267 PF_LAST
268 PF_LAT
269 PF_LINK
270 PF_MAX
271 PF_NBS
272 PF_NIT
273 PF_NS
274 PF_OSI
275 PF_OSINET
276 PF_PUP
277 PF_ROUTE
278 PF_SNA
279 PF_UNIX
280 PF_UNSPEC
281 PF_USER
282 PF_WAN
283 PF_X25
284 SCM_CONNECT
285 SCM_CREDENTIALS
286 SCM_CREDS
287 SCM_RIGHTS
288 SCM_TIMESTAMP
289 SHUT_RD
290 SHUT_RDWR
291 SHUT_WR
292 SOCK_DGRAM
293 SOCK_RAW
294 SOCK_RDM
295 SOCK_SEQPACKET
296 SOCK_STREAM
297 SOL_SOCKET
298 SOMAXCONN
299 SO_ACCEPTCONN
300 SO_ATTACH_FILTER
301 SO_BACKLOG
302 SO_BROADCAST
303 SO_CHAMELEON
304 SO_DEBUG
305 SO_DETACH_FILTER
306 SO_DGRAM_ERRIND
307 SO_DONTLINGER
308 SO_DONTROUTE
309 SO_ERROR
310 SO_FAMILY
311 SO_KEEPALIVE
312 SO_LINGER
313 SO_OOBINLINE
314 SO_PASSCRED
315 SO_PASSIFNAME
316 SO_PEERCRED
317 SO_PROTOCOL
318 SO_PROTOTYPE
319 SO_RCVBUF
320 SO_RCVLOWAT
321 SO_RCVTIMEO
322 SO_REUSEADDR
323 SO_REUSEPORT
324 SO_SECURITY_AUTHENTICATION
325 SO_SECURITY_ENCRYPTION_NETWORK
326 SO_SECURITY_ENCRYPTION_TRANSPORT
327 SO_SNDBUF
328 SO_SNDLOWAT
329 SO_SNDTIMEO
330 SO_STATE
331 SO_TYPE
332 SO_USELOOPBACK
333 SO_XOPEN
334 SO_XSE
335 UIO_MAXIOV
336);
337
338110µs@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF
339
340 IPPROTO_TCP
341 TCP_KEEPALIVE
342 TCP_MAXRT
343 TCP_MAXSEG
344 TCP_NODELAY
345 TCP_STDURG);
346
347183µs%EXPORT_TAGS = (
348 crlf => [qw(CR LF CRLF $CR $LF $CRLF)],
349 all => [@EXPORT, @EXPORT_OK],
350);
351
35215µsBEGIN {
353 sub CR () {"\015"}
354 sub LF () {"\012"}
355 sub CRLF () {"\015\012"}
3561666µs}
357
35817µs*CR = \CR();
35915µs*LF = \LF();
36015µs*CRLF = \CRLF();
361
362
# spent 60.5ms (50.2+10.3) within Socket::sockaddr_in which was called 1383 times, avg 44µs/call: # 922 times (32.7ms+6.50ms) by IO::Socket::INET::peerport at line 266 of IO/Socket/INET.pm, avg 42µs/call # 461 times (17.6ms+3.76ms) by IO::Socket::INET::peeraddr at line 259 of IO/Socket/INET.pm, avg 46µs/call
sub sockaddr_in {
363414959.8ms if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
364 my($af, $port, @quad) = @_;
365 warnings::warn "6-ARG sockaddr_in call is deprecated"
366 if warnings::enabled();
367 pack_sockaddr_in($port, inet_aton(join('.', @quad)));
368 } elsif (wantarray) {
369 croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1;
370 unpack_sockaddr_in(@_);
# spent 10.3ms making 1383 calls to Socket::unpack_sockaddr_in, avg 7µs/call
371 } else {
372 croak "usage: sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
373 pack_sockaddr_in(@_);
374 }
375}
376
377sub sockaddr_un {
378 if (wantarray) {
379 croak "usage: (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
380 unpack_sockaddr_un(@_);
381 } else {
382 croak "usage: sun_sv = sockaddr_un(filename)" unless @_ == 1;
383 pack_sockaddr_un(@_);
384 }
385}
386
387
# spent 627µs (500+127) within Socket::AUTOLOAD which was called 6 times, avg 104µs/call: # 3 times (214µs+41µs) by LWP::Protocol::implementor at line 24 of IO/Socket/INET.pm, avg 85µs/call # once (112µs+35µs) by LWP::Protocol::implementor at line 19 of IO/Socket/UNIX.pm # once (93µs+23µs) by LWP::Protocol::implementor at line 22 of IO/Socket/INET.pm # once (81µs+28µs) by IO::Socket::INET::configure at line 116 of IO/Socket/INET.pm
sub AUTOLOAD {
38842648µs my($constname);
389 ($constname = $AUTOLOAD) =~ s/.*:://;
# spent 63µs making 6 calls to Socket::CORE:subst, avg 10µs/call
390 croak "&Socket::constant not defined" if $constname eq 'constant';
391 my ($error, $val) = constant($constname);
# spent 64µs making 6 calls to Socket::constant, avg 11µs/call
392 if ($error) {
393 croak $error;
394 }
395184928.0ms
# spent 29.2ms within Socket::__ANON__[/usr/local/lib/perl5/5.8.8/i686-linux/Socket.pm:395] which was called 1849 times, avg 16µs/call: # 461 times (8.06ms+0s) by IO::Socket::INET::configure at line 147 of IO/Socket/INET.pm, avg 17µs/call # 461 times (7.05ms+0s) by IO::Socket::INET::configure at line 170 of IO/Socket/INET.pm, avg 15µs/call # 461 times (6.05ms+0s) by IO::Socket::INET::configure at line 190 of IO/Socket/INET.pm, avg 13µs/call # 460 times (7.93ms+0s) by IO::Socket::INET::configure at line 116 of IO/Socket/INET.pm, avg 17µs/call # 6 times (69µs+0s) by IO::Socket::INET::configure or LWP::Protocol::implementor at line 396, avg 12µs/call
*$AUTOLOAD = sub { $val };
396 goto &$AUTOLOAD;
# spent 69µs making 6 calls to Socket::__ANON__[Socket.pm:395], avg 12µs/call
397}
398
3991432µs1400µsXSLoader::load 'Socket', $VERSION;
# spent 400µs making 1 call to XSLoader::load
400
401153µs1;
# spent 63µs within Socket::CORE:subst which was called 6 times, avg 10µs/call: # 6 times (63µs+0s) by Socket::AUTOLOAD at line 389 of Socket.pm, avg 10µs/call
sub Socket::CORE:subst; # xsub
# spent 64µs within Socket::constant which was called 6 times, avg 11µs/call: # 6 times (64µs+0s) by Socket::AUTOLOAD at line 391 of Socket.pm, avg 11µs/call
sub Socket::constant; # xsub
# spent 237ms within Socket::inet_aton which was called 461 times, avg 513µs/call: # 461 times (237ms+0s) by IO::Socket::INET::_get_addr at line 97 of IO/Socket/INET.pm, avg 513µs/call
sub Socket::inet_aton; # xsub
# spent 4.28ms within Socket::inet_ntoa which was called 461 times, avg 9µs/call: # 461 times (4.28ms+0s) by IO::Socket::INET::peerhost at line 273 of IO/Socket/INET.pm, avg 9µs/call
sub Socket::inet_ntoa; # xsub
# spent 4.60ms within Socket::pack_sockaddr_in which was called 461 times, avg 10µs/call: # 461 times (4.60ms+0s) by IO::Socket::INET::configure at line 199 of IO/Socket/INET.pm, avg 10µs/call
sub Socket::pack_sockaddr_in; # xsub
# spent 10.3ms within Socket::unpack_sockaddr_in which was called 1383 times, avg 7µs/call: # 1383 times (10.3ms+0s) by Socket::sockaddr_in at line 370 of Socket.pm, avg 7µs/call
sub Socket::unpack_sockaddr_in; # xsub