Shell Programming and Scripting

#/usr/bin/env ksh

# read the named file and output a csv of the desired data
# same awk programme  as in previous posts
function f2csv
{
    awk '
    function printit( )         # always add quotes except for the year field
    {
        if( stuff["auth"] )
        {
            sub( ",$", "",  stuff["des"] );
            printf( "\"%s\",\"%s\",\"%s\",\"%s\",%s\n", stuff["title"], stuff["auth"], stuff["source"], stuff["des"], stuff["year"] );
        }
    }

    /^Record/ { printit(); delete stuff; n = ""; next; }
    /TI:/ { n = "title"; next; }
    /DN:/ { n = "dname"; next; }
    /AU:/ { n = "auth"; next; }
    /DE:/ { n = "des"; next; }
    /PY:/ { n = "year"; next; }
    /SO:/ { n = "source"; next; }
    /^..:/ { n = ""; next; }

    n == "" { next; }

    n == "des" {
        al = split( $0, a, ";" );
        for( i = 1; i <= al; i++ )
        {
            if( substr( a[i], length(a[i]) ) == ")" )
            {
                l = split( a[i], b, " " );
                stuff[n] = stuff[n] substr( b[l], 2, length( b[l] ) - 2 ) ",";
            }
        }
        next;
    }

    { 
        sub( "^ +", "" );
        stuff[n] = stuff[n] $0 " "; next; }

    END { printit(); }
    
    ' $1
}


ls | while read file        # read all files in the directory and run them through the awk
do
    if [[ $file != $1 ]]
    then
        f2csv $file
    fi
done >>$1