• Publicidad

Problema con array

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Problema con array

Notapor BigBear » 2012-03-12 12:26 @560

Tengo las siguiente líneas , y quiero ordenarlas cómodamente en un array para usar después. El problema es que me tira varios errores por las comillas, y necesito que todas esas comillas estén sí o sí para después abrir el array y mostrar línea por línea.

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
test'--
'or'1'='1
'or'
' or 0=0 --
" or 0=0 --
or 0=0 --
' or 0=0 #
") or ("a"="a
hi" or "a"="a
hi" or 1=1 --
hi' or 1=1 --
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my @ar = (test'--,'or'1'='1,'or',' or 0=0 --," or 0=0 --j,or 0=0 --,' or 0=0 #);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿ Alguien me puede ayudar ?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Problema con array

Notapor explorer » 2012-03-12 12:40 @569

Fácil: si una entrada tiene comillas dobles, la entrecomillas con simples. Y al revés: si tiene simples, con dobles.
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my @ar =
  2.     ( "test'--"
  3.     , "'or'1'='1"
  4.     , "'or'"
  5.     , "' or 0=0 --"
  6.     , '" or 0=0 --'
  7.     , 'or 0=0 --'
  8.     , "' or 0=0 #"
  9.     , '") or ("a"="a'
  10.     , 'hi" or "a"="a'
  11.     , 'hi" or 1=1 --'
  12.     , "hi' or 1=1 --"
  13.     );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Problema con array

Notapor BigBear » 2012-03-12 13:25 @600

Ok , me quedo asi y tiene un error

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my @test = (
  2.     "admin'--",
  3.     "'or'1'='1",
  4.     "'or'",
  5.     "' or 0=0 --",
  6.     '" or 0=0 --',
  7.     "or 0=0 --",
  8.     "' or 0=0 #",
  9.     '" or 0=0 #',
  10.     "or 0=0 #",
  11.     "' or 'x'='x",
  12.     '" or "x"="x' "') or ('x'='x",
  13.     "' or 1=1--",
  14.     '" or 1=1--',
  15.     "or 1=1--",
  16.     "' or a=a--",
  17.     '" or "a"="a',
  18.     "') or ('a'='a",
  19.     '") or ("a"="a',
  20.     'hi" or "a"="a' 'hi" or 1=1 --',
  21.     'hi'
  22.         or 1   = 1-- ',"hi'
  23.         or 'a' = 'a","hi'
  24.     )
  25.     or (
  26.        'a' = 'a",' hi ") or (" a "=" a ',"- '
  27.     or 'x' = 'x","- '
  28.     or 'x'
  29.     = 'x"
  30. "' or '1 ou ' or '' = '","' or 'x' = 'x","admin' or 1 == 1 ","'or' 1 '=' 1 ","' OR "='");
  31.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿ Cómo lo soluciono ?
Última edición por explorer el 2012-03-12 15:29 @687, editado 1 vez en total
Razón: Formateado de código con Perltidy
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Problema con array

Notapor explorer » 2012-03-12 15:31 @688

Formateando el código de forma apropiada, es fácil ver que falta una coma después de '" or "x"="x', 'hi" or "a"="a', y alguna más.

Y me parece que alguna comilla interior está descompensada, como en "x"="x' .

Quizás lo mejor es que en vez de entrecomillar, uses el operador q().
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Problema con array

Notapor BigBear » 2012-03-12 17:05 @753

¿me podrías un ejemplo de cómo quedaría mi código con q()?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Problema con array

Notapor explorer » 2012-03-12 21:38 @943

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my @test = (
  2.     q(admin'--),
  3.    q('or'1'='1),
  4.    q('or'),
  5.    q(' or 0=0 --),
  6.     q(" or 0=0 --),
  7.    q(or 0=0 --),
  8. );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Problema con array

Notapor BigBear » 2012-03-13 12:37 @567

Gracias explorer, pero me parece más fácil usar un archivo de texto que hacer tanto lio.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 19 invitados