Foro - Perl en Español

por **explorer** » 2011-05-15 14:18 @637

Consulta la sección CGI dentro de Tutoriales.

Visita también mi CGI mínimo para que veas una forma sencilla de hacer CGI.

Mira también este hilo, con una introducción a lo que es CGI.

#!/usr/local/bin/perl
my %hash_tabla;
my $RutaDks ="/var/www/html/gpresenzia/dorian/dks.txt";
my $RutaArchivo="/var/www/html/gpresenzia/dorian/copia/texto.gtd";
use Scalar::Util qw(looks_like_number);
my $Registro=0;
 
open(dks,$RutaDks) or die "Error abriendo el archivo: $!";
while (<dks>) {chomp;@Fila = split("=", $_);$hash_tabla{$Fila[0]} = $Fila[1];} 
close dks;
 
open FILE, "<".$RutaArchivo or die "Error abriendo el archivo: $!";
@fichero = <FILE>;
close FILE;
 
open(config,">".$RutaArchivo) or die "Error abriendo el archivo: $!";
for (@fichero) 
{
        $arraydks = BuscaDks("$_"); 
        @arraydks = split(",",$arraydks);
        foreach my $elementoarraydks (@arraydks) 
        { 
        s/$elementoarraydks/'DkReemplazo($elementoarraydks)'/;
        $Registro ++;
        print $Registro."\t".$elementoarraydks."\t".DkReemplazo($elementoarraydks)."\n";
                
        }  
                 
        print config $_;
}
close config;
 
 
sub DkReemplazo
        { 
        $var=shift;
        return ($hash_tabla{$var});
        }
sub BuscaDks
{
        $fila=shift;
        $fila =~ m/\>(.*?)\</g;
        return ($1);
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-05-30 15:04 @669

Bienvenido a los foros de Perl en español, DorianRallon.

¿Puedes publicar un extracto pequeño del fichero de entrada, un ejemplo de la salida que sale y un ejemplo de lo que realmente debería salir?

Foro - Perl en Español

Buscar y reemplazar palabras en un archivo

Re: Buscar y reemplazar palabras en un archivo

Publicidad

Re: Buscar y reemplazar palabras en un archivo

Re: Buscar y reemplazar palabras en un archivo

¿Quién está conectado?