extractpaths

大名鼎鼎的传感器网络仿真实验室平台SENSE

#! /usr/bin/perl -w
#
#  extractPaths
#
#  Copyright 2006 Mark Lisee, Boleslaw K. Szymanski and Rensselaer Polytechnic
#  Institute. All worldwide rights reserved.  A license to use, copy, modify
#  and distribute this software for non-commercial research purposes only is
#  hereby granted, provided that this copyright notice and accompanying
#  disclaimer is not modified or removed from the software.
#
#  DISCLAIMER: The software is distributed "AS IS" without any express or
#  implied warranty, including but not limited to, any implied warranties of
#  merchantability or fitness for a particular purpose or any warranty of
#  non-infringement of any current or pending patent rights. The authors of
#  the software make no representations about the suitability of this software
#  for any particular purpose. The entire risk as to the quality and
#  performance of the software is with the user. Should the software prove
#  defective, the user assumes the cost of all necessary servicing, repair or
#  correction. In particular, neither Rensselaer Polytechnic Institute, nor
#  the authors of the software are liable for any indirect, special,
#  consequential, or incidental damages related to the software, to the maximum
#  extent the law permits.
#

#
# Usage: extractPaths <string> <inFile> > outFile
#
# Takes as input a path file and a string. Removes from the path file all
# paths whose description (comment at the start of the path) do not contain
# the string. The matching paths are written to stdout
#

my $string = $ARGV[0];
shift;
my $doPrint = 0;

# read lines from input file until EOF
while (<>)
{
    # print lines from a matching header to end marker (##), inclusive
    if (/$string/ .. /##/) {
	print;
	$doPrint = 1;
    }
    # otherwise, print a single blank line
    else {
	if ($doPrint == 1) {
	    print "\n";
	    $doPrint = 0;
	}
    }
}