RE: MARC21 record to CIP block

I've been working on code to produce a CIP (P-CIP in my case) block from a
MARC record, using a very literal translation of Visual Basic code into
Perl. Currently, it should be able to produce the datablock, but does not
yet insert line breaks/formatting. The module is currently tailored for
QBI's PCIP, but if I have a chance, I may post some of the code to my site
this weekend.

Example of input and output:

MARC (MARCMaker format provided for readability):

=LDR  00880nam  22002898a 4500
=001  qbi02200951\
=002  006bb
=003  IOrQBI\\
=005  20030103071854.0
=008  021205s2003\\\\iluabf\\\b\\\\001\0deng\d
=010  \\$a  2001999999
=020  \\$a1999999649
=037  \\$a$bQBI
=040  \\$aIOrQBI$cIOrQBI
=999  \\$aPCIP for QBI Web pages
=050  \4$aBF575.H27$bS65 2002
=082  04$a158.1$221
=100  1\$aSmith, Rob$q(Robert Bobbie Bob),$d1966-
=245  14$aThe library, the phonebook, and the philosophical origins of
happiness /$cby Rob Smith and Bob Jones.
=250  \\$a1st ed.
=263  \\$a03--
=300  \\$ap. cm.
=504  \\$aIncludes bibliographical references and index.
=650  \0$aHappiness.
=650  \0$aLibraries$xPsychological aspects.
=650  \0$aTelephone$vDirectories$xPsychological aspects.
=700  1\$aJones, Bob$q(Bob Robert Rob),$d1981-


becomes:

Smith, Rob (Robert Bobbie Bob), 1966-
  The library, the phonebook, and the philosophical origins of happiness /
by Rob Smith and Bob Jones. -- 1st ed.
       p. cm.
  Includes bibliographical references and index.
  LCCN 2001999999
  ISBN 1-9999996-4-9
 1. Happiness. 2. Libraries--Psychological aspects. 3.
Telephone--Directories--Psychological aspects.  I. Jones, Bob (Bob Robert
Rob), 1981- II. Title. 
  BF575.H27S65 2002
  158.1--dc21
                                                          qbi02200951 

-- 

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