7 print "Querying hermes for $arg ... ";
9 my $pid = open FINGER, "-|";
12 print "can't fork: $!\n";
17 if (not exec 'finger', "$arg\@hermes")
19 print "can't exec finger: $!\n";
28 my $finger = <FINGER>;
31 unless (defined $finger)
37 my @people = split /\n/, $finger;
38 foreach my $person (@people)
40 $person =~ s/^([^ ]*) *(.{1,20}[^ ]).*$/$1\t$2/ or $person = '';
42 @people = grep /./, @people;
44 if (@people == 0) { print "no matches\n"; exit 1; }
45 elsif (@people == 1) { print "1 match\n"; }
46 else { print scalar(@people), " matches\n"; }
48 print "$_\n" foreach @people;