In your foreach loop, you write a new 534 for every 500 that you find. The
first one has the subfield a from it, the 2nd one has a subfield a from the
first and second, etc. What you really want to do is something like:
if (@f500s) {
my @subfields = ();
foreach my $f500 (@f500s) {
+1
I like Leif's proposal. It also might be useful to allow code to
accept multiple values.
-Tim
Timothy Prettyman
LIT/LIbrary Systems
University of Michigan
On May 1, 2006, at 5:41 PM, Leif Andersson wrote:
+1
count can possibly be complemented or replaced with occurrence
Do your records have the utf8 encoding byte set in the LDR? (Byte 9 should
be 'a' for utf8).
-Tim
Timothy Prettyman
University of Michigan LIbrary/LIT
On Tue, Mar 26, 2013 at 4:22 PM, Eric Lease Morgan emor...@nd.edu wrote:
For the life of me I can't figure out how to do reading
= $field-as_string();
Hope this helps
-Tim
Timothy Prettyman
LIT/Library Systems
University of Michigan
On Thu, May 29, 2014 at 12:08 PM, John E Guillory jo...@lsu.edu wrote:
Hello,
Two questions please:
1. I’ve written a script that opens a marc file for reading using
warnings but again the script exited prematurely.
Thanks for assistance.
John
*From:* Timothy Prettyman [mailto:timo...@umich.edu]
*Sent:* Thursday, May 29, 2014 11:23 AM
*To:* John E Guillory
*Cc:* perl4lib@perl.org
*Subject:* Re: sending marc records into a script that uses MARC