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

#!/usr/bin/perl

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

use Socket;

# do some asynchroneous 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.1
Committed:	Sat Jul 28 01:41:58 2001 UTC (22 years, 11 months ago) by root
Branch:	MAIN
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 asynchroneous 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;