Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Service: port to name

by The Mad Hatter (Priest)
on Mar 21, 2004 at 18:17 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://338493]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-03-29 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found