From a7ecebc32ef337fe0140fc41caa1c9e1802ba4d8 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 19 Feb 2015 15:33:43 +0100
Subject: [PATCH] convert Aleph mab *.m21 format to ISO marc

---
 scripts/mab2marc.pl | 67 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100755 scripts/mab2marc.pl

diff --git a/scripts/mab2marc.pl b/scripts/mab2marc.pl
new file mode 100755
index 0000000..cf94618
--- /dev/null
+++ b/scripts/mab2marc.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use autodie;
+use MARC::Record;
+use Encode;
+use Data::Dump qw(dump);
+
+open(my $m21, '<', 'agram-3.m21');
+open(my $out, '>:encoding(utf-8)', 'agram-3.marc');
+
+my $last_id;
+my @fields;
+my $marc;
+
+sub new_marc {
+	$marc = new MARC::Record;
+	$marc->encoding('utf-8');
+	return $marc;
+}
+
+$marc = new_marc();
+
+while (<$m21>) {
+	chomp;
+	my ( $id, $rest ) = split(/\s/, $_, 2);
+	my ( $fffii, $sf ) = split(/\s+L\s+/,$rest,2);
+
+	warn "## ",dump( $id, $fffii, $sf );
+
+	$last_id = $id if ! defined $last_id;
+	if ( $id != $last_id ) {
+		print $out $marc->as_usmarc;
+		print "XXX $id\n";
+		print $marc->as_formatted();
+		print "\n";
+		$marc = new_marc();
+		$last_id = $id;
+	}
+
+	if ( $fffii eq 'LDR' ) {
+		$sf =~ s/\^/ /g;
+		$marc->leader( $sf );
+	} elsif ( $fffii =~ m/^00/ ) {
+		my $field = MARC::Field->new( $fffii, $sf );
+		$marc->append_fields( $field );
+	} else {
+		my $f = $1 if $fffii =~ s/^(...)//;
+		my $i1 = $1 if $fffii =~ s/^(.)//;
+		my $i2 = $1 if $fffii =~ s/^(.)//;
+		$i1 ||= ' ';
+		$i2 ||= ' ';
+
+		warn "# $id $fffii -> ", dump($f,$i1,$i2), " [$sf]\n";
+
+		my @f = ( $f, $i1, $i2 );
+
+		while ( $sf =~ s/^\$\$(\w)([^\$]+)// ) {
+			push @f, $1, decode('iso-8859-1', $2);
+		}
+		warn "### ",dump( @f );
+		my $field = MARC::Field->new( @f );
+		$marc->append_fields( $field );
+	}
+}
+	
+
-- 
2.20.1