Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

lhoward

by lhoward (Vicar)
on Mar 17, 2000 at 20:48 UTC ( #5549=user: print w/ replies, xml ) Need Help??


My main perl strengths are in using modules and in programming the outside perl including DBI, networking, IPC, signals, date and time computations, regular expressions, graphics manipulation, etc...

I enjoy playing chess. You can catch me on ICC playing as harbinger.

Les Howard
www.lesandchris.com
Author of Net::Syslog and Number::Spell .


Sample Code Posted Here

#!/usr/bin/perl -w use strict; use IO::Socket; use IO::Select; my $s=new IO::Select; my $ip1=IO::Socket::INET->new(LocalPort => 5925, Proto=>'udp', LocalAddr => '127.0.0.1') or die "error creating UDP server $@\n"; my $ip2=IO::Socket::INET->new(LocalPort => 5925, Proto=>'udp', LocalAddr => '64.82.70.84') or die "error creating UDP server $@\n"; $s->add($ip1); $s->add($ip2); while(1){ my $server; foreach $server($s->can_read(60)){ my $newmsg; $server->recv($newmsg,1024); my ($rport,$ripaddr) = sockaddr_in($server->peername); print "remote: ".inet_ntoa($ripaddr)."($rport)\n"; my ($lport,$lipaddr) = sockaddr_in($server->sockname); print "local: ".inet_ntoa($lipaddr)."($lport)\n"; } }

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2014-12-25 12:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls