Foro - Perl en Español

por **explorer** » 2010-02-10 07:28 @353

Esta es mi versión, pero no he probado a ver si funciona (tengo unos días muy vagos).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
 
### Pragmas de funcionamiento
use strict;
use warnings;
use diagnostics;
 
 
### Constantes
my $DICCIONARIO = '/home/explorer/Documents/Desarrollo/diccionario_latex.dat';
 
 
### Variables
my $directorio;                         # Guardará el directorio a analizar
my %diccionario;                        # Diccionario Latex -> Español
 
 
### Argumentos
if (@ARGV) {                            # Si el usuario nos lo ha pasado directamente
    $directorio = $ARGV[0];
}
else {                                  # Si no, se lo preguntamos
    print 'Introduzca el nombre del directorio: ';
    $directorio = <>;
    chomp $directorio;
}
 
-d $directorio                          # ¿Es un directorio de verdad?
    or die "ERROR: No encuentro el directorio [$directorio]\n";
 
chdir $directorio
    or die "ERROR: No puedo entrar en ese directorio: $!\n";
 
 
### Lectura del diccionario
open DICC, "<$DICCIONARIO")             # Leer el diccionario
    or die "ERROR: No puedo abrir el diccionario: $!\n";
 
while (<DICC>) {
    chomp;
    my ($latex, $spanish) = split q[,];
 
    $diccionario{$latex} = $spanish;
}
 
close DICC;
 
 
### Programa
for my $fichero (<*>) {                 # Para todos los ficheros del directorio...
    my $fichero_traducido = traduce($fichero);
    print "Traducido:\n$fichero_traducido\n";
}
 
 
### Subrutinas
sub traduce {                           # Traduce un fichero
 
    # Entrada
    my $fichero_a_traducir = $_[0];
 
    # Salida
    my $fichero_traducido;
 
 
    open ARCHIVO, "<$fichero_a_traducir")
        or warn "ERROR: No puedo abrir $fichero_a_traducir: $!\n";
 
    my $numero_lineas;
    my $cambios;
    while (my $linea = <ARCHIVO>) {     # Para cada línea
        $numero_lineas++;
                                        # Para todo el diccionario
        while (my ($latex, $espanol) = each %diccionario) {
            # hacemos la traducción y llevamos la cuenta
            $cambios += $linea =~ s/$latex/$espanol/g;
        }
 
        $fichero_traducido .= $linea;
    }
 
    close ARCHIVO;
 
    print "El archivo $fichero_a_traducir tiene $numero_lineas líneas, con $cambios cambios realizados\n";
 
    return $fichero_traducido;
}
 
__END__
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Al menos, para que veas la idea de cómo organizar la lectura de ficheros y el uso de una subrutina.

Hola, ¿cómo estás? Como le decía ya tengo el script que hace la traducción de los archivos, el único inconveniente es que me guarda en la variable @archivo, las traducciones de los n archivos anteriores, y en el archivo que me pasaste haciéndole unas modificaciones al momento de correr el directorio me dice que no existe, y el hecho es que le pongo la ruta cual debe, en sí de este script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#print "Introdusca el nombre del directorio\n";         #se introduce el listado de archivos a abrir.
 
$direccion ="directorio.dat";                                     
 
open (DIRECTORIO,"<$direccion");                        #se abre el archivo con el listado de los archivos a traducir
 
while (<DIRECTORIO>){                                   #ciclo para separar el nombre de los archivos
 
        chomp;
 
        (@e)=split q[,];
}
close (DIRECTORIO);
 
$dic  = "diccionario.dat";                              # diccionario normal->latex
 
open(DIC,"$dic");                                       # se abre diccionario
 
while (<DIC>) {                                         # ciclo para separar las variables del diccionario
        
        chomp;
 
        ($b,$s) = split q[,];
 
        $dicc{$b} = $s;                                     # lo guardamos en un hash
}
 
close (DIC);
for  $archivo (@e) {   # Para todos los ficheros del directorio...
    
         $archivo = traduce(@archivo);
        
        print "Traducido:\n@archivo\n";
}
 
