Doran: New page: This little (Perl) code snippet may be useful for parsing titles in data being converted to MARC record format. It determines the 245 indicator 2 value (Number of nonfiling characters). ...

2011-03-31T23:59:56Z

New page: This little (Perl) code snippet may be useful for parsing titles in data being converted to MARC record format. It determines the 245 indicator 2 value (Number of nonfiling characters). ...

New page

This little (Perl) code snippet may be useful for parsing titles in data being converted to MARC record format. It determines the 245 indicator 2 value (Number of nonfiling characters). Although it is fairly trivial and only covers a few languages (and may be incomplete or have errors), it can be improved upon, corrected, and added to.

# Search the title string for beginning articles. The 245 field
# indicator 2 is the amount of spaces until the start of the
# article-less title.
#
# English: A, An, The
# German: Das, De, Dem, Den, Der, Des, Die,
# Ein, Eine, Einem, Einer, Eines,
# Keine, Keinen, Keiner
# French: De l', De la, Des, Du,
# L', La, Le, Les
# Un Une
# Spanish: El, La, Las, Los
# Un, Una, Unas, Unos
# Italian: Il
#
my $title_ind2 = "";
if ($title =~ /^Keine[rn] /i) {
$title_ind2 = "7";
} elsif (
$title =~ /^Eine[mrs] /i ||
$title =~ /^Keine /i ||
$title =~ /^De la /i) {
$title_ind2 = "6";
} elsif (
$title =~ /^Eine /i ||
$title =~ /^De l'/i ||
$title =~ /^Un[ao]s /i) {
$title_ind2 = "5";
} elsif (
$title =~ /^The /i ||
$title =~ /^D[ae]s /i ||
$title =~ /^Die /i ||
$title =~ /^De[mnrs] /i ||
$title =~ /^Ein /i ||
$title =~ /^Un[ae] /i ||
$title =~ /^L[aeo]s /i) {
$title_ind2 = "4";
$title_ind2 = "4";
} elsif (
$title =~ /^An /i ||
$title =~ /^D[eu] /i ||
$title =~ /^Un /i ||
$title =~ /^L[ae] /i ||
$title =~ /^El /i ||
$title =~ /^Il /i) {
$title_ind2 = "3";
} elsif (
$title =~ /^A /i ||
$title =~ /^L'/i) {
$title_ind2 = "2";
} else {
$title_ind2 = "0";
}

--[[User:Doran|Doran]] 16:59, 31 March 2011 (PDT)

245 indicator 2 - Revision history

Doran: New page: This little (Perl) code snippet may be useful for parsing titles in data being converted to MARC record format. It determines the 245 indicator 2 value (Number of nonfiling characters). ...