Foro - Perl en Español

por **boteropepe** » 2010-03-24 13:09 @590

Hola, tengo dos ficheros; en uno, tengo esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Animales:

                                        <aire>

                                        <tierra>

                                        <agua>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y en el otro fichero, esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

carpa agua

caballo tierra

cerdo tierra

trucha agua

gorrión aire

mosca aireColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que quiero, es generar un fichero con este contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Animales:

                                        gorrión

                                        mosca

                                        caballo

                                        cerdo

                                        carpa

                                        truchaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

O sea, me gustaría poder sustituir el contenido del primer fichero que aparece entre <> por el contenido del segundo. Ni siquiera sé si se puede sustituir el contenido de un fichero con un programa en Perl, sin producir un fichero nuevo (pero esto no me importa tanto, en realidad).

Por otro lado, no sé cómo se leen dos ficheros a la vez, cómo se toma el contenido de uno para copiarlo en el otro, etc.

Por supuesto, no pido que nadie me haga el programa, pero agradezco cualquier pista (si acaso, por lo menos para poder encontrar todo lo necesario en los libros de O'Reilly)

Muchas gracias

Por cada fichero que quieras leer debes hacer un open() para abrirlo.

Podrías leer primero el segundo fichero, guardando cada animal en un arreglo distinto según pertenezca a un medio distinto.

Luego, podrías leer el primer fichero, y cuando encontrases una etiqueta '<>', sustituyes el contenido por una serie de líneas, una por cada animal de ese medio encontrado.

¡Adelante!

por **panterozo** » 2010-03-25 12:11 @549

Me tinka que debe ser algo así:
(les pondré extensiones .txt si no es molestia

)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open FICHERO,"<fichero.txt";#Saca los datos de fichero.txt
while(<FICHERO>){
print$_;#Aquí te muestra línea por línea del archivo fichero.txt
#Bastaría con que guardases sus datos en un arreglo
}
close FICHERO;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si quieres sobrescribir en el archivo ANIMALES.txt, sería

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open FICHERO2,">ANIMALES.txt";
foreach(@arreglo){
print FICHERO2 $_."\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si te fijas en open(), aparece estos tags "<", para leer, ">" para escribir. Esto último lo confirmo si así es...

(CONFIRMADO)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
open N,"<hola.txt";
my@arreglo;
my$i=0;
while(<N>){
$arreglo[$i]=$_;
$i++;
}
close(N);
open NN,">hola.txt";
foreach(@arreglo){
print NN "hola ".$_."\n";
}
close(NN);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No pude evitar hacer algo por el estilo :s... algo como eso es lo que quieres, creo :s...

En el documento hola.txt, se extraen los datos al @arreglo, para luego volver a escribir en el mismo archivo (con sobreescritura) hola y el valor que se sacó anteriormente.

Espero te sirva

saludos

por **boteropepe** » 2010-03-29 11:51 @535

Muchas gracias a los dos, estoy esperando tener tiempo para poder intentarlo (ha venido mucho trabajo de repente), ¡gracias de nuevo!

por **boteropepe** » 2010-04-08 15:15 @677

Hola, escribo aquí porque mi problema es el mismo ahora, solo que se me ha complicado un poco más.

Ahora tengo un fichero con este contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

toro    toro

vaca    toro

ternero toro

ternera toro

caballo caballo

yegua   caballo

potro   caballo

mulo    caballo

burro   caballo

gallina gallo

gallo   gallo

pollito gallo
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y otro fichero con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

"toro"          rumiante: vive en los pesebres

"serpiente"     alimaña: vive salvaje

"caballo"       rumiante: vive en las cuadras

"gallo"         ave de corral: vive en el gallinero

"gato"          animal de compañía: vive en la casa
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como en el caso anterior, lo que querría es sustituir 'toro' en el fichero 2 por 'vaca', 'ternera', etc. (una sustitución por línea), y no perder las líneas de 'gato' y 'serpiente' (que no aparecen en el fichero 1). He probado de varias maneras y siempre me falla algo. Haciendo esta última prueba de abrir un fichero dentro del otro y cerrarlos solo al final, no consigo averiguar cómo puedo hacer para que las líneas de 'gato' y 'serpiente' también aparezcan. Dejo aquí el programa, por si alguien me puede orientar, explicarme qué hago mal y cómo puedo hacerlo mejor o lo que quiera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use locale;
 
open (FILE_1, "$ARGV[0]");
  while (<FILE_1>) {
    chomp;
    my %tipo_animal;
    my ($animal, $tipo) = split (/\t/,$_);
    push (@{$tipo_animal{$tipo}}, $animal);
 
    open (FILE_2, "$ARGV[1]");
      while (<FILE_2>) {
        chomp;
        foreach $tipo (keys %tipo_animal) {
          if ($_ =~ /"$tipo"/) {
            $_ =~ s/(.*)"$tipo"(.*)/$1"@{$tipo_animal{$tipo}}"\t$2/;
            print "$_\n";
          }
        }
      }
    close FILE_2;
  }
close FILE_1;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

por **explorer** » 2010-04-08 16:55 @746

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
# Leer el primer fichero
my %animales;
 
open my $fichero1, q[<], 'kk1.txt' or die "ERROR: No puedo leer kk1.txt: $!\n";
 
while (<$fichero1>) {
    chomp;
 
    my ($valor, $clave) = split;
 
    push @{ $animales{$clave} }, $valor;                # creamos una estructura de un hash de arrays
                                                        # $animales{animal} => [ familiar1, familiar2, ... ];
}
 
close   $fichero1;
 
 
# Leer el segundo fichero
open my $fichero2, q[<], 'kk2.txt' or die "ERROR: No puedo abrir kk2.txt: $!\n";
 
while (my $linea = <$fichero2>) {
 
    print $linea;                                       # sacamos la propia línea
 
    my ($animal) = $linea =~ /^"(\w+)/;                 # ver qué animalejo es
 
    for my $otro_animal ( @{ $animales{ $animal } } ) { # para toda su familia
 
        next if $animal eq $otro_animal;                # excepto él mismo (ya lo hemos sacado antes)
 
        $linea =~ s/^"\w+/"$otro_animal/;               # sustitución
 
        print $linea;                                   # impresión
    }
}
 
close   $fichero2;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

"toro"          rumiante: vive en los pesebres

"vaca"          rumiante: vive en los pesebres

"ternero"          rumiante: vive en los pesebres

"ternera"          rumiante: vive en los pesebres

"serpiente"     alimaña: vive salvaje

"caballo"       rumiante: vive en las cuadras

"yegua"       rumiante: vive en las cuadras

"potro"       rumiante: vive en las cuadras

"mulo"       rumiante: vive en las cuadras

"burro"       rumiante: vive en las cuadras

"gallo"         ave de corral: vive en el gallinero

"gallina"         ave de corral: vive en el gallinero

"pollito"         ave de corral: vive en el gallinero

"gato"          animal de compañía: vive en la casa
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **boteropepe** » 2010-04-09 06:00 @291

¡¡MUCHÍSIMAS GRACIAS!!!

No se me había ocurrido hacerlo así; además he aprendido dos cosas nuevas que no tenía ni idea de cómo hacer ni de cómo buscar (guardar el contenido parcial de una línea en una variable, sobre todo, que seguro que me sirve para mucho más).

Foro - Perl en Español

Modificar un fichero con el contenido de otro

Modificar un fichero con el contenido de otro

Publicidad

Re: Modificar un fichero con el contenido de otro

Re: Modificar un fichero con el contenido de otro

Re: Modificar un fichero con el contenido de otro

Re: Modificar un fichero con el contenido de otro (más)

Re: Modificar un fichero con el contenido de otro

Re: Modificar un fichero con el contenido de otro

¿Quién está conectado?