test/tools/gnuplotitems.pl

   1 #!/usr/bin/perl
   2
   3 my $find = $ARGV[0];
   4 my $fname = $ARGV[1];
   5 print "# $find, $fname\n";
   6 open(INFILE,"<$fname");
   7 while (<INFILE>) {
   8   if (/(.*) # $find/) {
   9     print "$1\n";
  10   } else {
  11     if (/# $find/) {
  12       print "\n";
  13     }
  14   }
  15 }
  16 close(INFILE);