Foro - Perl en Español

por **enric73** » 2016-06-14 15:51 @702

Buenas.

Necesito elegir un directorio entre dos. Quiero seleccionar el directorio que tenga más ficheros y guardar su dirección con el nombre de $grib-directory, por ejemplo, que $grib-direcotory=/home/Enric/gfs-0.5.2016061400

Y en el caso, que los dos tengan 65 ficheros, quedarme con el primer directorio.

El siguiente código me da el número de ficheros por directorio y que tienen en común el término gfs.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$dir = "/home/Enric/GFS0.50/gfs-0.5.2016061400";
opendir(DIR, "$dir");
@FILES = grep { /gfs./ } readdir(DIR);
print $#FILES, "\n";
closedir(DIR);
 
$dir = "/home/Enric/GFS0.50BIS/gfs.2016061400";
opendir(DIR, "$dir");
@FILES = grep { /gfs./ } readdir(DIR);
print $#FILES, "\n";
closedir(DIR);
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Muchas gracias

$dir = "/home/Enric/GFS0.50/gfs-0.5.2016061400";
opendir my $dh, $dir;
$num_gfs = grep {/gfs./} readdir($dh);
print $num_gfs, "\n";
 
$dir2 = "/home/Enric/GFS0.50BIS/gfs.2016061400";
opendir my $dh2, $dir2;
$num_gfs2 = grep {/gfs./} readdir($dh2);
print $num_gfs2, "\n";
 
if ( $num_gfs lt $num_gfs2 ) {
    $grib_file = $dir2;
    print $grib_file, "\n";
}
elsif ( $num_gfs2 lt $num_gfs ) {
    $grib_file = $dir;
    print $grib_file, "\n";
}
elsif ( $num_gfs2 eq $num_gfs ) {
    $grib_file = $dir;
    print $grib_file, "\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2016-06-18 16:51 @743

Es extraño, ese error. Quizás depende de la versión de Perl que estés usando.

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
my $DIR  = "/home/Enric/GFS0.50/gfs-0.5.2016061400";
my $DIR2 = "/home/Enric/GFS0.50BIS/gfs.2016061400";
 
opendir my($dh), $DIR;
my $num_gfs  = grep {/gfs./} readdir($dh);
# print $num_gfs, "\n";
closedir $dh;
 
opendir my($dh2), $DIR2;
my $num_gfs2 = grep {/gfs./} readdir($dh2);
# print $num_gfs2, "\n";
closedir $dh2;
 
my $grib_file  =  $num_gfs >= $num_gfs2  ?  $DIR : $DIR2;
 
say $grib_file;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Contar ficheros en un par de directorios

Contar ficheros en un par de directorios

Publicidad

Re: Contar ficheros en un par de directorios

Re: Contar ficheros en un par de directorios

Re: Contar ficheros en un par de directorios

¿Quién está conectado?