- Perl Basics
- Perl - Home
- Perl - Introduction
- Perl - Environment
- Perl - Syntax Overview
- Perl - Data Types
- Perl - Variables
- Perl - Scalars
- Perl - Arrays
- Perl - Hashes
- Perl - IF...ELSE
- Perl - Loops
- Perl - Operators
- Perl - Date & Time
- Perl - Subroutines
- Perl - References
- Perl - Formats
- Perl - File I/O
- Perl - Directories
- Perl - Error Handling
- Perl - Special Variables
- Perl - Coding Standard
- Perl - Regular Expressions
- Perl - Sending Email
- Perl Advanced
- Perl - Socket Programming
- Perl - Object Oriented
- Perl - Database Access
- Perl - CGI Programming
- Perl - Packages & Modules
- Perl - Process Management
- Perl - Embedded Documentation
- Perl - Functions References
- Perl Useful Resources
- Perl - Questions and Answers
- Perl - Quick Guide
- Perl - Useful Resources
- Perl - Discussion
Perl getservbyport Function
Description
This function Translates the service number PORT for the protocol PROTO, returning the service name in a scalar context and the name and associated information in a list context −
($name, $aliases, $port_number, $protocol_name)
This call returns these values based on /etc/services file.
Syntax
Following is the simple syntax for this function −
getservbyport PORT, PROTO
Return Value
This function returns undef on error otherwise service number in scalar context and empty list on error otherwise Service record (name, aliases, port number, protocol name) in list context.
Example
Following is the example code showing its basic usage −
#!/usr/bin/perl ($name, $aliases, $port_number, $protocol_name) = getservbyport(21, "tcp"); print "Name = $name\n"; print "Aliases = $aliases\n"; print "Port Number = $port_number\n"; print "Protocol Name = $protocol_name\n";
When above code is executed, it produces the following result −
Name = ftp Aliases = Port Number = 21 Protocol Name = tcp
perl_function_references.htm
Advertisements