15 lines
389 B
Perl
15 lines
389 B
Perl
|
# Format: getservbyport(PORT, PROTOCOL);
|
||
|
|
|
||
|
|
#!/bin/perl
|
||
|
|
print "What is the port number? ";
|
||
|
|
chomp($PORT=<>);
|
||
|
|
|
||
|
|
print "What is the protocol? ";
|
||
|
|
chomp($PROTOCOL=<>);
|
||
|
|
|
||
|
|
($name, $aliases, $port, $proto ) = getservbyport($PORT, $PROTOCOL);
|
||
|
|
print "The getservbyport function returns:
|
||
|
|
name=$name
|
||
|
|
aliases=$aliases
|
||
|
|
port number=$port
|
||
|
|
prototype=$protocol \n";
|