pident.pl

无线个域网（WPAN）就是在个人周围空间形成的无线网络

#!/usr/bin/perl -w

use strict 'refs';
use strict 'subs';

if ($#ARGV < 0) {
  &usage;
  exit;
}

sub usage {
  print STDERR " usage: $0 <filepattern> \n";
  exit;
}

my @a = <$ARGV[0]*>;

foreach $file  (@a) {

  my ($pre, $pre2, $suffix) = split(/-/,$file);

  print STDERR "Doing $file \n";
  
  my $command = "grep \'3:5-\' $file | awk \'{if (\$1==\"3:5-identified\") idCount++; count++} END {print $suffix, idCount/count, idCount, count}\'";
  
  system($command); 
 
}