New MARC-related Perl scripts--440s, 008lang zxx

I have posted 2 new Perl .pl programs to my website [1]. Both use a module, MARC::QBI::Misc, not currently available, but it is used only for file handling, so that section of the program should be revised according to local needs.

440to490-830.txt [2]: Converts 440 to 490-830 pairs. Retains subfield 'x' (ISSN) from 440; deletes all square brackets from 830, adds period at the end of the 830 if punctuation is not already present. If any quotes or apostrophes exist in the 440, a period is added before the quote(s) or apostrophe(s) in the 830. I've only done limited testing, so results may not be 100% correct yet.

008langblanktozxx.txt [3]: Converts 008/35-37 from 3 blank spaces to zxx.

##############

Not yet started, but next on my list:

-Convert 'c' in books 008/33 (comic strips) to 008/24-27 '6' (Comics/graphic novels); revise 008/33 to 0 or 1, depending on fiction vs. non-fiction.

-Convert 041 subfield 'b' to 'j' for videorecording records.

##############

I welcome any comments or corrections.

[1] <http://home.inwave.com/eija/>
[2] <http://home.inwave.com/eija/fullrecscripts/Cleanup_full_recs/440to490-830.txt>
[3] <http://home.inwave.com/eija/fullrecscripts/Cleanup_full_recs/008langblanktozxx.txt>

Thank you for your time,

Bryan Baldus
[email protected]
[email protected]
http://home.inwave.com/eija