in reply to Hex value of Perl file handle to uniquely identify

Depends what you mean by "uniquely"? Ie. Is it the internal handle you're interested in; or where it is pointing:

C:\test>perl -mstrict -wle"print \*STDERR; open STDERR, '>', 'junk.err
+' or die $!; print \*STDERR;"
GLOB(0x1da110)
GLOB(0x1da110)

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^2: Hex value of Perl file handle to uniquely identify
by eyepopslikeamosquito (Archbishop) on Apr 09, 2016 at 06:48 UTC

    The value of the internal file handle should suffice. To give some background, I am writing a simple mock tcp server, using IO::Socket::INET and IO::Select, to use in system testing. It is not finished yet, but as a minimum I'd like to at least display the socket ids in a trace so I can tell which client is sending what. Here are some (incomplete) code snippets to give you a feel: 

    my $listener = IO::Socket::INET->new(
   LocalPort => $port,
   Proto     => 'tcp',
   Listen    => 5,
   ReuseAddr => 1,
) or die "error: IO::Socket::INET: $@";
my $selector = IO::Select->new($listener);
while ( my @ready = $selector->can_read() )  {
   for my $client (@ready) {
      if ( $client == $listener ) {
         my $new_conn = $listener->accept();
         $selector->add($new_conn);
         my $fh_hex = sprintf '0x%x', $new_conn;
         print "Accepted new connection ($fh_hex)\n";
# ...
sub recv_client {
   my $client = shift;
   my $fh_hex = sprintf '0x%x', $client;
   print "Recv from client ($fh_hex):\n";
   # ... display data received ...
}

    [download]

    Update: Thanks to BrowserUk's excellent tip I am now using: 

    my $fh_hex   = sprintf '0x%x', $new_conn;
my $peerhost = $new_conn->peerhost();
my $peerport = $new_conn->peerport();
my $peeraddr = $new_conn->peeraddr();
my $peerhostfull = gethostbyaddr($peeraddr, AF_INET) || "Cannot resolv
+e";
print "Accepted new connection $fh_hex ($peerhost:$peerport,host=$peer
+hostfull)\n";

    [download]
    which is much better.

[reply]
[d/l]
[select]

      Be aware that handles do get reused. Once a client disconnects, the next connect might reuse that handle.

      For uniqueness, you might consider combining the output from IO::Socket's PeerHost() and PeerPort() methods: xxx.xxx.xxx.xxx:nnnn.

      Also, I don't see a lot of value in sprintfing the handle, over the default stringification 'GLOB(0xHHHHHH)"?

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
      $unique{$new_conn}++;

$unique_id = "$client $unique{$client}";

      [download]

      glob plus counter per glob

[reply]
[d/l]

In Section Seekers of Perl Wisdom