Foro - Perl en Español

Publicado: **2017-03-30 19:26 @851**

Hola, estoy tratando de traducir este código PHP a Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

function javascript_encode($text)
{
    $encoded = chunk_split(bin2hex($text), 2, '%');
    return $encoded = '%' . substr($encoded, 0, strlen($encoded) - 1);
}
Coloreado en 0.019 segundos,  usando GeSHi 1.0.8.4

Una entrada a la función sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

 <script>alert('hola');</script>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

%3c%73%63%72%69%70%74%3e%61%6c%65%72%74%28%27%68%6f%6c%61%27%29%3b%3c%2f%73%63%72%69%70%74%3eColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo uso en una aplicación en PHP para codificar código JavaScript, pero la verdad no sé bien el nombre de lo que estoy haciendo. Necesito que alguien me diga cómo se llama este método para buscar en Google para ver si se puede hacer en Perl y ver si hay ejemplos de cómo se hace. ¿Alguien me podría ayudar?

Publicado: **2017-03-31 13:12 @592**

En Perl es muy sencillo, se puede hacer de varias maneras. Una de ellas es usando unpack():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
my $texto = q[<script>alert('hola');</script>];
 
print "%$_" for unpack '(H2)*', $texto;
print "\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo que se hace es leer bytes desde $texto, y lo convierte en grupos de dos nibbles, pasados a hexadecimal, a los que agregamos un '%' al principio de cada grupo. Más información, en tu propio ordenador con el comando perldoc perlpacktut, y en la Web.

Este tipo de codificación... realmente no sé si recibe un nombre concreto. En el módulo URI::Escape se le llama Percent-encode.

A propósito, la conversión contraria se puede hacer con esta expresión regular:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$cadena_codificada =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(sacado de la documentación del mismo URI::Escape).

Publicado: **2017-04-01 08:17 @387**

Perfecto, gracias por la ayuda, explorer.

Foro - Perl en Español

Traducir código PHP a Perl

Traducir código PHP a Perl

Re: Traducir código PHP a Perl

Re: Traducir código PHP a Perl