Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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"; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://338493]
help
Chatterbox?
[shmem]: hm. That should be "an artist's expression"
[RonW]: Happy Thanksgiving Eve
[RonW]: and no panic, here. We're staying home, safe from the frenzy in the stores

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (12)
As of 2017-11-22 16:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (327 votes). Check out past polls.

    Notices?