Hi Leif, > you can simply read from your database (i.e. your statement handle) like you > were reading from a file.
Very interesting! Tack för att du tog dig tid att lägga ett tillägg! A bit on the bleeding edge for me, perhaps, but I may try it for the experience. -- Michael # Michael Doran, Systems Librarian # University of Texas at Arlington # 817-272-5326 office # 817-688-1926 mobile # do...@uta.edu # http://rocky.uta.edu/doran/ > -----Original Message----- > From: Leif Andersson [mailto:leif.anders...@sub.su.se] > Sent: Monday, January 10, 2011 8:35 AM > To: Doran, Michael D; perl4lib > Subject: Re: MARC blob to MARC::Record object > > I hope you will forgive me for a late addendum. > Not only do I have to apologize for the late arrival of this post, I also > should apologize for its (lack of) seriousness. > Actually - this is in every respect just a programming scherzo, so to speak. > (Even though the code below works, at least for me) > Now you are all warned. ;-) > > So: If you are used to letting MARC::Batch read the records from a file, then > you can simply read from your database (i.e. your statement handle) like you > were reading from a file. > Like this: > > <code> > #!/usr/local/bin/perl -w > use DBI; > use MARC::Batch; > use strict; > #BEGIN { > # $ENV{NLS_LANG} = ...; > #} > my $dbh = DBI->connect(...) || die 1; > $dbh->{LongReadLen} = 99999; > $dbh->{LongTruncOk} = 0; > my $sql = q( select GetBibBlob(bib_id) from bib_master where rownum <= 3 ); > my $sth = $dbh->prepare($sql) || die 2; > my $rv = $sth->execute() || die 3; > # add some magic: > tie(*MARC, 'dbfile', $sth); > # pass the virtual filehandle to MARC::Batch > my $batch = MARC::Batch->new('USMARC', *MARC ); > $batch->strict_off; > # read as usual > while ( my $marc = $batch->next ) { > print $marc->as_formatted(), "\n\n"; > } > > #--------------- > package dbfile; > use strict; > sub TIEHANDLE { > my ($class, $sth) = @_; > my $i = { 'sth' => $sth, > 'eof' => 0, }; > bless $i, $class; > } > sub READLINE { > my ($marc) = $_[0]->{sth}->fetchrow_array() ; > if (defined $marc) { > my $len = substr($marc,0,5); > return substr($marc,0,$len); > } > else { > $_[0]->{'eof'} = 1; > return undef; > } > } > sub EOF { > # eof() > $_[0]->{'eof'}; > } > sub FILENO {1} > sub BINMODE {1} > sub CLOSE {1} > sub DESTROY {1} > __END__ > </code> > > That's all folks, > > /Leif > Leif Andersson, Systems Librarian > Stockholm University Library > > ________________________________________ > Från: Doran, Michael D [do...@uta.edu] > Skickat: den 7 januari 2011 15:11 > Till: Leif Andersson; 'Jon Gorman'; perl4lib > Ämne: RE: MARC blob to MARC::Record object > > Hi Leif and Jon, > > > use MARC::Record; > > ... > > my $record = MARC::Record->new_from_usmarc( $blob ); > > This works! > > > From: Jon Gorman [mailto:jonathan.gor...@gmail.com] > > Sent: Friday, January 07, 2011 7:51 AM > > You'll probably think of this when you get up, but did you make sure > > to import the package? ie use MARC::FILE::USMARC;? > > This made the other way work, too! (I had only "use MARC::File") > > Much thanks to Leif and Jon. > > -- Michael > > # Michael Doran, Systems Librarian > # University of Texas at Arlington > # 817-272-5326 office > # 817-688-1926 mobile > # do...@uta.edu > # http://rocky.uta.edu/doran/ > > > -----Original Message----- > > From: Leif Andersson [mailto:leif.anders...@sub.su.se] > > Sent: Friday, January 07, 2011 7:50 AM > > To: Doran, Michael D; perl4lib > > Subject: Re: MARC blob to MARC::Record object > > > > Hi Michael, > > > > this is how I - in principle - usually do it: > > > > use MARC::Record; > > ... > > my $record = MARC::Record->new_from_usmarc( $blob ); > > > > /Leif > > > > Leif Andersson, Systems librarian > > Stockholm University Library > > ________________________________________ > > Från: Doran, Michael D [do...@uta.edu] > > Skickat: den 7 januari 2011 00:18 > > Till: perl4lib > > Ämne: MARC blob to MARC::Record object > > > > I am working on a Perl script that retrieves data from our Voyager ILS via > an > > SQL query. Among other data, I have MARC records in blob form, and the > script > > processes one MARC record at a time. I want to be able to parse and > > modify/convert the MARC record (using MARC::Record) before writing/printing > > data to a file. > > > > How do I make the MARC blob into a MARC::Record object (without having to > > first save it a file and read it in with MARC::File/Batch)? The MARC blob > is > > already in a variable, so it doesn't make sense (to me) to write it out to a > > file just so I can read it back in. Unless I have to, natch. > > > > I apologize if I am missing something obvious. > > > > -- Michael > > > > # Michael Doran, Systems Librarian > > # University of Texas at Arlington > > # 817-272-5326 office > > # 817-688-1926 mobile > > # do...@uta.edu > > # http://rocky.uta.edu/doran/