Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Service: port to name

by The Mad Hatter (Priest)
on Mar 21, 2004 at 18:17 UTC ( #338493=note: print w/ replies, xml ) Need Help??


in reply to Service: port to name

Here's some code that generates a hash similar to Jeffa's, but it's not a one liner. Meant for use in another program...

#!/usr/bin/perl use warnings; use strict; # Hash that we'll store all the values (the name) in; keys are ports i +n # the form of ###/proto, i.e. 22/tcp my %port2name; open my $fh, '<', '/etc/services' or die "Failed open! $!"; while (<$fh>) { next if /^#/ || /^$/; chomp; s/\s*#.*$//; my ($name, $port) = split /\s+/, $_; $port2name{$port} = $name; } close $fh; # ... do whatever with the hash now # For example, grab arguments from command line and # print out name for each for (@ARGV) { print exists $port2name{$_} ? "$_: $port2name{$_}" : 'Unknown port/proto combination.', "\n"; }


Comment on Re: Service: port to name
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://338493]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (16)
As of 2014-07-23 15:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (145 votes), past polls