use strict;
use warnings;
use MARC::Record;
undef $/;
for (split /\x1D/,<>) {
my $r = MARC::Record->new( $_."\x1D");
print $r->as_formatted;
die;
}merci patron !
technique pour splitter les marc records
Syndication
use strict;
use warnings;
use MARC::Record;
undef $/;
for (split /\x1D/,<>) {
my $r = MARC::Record->new( $_."\x1D");
print $r->as_formatted;
die;
}merci patron !
Poster un nouveau commentaire