open(FILE,'<fff.txt');
while(my $line = <FILE>){

}
close FILE;
#PARA CONTAR LAS LÍNEAS SIMPLEMENTE $i++;

$fichero = "salida1";
@resto = splice( @lineas, 3_000 );
print "Salida en fichero 1 $fichero\n";
# Aquí grabamos las @lineas

++$fichero;
if ( @resto ) {
    print "Salida en fichero 2 $fichero\n";
    # Aquí grabamos el @resto
}

################///Abrir Directorio
    opendir DIR, "$s_Dir" or die "ERR: Al leer directorio [ " . $s_Dir ."]\n";
    my @a_Archivos = readdir (DIR);
    close DIR;
###############///Abrir Archivo
sub leeArchivoArr{

    foreach my $s_NombreArchivo (@a_Archivos){
    my $s_Archivo = $s_Dir . "/" . $s_NombreArchivo;
    open IN, "$s_Archivo"  or die "ERR: Al abrir [ $s_Archivo ]\n";
     my $i_ContLineas = 0;
    while (<IN>) {
       $i_ContLineas++;
     }
    print "INF: Archivo [$s_Archivo] con [$i_ContLineas ] Lineas\n";
    close IN;
###############///comparacion
     while (scalar @a_Archivo >3000){

         my @a_arreglo3000 = splice @a_Archivo,3000;
         my $s_archivonuevo = "$home" + "$s_archivonuevo" + "$i_Contarchivo";

          open OUT ,">$s_archivonuevo";
          print OUT "$s_arreglo3000\n";
          close OUT;
          my $s_contArchivo = 0;
          $s_contArchivo ++;
          }

     if ($a_Archivo < 3000){
        my $s_archivonuevo = "$home" + "$s_archivonuevo" + "$i_Contarchivo";

          open OUT ,">$s_archivonuevo";
          print OUT "$a_Archivo";
           close OUT;
           }
}

#!/usr/bin/env perl
use strict;
use Cwd;

my $s_Dir = getcwd();
opendir DIR, "$s_Dir" or die "ERR: Al leer directorio [ " . $s_Dir ."]\n";
my @a_Archivos = readdir (DIR);
closedir DIR;

sub leerArchivoArr {
  foreach my $file (@a_Archivos){
    if(-f $file){ # si es un fichero...
      open IN, $file or die "Error: $_ $!\n";
      my $linea = 0;
      while(<IN>){
          $linea++;
      }
      close IN;
      print "INF: Archivo [$s_Dir/$file] con [$linea] Lineas\n";
    }
  }
}
leerArchivoArr();

my $s_archivonuevo = "$home" + "$s_archivonuevo" + "$i_Contarchivo";

/Abrir Directorio
    opendir DIR, "$s_Dir" or die "ERR: Al leer directorio [ " . $s_Dir ."]\n";
    my @a_Archivos = readdir (DIR);
    close DIR;
###############///Abrir Archivo
sub leeArchivoArr{

    foreach my $s_NombreArchivo (@a_Archivos){
    my $s_Archivo = $s_Dir . "/" . $s_NombreArchivo;
    open IN, "$s_Archivo"  or die "ERR: Al abrir [ $s_Archivo ]\n";
     my $i_ContLineas = 0;
     my @a_Archivo = <IN>;
    print "INF: Archivo [$s_Archivo] con [$i_ContLineas ] Lineas\n";
    close IN;
###############///comparacion
       my $s_contArchivo1 = 0;
     while (scalar @a_Archivo >3000){

          my @a_arreglo3000 = splice (@a_Archivo,3000);
         my $s_archivonuevo = $ENV{"HOME"}."$s_NombreArchivo"."$s_contArchivo1";

          open OUT ,">$s_archivonuevo";
          print OUT "$s_Archivo\n";
          close OUT;
          $s_contArchivo1 ++;
          }

     if (@a_Archivo < 3000){
        my $s_contArchivo = 0;
        my $s_archivonuevo = $ENV{"HOME"}."$s_NombreArchivo" . "$s_contArchivo";

          open OUT ,">$s_archivonuevo";
          print OUT "$s_Archivo";
           close OUT;
          $s_contArchivo ++;
           }
}

    1 #!/usr/bin/perl
    2
    3 use warnings;
    4 use strict;
    5
    6 my $s_Dir = 'ficheros';
    7
    8 ### Abrir Directorio
    9 opendir DIR, "$s_Dir" or die "ERR: Al leer directorio [ $s_Dir ]\n";
   10 my @a_Archivos = grep { -f "$s_Dir/$_" } readdir (DIR);
   11 close DIR;
   12
   13 ### Abrir Archivo
   14 foreach my $s_NombreArchivo ( @a_Archivos ) {
   15     my $s_Archivo = $s_Dir . "/" . $s_NombreArchivo;
   16     open IN, "$s_Archivo" or die "ERR: Al abrir [ $s_Archivo ]\n";
   17     my @a_Archivo = <IN>;
   18     print "INF: Archivo [$s_Archivo] con [", scalar @a_Archivo, "] Lineas\n";
   19     close IN;
   20
   21     ### Comparación
   22     my $s_contArchivo1  = 1;
   23     while ( @a_Archivo > 3000 ) {
   24         my @a_arreglo3000 = splice(@a_Archivo, 0, 3000);
   25         my $s_archivonuevo = $ENV{"HOME"}."/$s_NombreArchivo$s_contArchivo1";
   26
   27         print "INF: Archivo salida [$s_archivonuevo]\n";
   28         open OUT ,">$s_archivonuevo";;
   29         print OUT @a_arreglo3000;
   30         close OUT;
   31         $s_contArchivo1++;
   32     }
   33
   34     if (@a_Archivo <= 3000) {
   35         my $s_archivonuevo = $ENV{"HOME"}."/$s_NombreArchivo$s_contArchivo1";
   36
   37         print "INF: Archivo salida [$s_archivonuevo]\n";
   38         open OUT ,">$s_archivonuevo";
   39         print OUT @a_Archivo;
   40         close OUT;
   41         $s_contArchivo1++;
   42     }
   43 }

    1 #!/usr/bin/perl
    2
    3 use warnings;
    4 use strict;
    5
    6 my $s_Dir = 'ficheros';
    7
    8 # Abrir Directorio
    9 opendir DIR, "$s_Dir" or die "ERR: Al leer directorio [ $s_Dir ]\n";
   10 my @a_Archivos = grep { -f "$s_Dir/$_" } readdir (DIR);
   11 close DIR;
   12
   13 ### Abrir Archivo
   14 foreach my $s_NombreArchivo ( @a_Archivos ) {
   15     my $s_Archivo = $s_Dir . "/" . $s_NombreArchivo;
   16     open IN, "$s_Archivo" or die "ERR: Al abrir [ $s_Archivo ]\n";
   17     my @a_Archivo = <IN>;
   18     print "INF: Archivo [$s_Archivo] con [", scalar @a_Archivo, "] Lineas\n";
   19     close IN;
   20
   21     ### Comparación
   22     my $s_contador = 1;
   23     while ( @a_Archivo ) {
   24         my @a_arreglo3000 = splice(@a_Archivo, 0, 3000);
   25         my $s_salida = "$ENV{HOME}/$s_NombreArchivo$s_contador";
   26         print "INF: Archivo salida [$s_salida]\n";
   27         open OUT ,">$s_salida";
   28         print OUT @a_arreglo3000;
   29         close OUT;
   30         $s_contador++;
   31     }
   32 }