#!/user/bin/perl

 

if ($#ARGV != 3) {

                print "At command line, enter 2 files. First is full text and second is the name text only. Third and fourth are names of outfiles.\n";

die "usage: entermname.pl <command line arg 1> <command line arg 2> <command line arg 3> <command line  4>\n";

}

$command_line_parameter1 = $ARGV[0];                           
# This is file with all categories/columns described earlier. 

$command_line_parameter2 = $ARGV[1];                           
# This is file with names to check against.

$command_line_parameter3 = $ARGV[2];                           
# This is output file for matches.

$command_line_parameter4 = $ARGV[3];                           
# This is output file with three columns.

 

$milcar = @milliony;

 

open(inf,"<$milcar");

while(chomp($line = <inf>)){

                ...  # stuck on what to type here

}

 

my %assigned_million = (

"$milliony[$i][0] $milliony[$i][1]" => "$milliony[$i][4]");  
# Am I missing "and" between names in key? 
# Trying to define keys in terms of two-dimensional array

 
$hash_value = $assigned_million{$key};

if(!$hash_value or $value > $hash_value){

                $assigned_million{$key} = $value;		
# changing integer2

}

 

 
$outfile_uno = @newnamecheck;  

my %newnam = (

"$newnamecheck[$i][0] $newnamecheck[$i][1]" => undef);      
# Am I missing "and" between names in key?

 
open(inf,"<$milcar");

while(chomp($line = <inf>)){
..........			# stuck here with loop

}

if($assigned_million{$key} eq $newnamecheck{$key}){

 

open(FH,">>$outfile_dos") or die "Cannot open outfile $outfile_dos\n";

print FH "$assigned_million{$key}\n"; 

close(FH);

} 

 

 

@sorted = sort{$a->[1] cmp $b->[1] || $a->[0] cmp $b->[0]} @milliony;

 

 

open(FH, ">$outfile_dos" or

die "Can't write to $outfile_dos.\n";

{ print FH "$sorted[$i][0], $sorted[$i][1], $sorted[$i][4]"; }

close(FH);