File: gserv

package info (click to toggle)
flow-tools 1%3A0.68-10
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,120 kB
  • ctags: 5,259
  • sloc: ansic: 43,197; sh: 1,611; perl: 661; python: 629; yacc: 303; makefile: 206; lex: 49
file content (26 lines) | stat: -rwxr-xr-x 305 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl

#
# convert unix /etc/services format to flow-tools
#

while (<>) {

  chomp;

  next if (/^\s*#/);

  @f = split;

  ($f[1]) = split(/\//, $f[1]);

  $serv{$f[1]} = $f[0];

}

foreach $key (sort numerically keys(%serv)) {
  print "$key $serv{$key}\n";
}

sub numerically { $a <=> $b; }