sub ProcesarFichero ($ $ $ $){
   my $NombreFichero=shift;
   my $tipoaccion = shift;
   my $AlumnosInsertados = shift; # referencia
   my $AlumnosRepetidos = shift; # referencia
   
  if (-e,$NombreFichero){
    #Fichero existe
   
    my $RutaFichero='c:/temp/'.$NombreFichero;
    my $i=0;
    my $salida;
   
   
    if ($tipoaccion eq 'alta') {
      my @text = read_file( $RutaFichero ) ;

           
      overwrite_file('c:\temp\test123.txt',"");
     
      append_file('c:\temp\test123.txt',"numero de filas ".scalar(@text)."\n");
      for ($i = 0; $i < scalar(@text); $i++) {
       
         chomp($text[$i]);
         
         my $linea=$text[$i];
         
        append_file('c:\temp\test123.txt',"-$i-$text[$i]-<br>\n");         
         
         my $NIF=substr($linea,0,10);
         my $curso=substr($linea,21,3);
            if (($NIF ne '') and ($curso ne '')){
           if (ValidarLinea($linea)==1){
           my $NIF=substr($linea,0,10);
         
           
           if (ValidarNIF($NIF)==1){
              $salida=InsertarAlumnos($linea);
              append_file('c:\temp\test123.txt',"el NIF insertado".$NIF."\n");
                     
               if ($salida==1){
                  #insertar sin  problemas
                  $$AlumnosInsertados=$$AlumnosInsertados + 1;
             
                }else{
                 #con problemas
                 $$AlumnosRepetidos=$$AlumnosRepetidos + 1;
           
                }
            }else{
               $$AlumnosRepetidos=$$AlumnosRepetidos + 1;
            }
        }
        else {
          $$AlumnosRepetidos=$$AlumnosRepetidos + 1;
         
        }
       }else{
        append_file('c:\temp\text123.txt',"NIf vacio".$NIF."\n");
       }
       $|=1;
     } # finfor
     append_file('c:\temp\test123.txt',"NUM. LINEAS =".scalar(@text)."<BR>\n");
      $$AlumnosRepetidos=scalar(@text) - $$AlumnosInsertados;
    }

sub DibujarSalidaAlta($ $ $){
   my $DIRPLANTILLAESINE = shift;
   my $AlumnosInsertados = shift;
   my $AlumnosRepetidos = shift;
   
   
    print "Content-type: text/html\n\n";
   my $plantillaAlta = read_file($DIRPLANTILLAESINE."OpcionesESINE.htm");

   
   
 append_file('c:\temp\test123.txt',"ini dibujarsalidaalta\n");
   my $sustituye0='<input  type="file" name="archivo"><br>';
   $plantillaAlta=~ s/\<!--SeleccionaArchivo-->/$sustituye0/;
   my $sustituye1;
   
   $sustituye1="Alumnos Insertados: ".$AlumnosInsertados."\n";
   $plantillaAlta=~ s/<!--CargadosAlta1-->/$sustituye1/;
#   
   my $sustituye2="Alumnos con Problemas: ".$AlumnosRepetidos."\n";
   $plantillaAlta=~ s/<!--CargadosAlta2-->/$sustituye2/;
   print "Content-type: text/html\n\n";
   print $plantillaAlta;
   append_file('c:\temp\test123.txt'," Imprimo plantilla de alta\n"); 

}