sub traduce{                                            # se inicia la subrutina
 
open(ARCHIVO,"<$archivo");                              # se abre el archivo a traducir
 
while (<ARCHIVO>) {
 
        $count++ ;                                          # contador de las líneas del archivo
 
        push @archivo, $_;                                  # se guarda en el array del archivo
 
}
 
$count2++;                                              #contador del numero de archivo
 
print "\nEl archivo $count2 tiene $count líneas\n";
 
$n_linea = 1;                                           # número de línea
 
for $linea (@archivo) {
 
        $cambios = 0;
 
        for $b (keys %dicc) {                                # para todas las claves del diccionario
 
        $cambios += $linea =~ s/$b/$dicc{$b}/g;          # hacemos la traducción y llevamos la cuenta
 
        }
 
        open(SALIDA,">>salida.dat");
 
        print SALIDA "\n Archivo: $archivo\n \nLinea $n_linea se realizaron $cambios cambios.\n"; 
 
        chomp;
 
        $n_linea++;
 
        close(SALIDA);
 
        }
 
       return $archivo;
close(ARCHIVO);
}       
 
__END__
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Solo quiero saber cómo hacer que no se me repita la información, es decir, me sale lo siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

El archivo 1 tiene 2 líneas

Traducido:

\[ \ frac{x^2}{x^2 + y^2} + \ frac12 +

 \frac1{1 + \ sqrt{ \frac{21}3 } \]

El archivo 2 tiene 5 líneas    <-----este archivo tiene solo 3 lineas y se le agregan las dos del anterior lo que me da las 5 lineas.

Traducido:

\[ \ frac{x^2}{x^2 + y^2} + \ frac12 +

 \frac1{1 + \ sqrt{ \frac{21}3 } \]

 \left( \frac{ 1 }{\sqrt{\frac{x+1}{x-2}}} \right)

 R_{\mu\nu} - \frac12 g_{\mu\nu} R = \kappa T_{\mu\nu}

 \exp(x) = \mathrm {e}^x = \sum_{n=0}^\inftyxy \frac{x^n}{n!}

El archivo 3 tiene 9 líneas   <---- asi en este se suman los 5 anteriores y se anexan a este

Traducido:

\[ \ frac{x^2}{x^2 + y^2} + \ frac12 +

 \frac1{1 + \ sqrt{ \frac{21}3 } \]

 \left( \frac{ 1 }{\sqrt{\frac{x+1}{x-2}}} \right)

 R_{\mu\nu} - \frac12 g_{\mu\nu} R = \kappa T_{\mu\nu}

 \exp(x) = \mathrm {e}^x = \sum_{n=0}^\inftyxy \frac{x^n}{n!}

 \frac{\sqrt a}{a+b} + \sqrt{ \frac{x+5}{x-5} }

 \sqrt{ 1 + \sqrt{ 1 + \sqrt{ 1 + \sqrt{ 1 +

 \sqrt{ 1 + \sqrt{ 1 + \sqrt{ 1 + x}}}}}}}
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

entonces, todo eso según yo como lo dije se guarda en @archivo, y no sé cómo cerrar el ciclo y que me imprima nada más la salida de un archivo, se cierre y siga con el siguiente archivo. Y lo de tu programa se me hizo interesante pero como lo comente no me acepta el directorio. De antemano por todo mil gracias.

por **explorer** » 2010-02-10 17:48 @783

No estás inicializando la variable @archivo. Debes agregar una línea como

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@archivo = ();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y en cuanto al programa, si sale el error de que el directorio no existe, es que, efectivamente, desde donde se está ejecutando el programa, el directorio indicado no existe (o ha sido mal escrito). A mí si que me funciona.

por **charmin** » 2010-02-10 18:06 @796

Ahora sí, mi explorer, un master. Estuve hasta las 3 de la mañana tratando de resolver este problema y sin nada que se me ocurriera. Muchas gracias, amigo, y que tengas un excelente día.

por **charmin** » 2010-02-12 03:35 @191

Hola, ¿cómo están? Espero y bien. Bueno, este es mi dilema: tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

### Constantes
my $DICCIONARIO = '/home/didier/lenguajes/diccionario.dat';
 
 
### Variables
my $directorio;                         # Guardará el directorio a analizar
my %diccionario;                        # Diccionario Latex -> Español
my $cambios;
### Argumentos
 
 
if (@ARGV) {                            # Si el usuario nos lo ha pasado directamente
    $directorio = $ARGV[0];
}
else {                                  # Si no, se lo preguntamos
    print 'Introduzca el nombre del directorio: ';
    $directorio = <>;
    chomp $directorio;
}
 
-d $directorio                          # ¿Es un directorio de verdad?
    or die "ERROR: No encuentro el directorio [$directorio]\n";
 
chdir $directorio
    or die "ERROR: No puedo entrar en ese directorio: $!\n";
 print $directorio;
### Lectura del diccionario
open (DICC, "<$DICCIONARIO")             # Leer el diccionario
    or die "ERROR: No puedo abrir el diccionario: $!\n";
 
while (<DICC>) {
    chomp;
    my ($latex, $spanish) = split q[,];
 
    $diccionario{$latex} = $spanish;
}
 
close DICC;
 
 
### Programa
for my $fichero (<*>) {                 # Para todos los ficheros del directorio...
    my $fichero_traducido = traduce($fichero);
    print "Traducido:\n$fichero_traducido\n";
}
 
 
### Subrutinas
sub traduce {                           # Traduce un fichero
 
    # Entrada
    my $fichero_a_traducir = $_[0];
 
    # Salida
    my $fichero_traducido;
 
 
    open (ARCHIVO, "<$fichero_a_traducir")
        or warn "ERROR: No puedo abrir $fichero_a_traducir: $!\n";
 
    my $numero_lineas;
    my $cambios;
    while (my $linea = <ARCHIVO>) {     # Para cada línea
        $numero_lineas++;
                                        # Para todo el diccionario
        while (my ($latex, $spanish) = each %diccionario) {
            # hacemos la traducción y llevamos la cuenta
            $cambios += $linea =~ s/$latex/$spanish/g;
        }
 
        $fichero_traducido .= $linea;
    }
 
    close ARCHIVO;
 
    print "El archivo $fichero_a_traducir tiene $numero_lineas líneas, con $cambios cambios realizados\n";
 
    return $fichero_traducido;
}
 
__END__
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este programa me busca todos los ficheros de un directorio y lo ejecuta. Lo que quiero que haga es que me busque un documento donde le indico una lista de archivos que quiero me ejecute y en que dirección en el cual están estos ficheros. Estuve jugando con la función File::Find, pero no pude. Ahora sí que es no más para mejorar este programa.

por **explorer** » 2010-02-12 05:55 @288

File::Find te sirve para buscar archivos por todos los niveles de subcarpetas de un determinado directorio.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use File::Find;


find(\&traduce,@directorios_a_buscar);

sub encontrado {
# $File::Find::name guarda la ruta completa al fichero
# ...
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Enséñanos el código que estás usando con File::Find, a ver si tenemos más pistas.

por **charmin** » 2010-02-16 19:52 @869

Este es el código final del traductor éste. En éste pongo la ruta del directorio, por ejemplo /home/.../directorios/

Después pongo el nombre del archivo a buscar por ejemplo: directorio.dat.

En el archivo directorio.dat está el listado de documentos a traducir. El problema es que solo me lee si los archivos están en el mismo directorio del listado pero si existen carpetas o sub-carpetas donde puedan estar estos archivos no los lee. O no los encuentra. Le llamaré script 1:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

### Argumentos
if (@ARGV) {                            # Si el usuario nos lo ha pasado directamente
    $directorio = $ARGV[0];
}
else {                                  # Si no, se lo preguntamos
    print 'Introduzca el nombre del directorio: ';
    $directorio = <>;
    chomp $directorio;
}
 
#buscador de archivos
print "Introdusca el nombre del Documento con el listado de los archivos a traducir:";
 
$direccion = <STDIN>;
 
open (DATOS,"$direccion");
 
while (<DATOS>){                                        #ciclo para separar el nombre de los archivos
 
        chomp;
 
        (@e)=split q[,];
}
 
close (DATOS);
 
$dic  = "diccionario.dat";                              # diccionario normal->latex
 
open(DIC,"$dic");                                       # se abre diccionario
 
while (<DIC>) {                                         # ciclo para separar las variables del diccionario
 
        chomp;
 
        ($b,$s) = split q[,];
 
        $dicc{$b} = $s;                                     # lo guardamos en un hash
}
 
close (DIC);
 
for  $archivo (@e) {                                    # Para todos los ficheros del directorio...
 
        @archivo=();
 
        $archivo = traduce(@archivo);
 
        print "Traducido:\n@archivo\n";
 
}
 
sub traduce{                                            # se inicia la subrutina
 
open(ARCHIVO,"<$archivo");                              # se abre el archivo a traducir
 
        @archivo = ();
 
        $count=0;
 
while (<ARCHIVO>) {
 
        $count++ ;                                          # contador de las líneas del archivo
 
        push @archivo, $_;                                  # se guarda en el array del archivo
 
}
 
$count2++;                                              #contador del numero de archivo
 
print "\nEl archivo $count2 tiene $count líneas\n";
 
$n_linea = 1;                                           # número de línea
 
for $linea (@archivo) {
 
        $cambios = 0;
 
        for $b (keys %dicc) {                                # para todas las claves del diccionario
 
        $cambios += $linea =~ s/$b/$dicc{$b}/g;          # hacemos la traducción y llevamos la cuenta
 
        }
 
        open(SALIDA,">>salida.log");
 
        print SALIDA "En el Directorio $directorio \n\nEl Archivo: $archivo\n \nEn la linea $n_linea se realizaron $cambios cambios.\n\n";
 
        chomp;
 
        $n_linea++;
 
        close(SALIDA);
 
        }
 
       return $archivo;
 
       close(ARCHIVO);
}
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

con el código que estuve jugando es el siguiente, al cual llamare script 2:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use File::Find;
 
my $dir = '/home/didier/lenguajes/directorios/';
 
find(\&imprimir_archivo_pl, $dir);
 
sub imprimir_archivo_pl{
my $elemento = $_;
 
if(-f $elemento && $elemento =~ /\.dat$/){
print "$File::Find::name\n";
}
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El script 2 me encuentra todos los archivos con extensión ".dat" que se encuentren en todos los subdirectorios; lo que quisiera implementar sería que yo le dé la dirección donde se encuentra un archivo directorio.dat, donde tengo el listado de todos los archivos que quiero traducir; ya que tenga identificados qué archivos quiero que busque, utilice el script 2 y me busque los archivos con los nombres de los archivos que se encuentran en este listado y los traduzca utilizando el script 1. Esa es más o menos la mejora que quiero hacer.

por **explorer** » 2010-02-16 20:15 @885

Bueno, pues entonces el problema se reduce a saber si los ficheros/directorios que nos entregan en el listado, están con ruta relativa o absoluta.

En Perl tienes unos cuantos módulos para manejar esos casos.
* File::Basename te servirá descomponer las partes de una ruta

* File::Spec te servirá para componer las nuevas rutas, de forma compatible según el sistema operativo donde te encuentres.

En caso de que ocurran errores, consulta el valor de la variable $! que guarda el mensaje del último error ocurrido (más información en perlvar). Si te fijas en mis programas, yo siempre hago un die() en caso de que no pueda abrir un fichero, sacando a continuación el valor de $1 para saber porqué.

Foro - Perl en Español

Buscador de archivos para traducir

Re: Buscador de archivos para traducir

Publicidad

Re: Buscador de archivos para traducir

Re: Buscador de archivos para traducir

Re: Buscador de archivos para traducir

Mejorar programa con File::Find

Re: Buscador de archivos para traducir

Re: Buscador de archivos para traducir

Re: Buscador de archivos para traducir

¿Quién está conectado?