[Koha-cvs] CVS: koha/misc dumpmarc.pl,NONE,1.1

[Paul POULAIN]

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();
}