comprimirCRNL

while (<>) {
        $line++;
        chomp;
        if ($line < 639) {
                # agrego los ultimos campos para la primer planilla
                $_ .= ",'','','','','','',''";
        }
        if (/'$/) {
                print "$_\n";
        } else {
                print "$_\\r\\n";
        }
}

ResponsabilidadSocialEmpresaria/CargaDeDatosEnDrupal/CompresorDeFinesDeLinea (última edición 2008-01-29 14:14:50 efectuada por localhost)