The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

003 cleanup script

Description

Runs through each record in file. Compares 001 and 003 fields. Cleans mismatched 003s and outputs to MARC-format file. Reports unmatched 003s.

LIMITATIONS

Currently designed to match only DLC, IOrQBI control numbers. Change those strings to match other needs or add new.

TO DO

Currently only looks for basic match, ignoring trailing spaces. Possible future change, remove extra trailing spaces, making 3-4 spaces after all DLC (workaround for cataloging software problem).

LICENSE

This code may be distributed under the same terms as Perl itself.

Please note that this code is not a product of or supported by the employers of the various contributors to the code.

AUTHOR

Bryan Baldus eija [at] inwave [dot] com

Copyright (c) 2003-2004