[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc dumpmarc.pl,NONE,1.1
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/misc dumpmarc.pl,NONE,1.1 |
Date: |
Tue, 20 May 2003 08:48:25 -0700 |
Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv13452/misc
Added Files:
dumpmarc.pl
Log Message:
a little sample script that dump a iso2709 file. call it with :
dumpmarc.pl -file /path/to/your/iso2709.file
--- NEW FILE ---
#!/usr/bin/perl
# small script that dumps an iso2709 file.
use strict;
# Koha modules used
use MARC::File::USMARC;
use MARC::Record;
use MARC::Batch;
use Getopt::Long;
my ( $input_marc_file);
GetOptions(
'file:s' => \$input_marc_file
);
my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
$batch->warnings_off();
$batch->strict_off();
while ( my $record = $batch->next() ) {
print $record->as_formatted();
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc dumpmarc.pl,NONE,1.1,
Paul POULAIN <=