..$rs-count) {
$book = $rs-match($i);
print $book-title_proper, \n;
... other MARC::Record operations here ...
}
But it will be a little while till it's ready for release. Bug me if
you want me to hurry. :-)
HTH,
Paul.
--
Paul Hoffman :: Taubman Medical Library :: Univ
')-subfield('9') };
But this it will fail getting 035 $a
$subfield = eval { $record-field('035')-subfield('a') };
@subfields = eval { $record-field('035')-subfield('a') };
I don't see how this can be. Am I missing something?
Paul.
-Ursprungligt meddelande-
Från: Paul Hoffman [mailto:[EMAIL
On Friday, November 7, 2003, at 08:23 AM, Paul Hoffman wrote:
On Thursday, November 6, 2003, at 08:45 PM, Leif Andersson wrote:
Assume we have a record with two 035 fields
035 -- $91234567
035 -- $a(XX)12345678
Now, this code will get the 035 $9 subfield:
$subfield = eval { $record-field('035
suite
closely, but what I've seen looks very well done, so you should be able
to learn from it.
Paul.
--
Paul Hoffman :: Taubman Medical Library :: Univ. of Michigan
[EMAIL PROTECTED] :: [EMAIL PROTECTED] :: http://www.nkuitse.com/
(including a tutorial) see
URL:http://www.xmltwig.com/xmltwig/.
Paul.
--
Paul Hoffman :: Taubman Medical Library :: Univ. of Michigan
[EMAIL PROTECTED] :: [EMAIL PROTECTED] :: http://www.nkuitse.com/
author: $author\n title: $title\n id: $id\n\n;
Have you considered using a regular expression to extract the teiHeader?
Maybe the folks at PerlMonks would have some helpful suggestions.
Paul.
--
Paul Hoffman :: Taubman Medical Library :: Univ. of Michigan
[EMAIL PROTECTED] :: [EMAIL
.
Andrew Houghton, OCLC Online Computer Library Center, Inc.
http://www.oclc.org/about/
http://www.oclc.org/research/staff/houghton.htm
--
Paul Hoffman :: Taubman Medical Library :: Univ. of Michigan
[EMAIL PROTECTED] :: [EMAIL PROTECTED] :: http://www.nkuitse.com/
'e and f' expressions.
Paul.
--
Paul Hoffman :: [EMAIL PROTECTED] :: http://www.nkuitse.com/
On Tue, Jan 18, 2011 at 09:09:59AM -0500, Galen Charlton wrote:
Hi,
On Tue, Jan 18, 2011 at 9:06 AM, Paul Hoffman nkui...@nkuitse.com wrote:
IMO this belongs in a separate module, not in MARC::Batch or
MARC::Record. Small pieces, loosely joined!
MARC::Record and MARC::Batch
from CPAN and install manually. I wrote it, so I'm biased, but
I think it's good for people who prefer to (or have to) work closer to
the raw MARC record. (Fixing miscoded records that MARC::Record et al.
couldn't handle was what motivated me to write it in the first place.)
Paul.
--
Paul Hoffman
) {
my $sysnum = sysnum($item_marc);
push @{ $records{$sysnum} }, $item_marc;
}
$file-close;
print @$_ for values %records;
8888888
Let us know if you need help writing read_next_record_from() or
sysnum().
Paul.
--
Paul Hoffman
:
6c 27 41 72 63 68 69 63 6f 6e 66 72 c3 83 c2 a9 |l'ArchiconfrÃ.©|
0010 72 69 65 |rie|
LATIN SMALL LETTER E WITH ACUTE is supposed to be c3 a9 (as it is in the
first marcdump output) not c3 83 c2 a9.
Paul.
--
Paul Hoffman nkui...@nkuitse.com
12 matches
Mail list logo