Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://338493]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2018-02-18 05:19 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (250 votes). Check out past polls.