Using perl Syntax Highlighting
- use utf8; # código en utf8
- use Encode; # es mejor ponerlo antes que CGI
- use CGI qw(:utf8); # librería encargada de recoger datos por get/post en utf8
- $| = 1; # no caché
- sub Parametros1 {
- my $q = CGI->new;
- my $Marca = $q->query_string(); # 'A1=;cadena=%C3%B1o%C3%B1%C3%A9'
- ($Marca) = split "=", $Marca; # 'A1'
- # Recogemos el resto de parámetros, irán en el formato $FORM{'campo'}
- for my $key ( $q->param() ) {
- $FORM{$key} = $q->param($key);
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
