What's up with all these duplicate songs?

Comments

1 comment posted
perl correction

Looks like some stuff got interpreted as html tags. Let's see if this works any better:


perl -e 'while (<STDIN>) { $_ =~ /.*<SEP>.*<SEP>(.*)<SEP>(.*)$/; $val = "$1 --- $2"; $vals{$val} = $vals{$val} + 1; } @keys = keys(%vals); @keys = sort(@keys); foreach $key (@keys) { if ($vals{$key} > 1) { print "$key $vals{$key}\n"; } } ' < millionsong/AdditionalFiles/unique_tracks.txt > /tmp/u.txt

Posted by mhoffman on Tue, 02/15/2011 - 17:11