#!/usr/bin/env perl

#
# Prints duplicate entries in a file
#
# usage: find_dup <file>
# Can be used with preloc --strip output to get the duplicate 
# symbols
#

my @file = ();
for my $arg (@ARGV) {
    push @file, $arg;
}

my $file_name = $file[0];
my %tmp_sym_arr = ();
my %symbols = ();

open (my $in, "$file_name") || die "Can't open $file_name: $!";
while (<$in>) {
   if (exists $tmp_sym_arr{$_}){
 	#print "$. --  $tmp_sym_arr{$_} -- $_\n"; 
	if (!exists $symbols{$_}){
	  $symbols{$_} = $_;
	  print "$_";
	}
   }else{
 	$tmp_sym_arr{$_} = $.;
   }
}
close ($in);

