#!/usr/bin/perl -w
#this file is for grepping within vdx files, and outputs the following:
#filename:<#of hits>:<arguments>
#filename:2:myargument
open ARGUMENTS, "<","file";
@files = <*.vdx>;
@arguments = <ARGUMENTS>;
$ENV{file}=$file;
$ENV{argument}=$argument;
foreach $file (@files) {
    #$copyfile="\"".$file."\"";
   foreach $argument (@arguments) {
    chomp $argument;
    #print "$copyfile\n";
    $results=`grep -c -H "\$argument" "\$file"` /dev/null;
    chomp $results;
    print "$results:$arguments\n";
    }
}