Foro - Perl en Español

por **explorer** » 2009-08-06 09:36 @442

Más que una sustitución, puedes también buscar precisamente lo que quieres usar. (no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

%hay_que_bloquear=map{
$_=~m/^([0-9.]+)/;
$_=>$1
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Saludos, sé que este es un mensaje viejo. Pero me he visto en la necesidad de solicitar apoyo en cuanto a este sistema el cual me ha servido mucho.

Resulta que al redireccionar páginas funciona a la perfección siempre y cuando la página a redireccionar este escrita así:

http://www.redtube.com 302:http://www.google.co.ve

pero no funciona cuando lo colocamos de esta forma:

http://go.microsoft.com/fwlink/?LinkId=69157 302:http://www.google.co.ve

He estado revisando el código y más o menos pienso que la solución está en esta parte:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

## URL a redireccionar 
%hay_que_redireccionar = map { 
                              my ($c,$v) = split;     # Cada línea tiene dos columnas: la URL que buscamos y la nueva URL 
                              chomp $c;
                              $c = $c . '/';          # Suponemos que las URL NO tienen la '/' final, así que se las ponemos 
                              $c =~ s/.png\//.png/g;
                              $c =~ s/.dll\//.dll/g;
                              $c =~ s/.jpg\//.jpg/g;
                              $c =~ s/.jpeg\//.jpeg/g;
                              $c =~ s/.gif\//.gif/g;
                              $c =~ s/.bmp\//.bmp/g;
                              $c =~ s/.mp3\//.mp3/g;
                              $c =~ s/.flv\//.flv/g;
                              $c =~ s/.js\//.js/g;
                              $c =~ s/.swf\//.swf/g;
                              $c =~ s/.css\//.css/g;
                              $c => $v
                         } 
                          split $/, slurp '/etc/brazilfw/redirector/redireccionadas.txt'; 
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero mi conocimiento en Perl es casi nulo.

¿Alguien me podría ayudar?

por **explorer** » 2013-06-19 12:39 @569

Bienvenido a los foros de Perl en Español, felipechire.

El problema está, creo, en que las líneas añaden un '/' al final de la URL (línea 5), para luego quitárselo (líneas 6 a 16) en caso de que el recurso solicitado por la URL sea uno de esos. Y el caso es que la URL que muestras ahora termina con una query (?), no con un recurso estático.

Quizás se pueda solventar así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

## URL a redireccionar
%hay_que_redireccionar = map {
        my ($c,$v) = split;             # Cada línea tiene dos columnas: la URL que buscamos y la nueva URL
        if ($c !~ m{
                     [?]|                                               # Si el URL no contiene una query
                     (?:
                        [.](?:
                           css|js|jpe?g|gif|png|swf|mp3|bmp|flv|dll     # y no es un recurso conocido
                        )|
                        [/]                                             # y no termina en '/'...
                     )
                     $
         }x) {
            $c .= '/';                  # se lo ponemos
        }
        $c => $v
    }
    split $/, slurp '/etc/brazilfw/redirector/redireccionadas.txt'
    ;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Seguro que hay mejores formas...

Foro - Perl en Español

Redirector para squid

Re: Redirector para squid

Publicidad

Re: Redirector para squid

Re: Redirector para squid

¿Quién está conectado?