chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
verbosity
[bin.git]
/
grep-services
1
#! /usr/bin/perl -ws
2
use strict;
3
use vars qw($f);
4
5
sub getservice ($)
6
{
7
(my $search) = @_;
8
9
open SERVICES, "/etc/services" or die "Couldn't open /etc/services";
10
while (<SERVICES>) { print if /\b\Q$search\E\b/; }
11
close SERVICES;
12
}
13
14
if ($f)
15
{
16
while (<>)
17
{
18
chomp;
19
getservice $_;
20
}
21
}
22
else
23
{
24
while (defined (my $arg = shift))
25
{
26
getservice $arg;
27
}
28
}