Linux Certif

Toute la documentation sur la certification Linux LPI

Net::Finger.3pm

NAME

Net::Finger - a Perl implementation of a finger client.

SYNOPSIS

   use Net::Finger;
 
 

   # You can put the response in a scalar...
   $response = finger('corbeau@execpc.com');
   unless ($response) {
       warn "Finger problem: $Net::Finger::error";
   }
 
 

   # ...or an array.
   @lines = finger('corbeau@execpc.com', 1);
 
 

DESCRIPTION

Net::Finger is a simple, straightforward implementation of a finger client in Perl --- so simple, in fact, that writing this documentation is almost unnecessary.

This module has one automatically exported function, appropriately entitled "finger()". It takes two arguments:

•

A username or email address to finger. (Yes, it does support the vaguely deprecated ``user@host@host'' syntax.) If you need to use a port other than the default finger port (79), you can specify it like so: ``username@hostname:port''.

•

(Optional) A boolean value for verbosity. True == verbose output. If you don't give it a value, it defaults to false. Actually, whether this output will differ from the non-verbose version at all is up to the finger server.

"finger()" is context-sensitive. If it's used in a scalar context, it will return the server's response in one large string. If it's used in an array context, it will return the response as a list, line by line. If an error of some sort occurs, it returns undef and puts a string describing the error into the package global variable $Net::Finger::error. If you'd like to see some excessively verbose output describing every step "finger()" takes while talking to the other server, put a true value in the variable $Net::Finger::debug.

Here's a sample program that implements a very tiny, stripped-down finger(1):

     #!/usr/bin/perl -w
 
 

     use Net::Finger;
     use Getopt::Std;
     use vars qw($opt_l);
 
 

     getopts('l');
     $x = finger($ARGV[0], $opt_l);
 
 

     if ($x) {
         print $x;
     } else {
         warn "$0: error: $Net::Finger::error\n";
     }
 
 

BUGS

•

Doesn't yet do non-blocking requests. (FITNR. Really.)

•

Doesn't do local requests unless there's a finger server running on localhost.

•

Contrary to the name's implications, this module involves no teledildonics.

AUTHOR

Dennis Taylor, <corbeau@execpc.com>

SEE ALSO

perl(1), finger(1), RFC 1288.