#!/usr/bin/perl

$file_in = $ARGV[0];  # Nome do arquivo que contem a lista de autores

print "sep-aut-unid v 1.0\n";
print "Separa os autores das unidades para processamento do scriptlattes\n";
print "baseado em um arquivo com o lay-out idfcpq|nompes|sglund|sgldep\n\n";


open(FILE_IN, "$file_in") || die "\nNao foi possível abrir o arquivo: $file_in\n";

print "Processando arquivos de entrada...\n";

$conf_arqs_path = "/home/tycho/arqs/unid";

while(<FILE_IN>) {
    $_ =~ s/\n//;
    ($idfcpq,$nompes, $periodo, $unid,$depto) = split ('\|', $_ ) ;

    # processa unidade   
    #$file_out = "unid_".$unid.".dat";
    #open(FILE_OUT, "> $conf_arqs_path/$file_out");
    #print FILE_OUT "$idfcpq , $nompes ,\n";
    #close(FILE_OUT);

    # processa unidade-departamento   
    $file_out = "unid_".$unid."_".$depto.".dat";
    open(FILE_OUT, ">> $conf_arqs_path/$file_out");
    print FILE_OUT "$idfcpq , $nompes , $periodo \n";
    close(FILE_OUT);

}

close(FILE_IN);