[ViewVC] Annotation 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, 10 months ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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;