elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  CONCATENACION DE CADENAS EN PERL <<URGENTE>>
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: CONCATENACION DE CADENAS EN PERL <<URGENTE>>  (Leído 8,300 veces)
<<The Joker>>

Desconectado Desconectado

Mensajes: 20


"Hasta la victoria siempre..."


Ver Perfil
CONCATENACION DE CADENAS EN PERL <<URGENTE>>
« en: 19 Enero 2006, 20:42 pm »

Saludos de nuevo a la comunidad de elhacker.net.

Esta vez acudo a ustedes para aclarar otras dudas que me tienen DE CABEZA...  continuando con  el mismo proyecto que les comente antes (ARCHIVOS EN PERL), necesito aclarar otras dudas antes que me boten de este trabajo  :rolleyes: .

Estoy editando una serie de archivos HTML, es una aplicacion de contenido dinamico. La cosa es la siguiente:

Estoy levamtando en memoria una serie de archivos (planos y html) para luego manipularlos y mandarlos a salir por algun Browser... el rollo es en UN CASO EN ESPECIAL.... necesito concatenar  ciertos campos para luego intercambiar toda la cadena por un Marcador dentro del HTML.

EXPLICACION DE MI APLICACION
[/size]
si te da fastidio entender lo que hace ESTA APLICACIOIN DETALLADAMENTE SALTA ESTE PARRAFO

En este punto del proyecto, tengo  3 campos que necesito montados en memoria almacenados en un arreglo (@resultado) este resultado debo meterlo dentro de un tag HTML , (ejemplo: EQUIPO1 4 contra EQUIPO2 5) el asunto es que son varios resultados y necesito meter ese arreglo "Resultado" en dos formatos distintos HTML (resultado es cargado cada vez que se necesita) ahora... al momento de concatenar los las variables, me retorna VACIO y no me muestra nada en el HTML

El codigo que tengo es este:
si no quieres leer el codigo, al final digo mas claramente que es esactamente lo que necesito

if (@contenedorHTML[$i]=~/TABLAuno/){
                   foreach $temporal(@cate1){
                @resultado="";
                if ((@cate1[$e]=~/INIRESUL/)||($logico1==1)){
                   $e++;
                   $j=0;
                   $logico1=1;
                        @resultado=split(/@/,@cate1[$e]);
                        #AKI EDITO EL HTML LINEA1 Y LINEA2 Y CONCATENO
                        if ($e%2==0){
                        foreach $temporal2(@contenedorLINEA1){

                                        if (@contenedorLINEA1[$j]=~/RESUL@arcosB/){@contenedorLINEA1[$j] =~ s|RESUL@arcosB|@resultado[0]|;}
                                        if (@contenedorLINEA1[$j]=~/COLE@contriB/){@contenedorLINEA1[$j] =~ s|COLE@contriB|@resultado[2]|;}
                                        if (@contenedorLINEA1[$j]=~/RESUL@contriB/){@contenedorLINEA1[$j] =~ s|RESUL@contriB|@resultado[1]|;}
                                        $j++;
                                    }
                                    $h++;
                                        $temporal2=$temporal2.@contenedorLINEA1;
                                        #print(@contenedorLINEA1);
                                    }

                        if ($e%2==1){
                        foreach $temporal3(@contenedorLINEA2) {
                                        if (@contenedorLINEA2[$j]=~/RESUL@arcos/){@contenedorLINEA2[$j] =~ s|RESUL@arcos|@resultado[0]|;}
                                        if (@contenedorLINEA2[$j]=~/COLE@contri/){@contenedorLINEA2[$j] =~ s|COLE@contri|@resultado[2]|;}
                                        if (@contenedorLINEA2[$j]=~/RESUL@contri/){@contenedorLINEA2[$j] =~ s|RESUL@contri|@resultado[1]|;}
                                        $j++;
                                        }
                                        $h++;
                                        $temporal3=$temporal3.@contenedorLINEA2;
                                        # print(@contenedorLINEA2);
                                    }

                    if($h==2){$temporal=$temporal.$temporal2.$temporal3;
                              $temporal2="";
                              $temporal3="";
                              $h=0;
                           }




                   }

                 if ($logico1==0){$e++;}
                    }
                    #$logico1=0;


          @contenedorHTML[$i] =~ s|TABLAuno|$temporal|;$i++;
          $temporal="";

          }


Un colega me comento que con "." se puede concatenar dependiendo del contexto en que uses ese "."

LA PREGUNTA QQUE NECESITO RESPONDER ES:

Como puedo concatenar UNA VARIABLE CON UN ARREGLO... y luego COMO CONCATENO ESE ARREGLO A OTRO ARREGLO FINAL... (imagino que sera igual)... solo necesito ayuda para concatenar valores almacenados en memoria ...

GRACIAS..




En línea

Firos
Ex-Staff
*
Desconectado Desconectado

Mensajes: 1.410


Enseña lo que sepas... y oculta lo peor...


Ver Perfil
Re: CONCATENACION DE CADENAS EN PERL <<URGENTE>>
« Respuesta #1 en: 22 Julio 2006, 14:16 pm »

Si con concatenar te refieres a unirlas aquí te pasteo una parte del code de un bot que tiene un nick y, si el bot esta pillado en el servidor, le añade al final del nick 3 digitos:

Asi lo concatenas con el resultado de una función.
Código:
$sn00py .= int(rand(999));

Asi concatenas variables:
Código:
$var1 = "Hola";
$var2 = " pepe\n";

$var3 = $var1 . $var2;
print $var3;

Citar
firos@sn00py:~/Programacion/pruebaselhacker.net$ perl concatenar.pl
Hola pepe
firos@sn00py:~/Programacion/pruebaselhacker.net$


Y si lo que quieres es concatenar el resultado de un array primero tendras que hacer la seleccion de ese array en concreto y saber en que variable esta o pasarla a otra variable para despues unirla a donde quieras.

Saludetes


En línea

El final del camino no está determinado, lo determinamos nosotros mismos paso a paso, día a día, y se puede cambiar.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Python] - Ejercicio Concatenación
Scripting
ChicoMaravilla 1 5,737 Último mensaje 24 Enero 2011, 18:23 pm
por ChicoMaravilla
Comparacion de una concatenacion
Bases de Datos
proteus8 0 1,709 Último mensaje 14 Febrero 2011, 17:01 pm
por proteus8
Concatenación ?
Programación C/C++
<<<-Basura->>> 5 3,377 Último mensaje 1 Abril 2012, 20:00 pm
por <<<-Basura->>>
Ayuda en problema de concatenacion simple .bash
GNU/Linux
RicGeo 2 2,179 Último mensaje 2 Julio 2014, 05:16 am
por RicGeo
concatenacion de cadenas sin usar funciones
Programación C/C++
fernaEDLP 2 1,841 Último mensaje 2 Mayo 2019, 13:21 pm
por fernaEDLP
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines