Foro - Perl en Español

Buenas tardes, amigos.

Nuevamente en líos. para resumir este es el trozo de código que estoy tratando de ejecutar:


Básicamente estoy tratando de crear un usuario en el equipo. Ya he probado manualmente y funciona sin inconvenientes hacer esto paso a paso. El problema está en mi script: no sé cómo hacerlo. Por favor, ¿me pueden ayudar?

Esta es la salida:



Es la forma en que decidí depurar de cierto modo, pero en donde me dice el error de sintaxis es donde tengo dudas porque no me muestra nada, y como dije antes lo he probado manualmente y el comando ejecuta sin problemas. Muchas gracias de antemano por sus opiniones


Saludos,



Jero2528

Por favor, quita la opción '/g' de la expresión regular que está en el if(), porque seguro que no es lo que quieres hacer con esa expresión regular.

Luego, el error de sintaxis es lo que devuelve el intercambiador, queriendo decir que es la sintaxis del comando la que está mal.
Y con el carácter '^' te está diciendo dónde:


Lo más seguro es que la contraseña contenga algún carácter extraño.

Prueba a cambiar las líneas String, de

String => "set system login user ebackups authentication encrypted-password xxxxxx \n"

a

String => 'set system login user ebackups authentication encrypted-password xxxxxx' . "\n"

Recuerda que las comillas dobles, en Perl, implican interpolación del contenido, así que si en la contraseña hay "algo" que se asemeje a una variable, pues Perl la interpolará.

Hola, explorer.

Gracias por tu ayuda, ya probé lo que me indicaste pero sigue sucediendo lo mismo. Sí es el password: tiene un signo '$', y por cierto, estaba indicando el password como variable inicialmente y luego textualmente y no funciona, el problema puede que se arregle cambiando el password pero dada la situación no lo puedo cambiar ya que tendría que hacerlo en muchísimos equipos y para ello debo configurar ciertas configuraciones adicionales, pero bueno, mi pregunta ahora es ¿por qué cuando ingreso al equipo (yo como usuario) y ejecuto los comandos del script lo hace sin problemas? No logro ver qué sucede "por debajo" cuando lo hace el script

Adicional a esto cambié la expresión regular pero tampoco está entrando al if() es decir, reemplacé la opción /isg por solamente /is.


Saludos,



Jero2528

Cambia la expresión regular por


En cuanto a la contraseña, si contiene caracteres extraños, lo mejor es usar comillas simples:

my $passwd = 'contraseña$$&%$&%$%&$@@@@@@@___--___gdsjfhsdgf';

y luego ya puedes ponerla con el resto del comando, con entrecomillado doble:

String => "set system login user ebackups authentication encrypted-password $passwd \n"

De esta manera, la interpolación solo se hace con las comillas dobles: la variable $passwd se interpola (convierte) a su contenido literal, sin que afecten los caracteres extraños.

Hay una excepción a la regla del entrecomillado simple: la presencia del carácter '\' o la combinación '\\', que pueden requerir un trato más especial, como se comenta en la sección Constructores de valores escalares:

Los literales de cadena se suelen delimitar con comillas simples o dobles. Estas comillas funcionan de forma muy parecida a las comillas en las shell estándar de Unix: los literales de cadena entre comillas dobles están sujetos al uso de la barra diagonal inversa y la sustitución de variables; en cambio, las cadenas entre comillas simples no lo están (a excepción de \' y \\). Se aplican las reglas normales de barra diagonal inversa estilo C para crear caracteres como el salto de línea, tabulaciones, etc., y algunas formas más exóticas. Encontrará una lista en la sección "Comillas y operadores de comillas" de perlop.