[ViewVC] Contents of: cvs/Coro/eg/dns

#!/usr/bin/perl

use Coro;
use Coro::Event;
use Coro::Util;

use Socket;

# do some asynchronous hostname resolution

async {
   for my $x (1..255) {
      use Data::Dumper;
      async {
         my $addr = "129.13.162.$x";
         print "$addr => ",(scalar gethostbyaddr inet_aton($addr), AF_INET),"\n";
      };
   }

};

loop;
Revision:	1.2
Committed:	Mon Sep 3 02:50:18 2001 UTC (22 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_5, rel-3_41, rel-3_55, rel-3_51, rel-2_0, rel-2_1, rel-1_1, rel-1_0, rel-1_9, rel-1_2, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-3_4, rel-3_1, rel-3_5, rel-3_3, rel-3_2, rel-3_0, rel-3_01, rel-3_11, rel-1_31, stack_sharing, rel-3_501
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	use Coro;
4	use Coro::Event;
5	use Coro::Util;
6
7	use Socket;
8
9	# do some asynchronous hostname resolution
10
11	async {
12	for my $x (1..255) {
13	use Data::Dumper;
14	async {
15	my $addr = "129.13.162.$x";
16	print "$addr => ",(scalar gethostbyaddr inet_aton($addr), AF_INET),"\n";
17	};
18	}
19
20	};
21
22	loop;