| |
|
63
|
Programación / Scripting / Re: encotrar numero en pagina mechanize regular expresion
|
en: 20 Junio 2015, 23:32 pm
|
Sí que se pueden usar exp. reg. para buscar lo que quieres. Te pongo un ejemplo escrito en Perl, ya que en Python no sé cómo se pueden usar las exp. reg. extendidas: #!/usr/bin/perl $html = <<'HTML'; <html> <head> </head> <body> <p>Un párrafo con número: 42</p> </body> </html> HTML $html =~ /(\d+)(?(?{ $^N >= 25 and $^N <= 50 })(?{print "sí\n"})|(?{print "no\n"}))/;
Como ves, el truco consiste en capturar una cifra, y compararla con los límites que queremos, y el resultado imprimirlo inmediatamente. Escrito de forma más clara: #!/usr/bin/perl $html = <<'HTML'; <html> <head> </head> <body> <p>Un párrafo con número: 42</p> </body> </html> HTML $html =~ / (\d+) # capturar números (?(?{ $^N >= 25 and $^N <= 50 # ¿está dentro de los límites? }) (?{ }) | (?{ }) ) /x;
|
|
|
|
|
64
|
Programación / Scripting / Re: ayuda con python urgente!!
|
en: 20 Junio 2015, 23:05 pm
|
No necesitas un doble bucle. Con uno te vale, ya que el índice que recorre las filas es el mismo que las columnas (con eso, accedemos a la diagonal). if mat[i][i] == 0:
|
|
|
|
|
65
|
Programación / Scripting / Re: Alguien con experiencia que me pueda guiar o dar tips
|
en: 13 Junio 2015, 15:21 pm
|
|
Es mejor que no uses extensiones conocidas, aunque el formato sea el mismo. Solo con esa ya hay mucha gente que ni se molesta en averiguar qué es lo que hay dentro.
Un ejemplo que he visto en una aplicación así: los archivos extra (como tus MOD) subían con extensión .zipx , y realmente era un zip comprimido con una contraseña, pero, además, estaba invertido (el primer byte del archivo era el último, el segundo, el penúltimo, etc.).
Hay más trucos, como hacerle un XOR a todos los bytes, sumar un valor fijo a cada grupo de bytes, etc., etc. Hay muchos métodos para esconder la información.
Lo malo es... si hacen ingeniería inversa de tu programa y averiguan el procedimiento que usas.
En cuanto a la forma de hacerlo, pues puedes usar el mismo lenguaje en que desarrollas los MOD, pero depende de si puedes integrar el procedimiento de comprensión.
Ejemplo: tuvimos un caso en que era necesario enviar informes a los clientes. Ese informe iba comprimido, ya que era texto y tenía que ser muy rápido. Pero en el lado del cliente no podíamos instalar la biblioteca de descomprensión. La solución fue comprimir los archivos con un sencillo método RLE personalizado para comprimir palabras, no bytes. Y el procedimiento para descomprimir en el lado del cliente fue igual de simple.
|
|
|
|
|
67
|
Programación / Scripting / Perl v5.22
|
en: 1 Junio 2015, 22:54 pm
|
Perl 5.22.0 representa, aproximadamente, 12 meses de desarrollo desde Perl 5.20.0 y contiene aproximadamente 590 000 líneas de cambios a lo largo de 2400 archivos por parte de 94 autores. Nuevas características- Perl sabe qué métodos se han definido en una clase, y puede llamarlos más rápido
- Crea alias a partir de referencias en ambos lados de una asignación o en una variable de control
- Existen nuevos operadores de bit, para diferenciar los casos de números y cadenas de caracteres
- El operador de entrada de líneas, el diamante doble, <<>>, reduce los casos mágicos cuando gestionamos ARGV (archivos abiertos de forma implícita desde la línea de comandos)
- La forma de open() entubado ahora funciona en Windows
- Valores de punto flotante en hexadecimal. (Pero, ¿qué demonios es esto?)
- close() ahora pone sus errores en $! y saca una advertencia cuando falla de forma implícita
Mejoras en la expresiones regulares- Márgenes \b especiales en exp. reg., incluyendo agrupaciones de grafemas, márgenes de palabras en Unicode, y márgenes en sentencias
- La nueva opción /n (no captura) en exp. reg. convierte a todos los grupos de paréntesis como de no captura
- El módulo re ahora tiene un modo estricto
- Solo puede usar un /x, porque /xx significará otra cosa, en el futuro
Y soporte de Unicode 7.0. El módulo CGI se ha quitado. Si se desea, se puede instalar desde CPAN, pero lo recomendado hoy en día es usar otras tecnologías. Plataformas que vuelven a funcionar: IRIX y Tru64. z/OS ejecutando el código de página 1047 de EBCDIC. Plataformas obsoletas: NeXTSTEP/OPENSTEP
|
|
|
|
|
70
|
Programación / Scripting / Re: duda ejercicio combinatoria
|
en: 19 Abril 2015, 21:45 pm
|
¡Ah!, entiendo: hay una limitación en el número de escalones que se pueden subir, de hasta 3. Claro... muy poca gente podría dar un salto de muchos escalones para subir  Entonces, mis soluciones no sirven. Pero... con dos pequeños cambios, ya vuelve a funcionar  #!/usr/bin/perl my $escalones = 0 + shift; # leemos el número de escalones if ($escalones > 0) { # si es un número positivo my @combinaciones = descompon($escalones); # sacamos todas las @combinaciones print "Hay ", scalar(@combinaciones), " combinaciones:\n"; # informamos del número de @combinaciones print join('; ' => @combinaciones), "\n"; # y las propias combinaciones } sub descompon { # devuelve una lista de combinaciones my $escalones = shift; # para un determinado número de $escalones my @combinaciones; # aquí guardaremos las @combinaciones encontradas for my $salto ( 1 .. 3 ) { # damos un $salto cada vez mayor next if $salto > $escalones; my $resto = $escalones - $salto; # después del $salto, nos queda un $resto de $escalones if ( not $resto ) { # si hemos llegado arriba push @combinaciones, $salto; # guardamos ese $salto como nueva combinación } else { # si aún no hemos llegado my @resto_combinaciones = descompon($resto); # vemos todas las combinaciones que quedan para subir for my $combina_resto ( @resto_combinaciones ) { # y las guardamos push @combinaciones, join "," => $salto, $combina_resto; } } } return @combinaciones; # devolvemos las @combinaciones encontradas }
|
|
|
|
|
|
| |
|
Mostrar Mensajes
