view release on metacpan or  search on metacpan

examples/dns.pl  view on Meta::CPAN

#!/usr/bin/perl

# Example: dns.pl google.com

use v5.14;

use strict;
use warnings;

use lib 'lib', '../lib';

my $domain = $ARGV[0] || 'example.com';

use if ($ENV{PERL_ANYEVENT_DNS} || "") eq 'EtcHosts' || !$ENV{PERL_ANYEVENT_DNS}, 'AnyEvent::DNS::EtcHosts';
use AnyEvent::DNS;

my $cv = AE::cv;

AnyEvent::DNS::any $domain, sub {
    say foreach map { $_->[4] } grep { $_->[1] =~ /^(a|aaaa)$/ } @_;

examples/lexical.pl  view on Meta::CPAN

#!/usr/bin/perl

# Example: lexical.pl google.com xmpp-client tcp 4

use v5.14;

use strict;
use warnings;

use lib 'lib', '../lib';

my $domain = $ARGV[0]  || 'example.com';
my $service = $ARGV[1] || 80;
my $proto = $ARGV[2]   || 'tcp';
my $family = $ARGV[3]  || 0;

require AnyEvent::DNS::EtcHosts;

use AnyEvent::Socket;
use Socket;

examples/socket.pl  view on Meta::CPAN

#!/usr/bin/perl

# Example: socket.pl google.com xmpp-client tcp 4

use v5.14;

use strict;
use warnings;

use lib 'lib', '../lib';

my $domain = $ARGV[0]  || 'example.com';
my $service = $ARGV[1] || 80;
my $proto = $ARGV[2]   || 'tcp';
my $family = $ARGV[3]  || 0;

use if ($ENV{PERL_ANYEVENT_DNS} || '') eq 'EtcHosts' || !$ENV{PERL_ANYEVENT_DNS}, 'AnyEvent::DNS::EtcHosts';
use AnyEvent::Socket;
use Socket;