#!/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";
    }
}


##</code><code>##

Unquoted string "dev" may clash with future reserved word at ./nelson.pl line 15.
Unquoted string "null" may clash with future reserved word at ./nelson.pl line 15.
Use of uninitialized value in scalar assignment at ./nelson.pl line 8, <ARGUMENTS> line 1.
Use of uninitialized value in scalar assignment at ./nelson.pl line 9, <ARGUMENTS> line 1.
grep: : No such file or directory
Argument "dev" isn't numeric in division (/) at ./nelson.pl line 15, <ARGUMENTS> line 1.
Argument "" isn't numeric in division (/) at ./nelson.pl line 15, <ARGUMENTS> line 1.
Illegal division by zero at ./nelson.pl line 15, <ARGUMENTS> line 1.