MUST ... RESIST ... URGE ... FOR ... ONEUPMANSHIP!!!
AAAH!!! ;)
...
while (my $record = $batch->next) {
# find 'em
my @m856 = $record->field('856');
# get rid of 'em
$record->delete_field( $_ ) for @m856;
# map to a hash for direct uniqueness
%u856 = (m
Note: my comments are untested and may not work without modification. Some
parts left to the reader to complete.
On Monday, July 30, 2007 2:16 PM, Michael Bowden wrote:
> @m856 = sort {$a cmp $b} @m856;
@m856 has MARC::Field objects. Comparing them as such are unlikely to
produce desired result
