#!/usr/bin/perl use IO::All; use Storable qw/thaw/; my $s = io(':55555')->fork->accept; my $l = $s->getline; ( my $size ) = $l =~ /(^\d+)/; my $data; $s->read( $data, $size ) || die $!; my @data = @{ thaw($data) }; $s->print( $data[1] );
Now, my question is :
how can i see the client's IP adress ?
In reply to client IP by chiburashka
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |