3 # Convert marcdump output back to marc file
9 use Data::Dump qw(dump);
17 if ( $text =~ /^_([a-z])(.+)$/ ) {
20 $text =~ s/^ // || warn "no space in front of: '$text'\n";
29 $_ = decode('utf-8', $_);
33 } elsif ( /^(\d\d\d) (.)(.) (.+)$/ ) {
35 push @fields, [ $1, parse_subfields($4) ];
37 push @fields, [ $1, $2, $3, parse_subfields($4) ];
39 } elsif ( /^\s{7}_([a-z])(.+)$/ ) {
40 push @{ $fields[ $#fields ] }, $1, $2;
42 warn dump( @fields ) if $debug;
44 my $marc = new MARC::Record;
45 $marc->encoding( 'utf-8' );
46 $marc->leader( $leader );
47 $marc->add_fields( @fields );
49 warn $marc->as_formatted, $/, $/;
50 print $marc->as_usmarc;
54 warn "IGNORED: $_\n" if $debug;