Resultados de la búsqueda a petición "perl"

5 la respuesta

¿Cómo puedo proteger contra los ataques de inyección SQL usando el DBI de Perl?

¿Hay alguna función que pueda usar en Perl para desinfectar la entrada antes de ponerla en un db MySQL? No conozco muy bien la expresión regular, así que antes de hacer mi propia función, me preguntaba si ya había una hecha.

1 la respuesta

¿Cómo puedo manejar claves hash que contienen caracteres de identificación ilegales en Template Toolkit?

En Template Toolkit, si tengo la siguiente variable que contiene un hashref: [% artist = { 'life-span' => '1975 to 1987', } %]¿Cuál es la mejor manera de generar los datos en 'vida útil'? Yo he tratado... [% artist.life-span %]^ Esto falla ...

3 la respuesta

¿Es posible usar o requerir un script Perl sin ejecutar sus declaraciones?

Necesito agregar pruebas unitarias a algunos scripts antiguos, los scripts están básicamente en la siguiente forma: #!/usr/bin/perl # Main code foo(); bar(); # subs sub foo { } sub bar { }Si trato de "requerir" este código en una prueba ...

2 la respuesta

Evitar que las cadenas se interpreten como un identificador de archivo

Perl tiene la característica de que las cadenas nombradas como un identificador de archivo se llevan aser un filehandle: # let this be some nice class I wrote package Input { sub awesome { ... } } Entonces cuando lo hacemosInput->awesome o ...

1 la respuesta

Cómo preservar la transparencia al cambiar el tamaño de PNG usando Perl y GD

Este es el código que estoy usando: !/usr/bin/perl use GD; sub resize { my ($inputfile, $width, $height, $outputfile) = @_; my $gdo = GD::Image->new($inputfile); ## Begin resize my $k_h = $height / $gdo->height; my $k_w = $width / $gdo->width; ...

3 la respuesta

¿Por qué mi proceso padre no ve la salida del niño hasta que sale?

Considere el siguiente script: use IO::File; $| = 1; my ($handle, $pid) = myPipe(); if ($pid == 0) { print "$$"; sleep 5; exit; } print "child: ".<$handle>."\n"; sub myPipe { my $handle = new IO::File(); my $pid = open($handle, "-|"); return ...

1 la respuesta

Usando perl's XML :: LibXML, ¿cómo se usan los prefijos XML y no los atributos xmlns?

Creo esta preguntapodría haber sido intentado previamente en 2006 [http://www.justskins.com/forums/namespace-declarations-in-libxml-101052-2.html] en un sitio diferente Pero, mi escritor XML / RDF actual (XML::LibXML 1.70) genera espacios de ...

3 la respuesta

Citando en bash y perl en el comando recursivo ssh

Estoy escribiendo un script perl para iniciar sesión en un servidor con ssh y hacer algunos comandos de shell en el servidor. El problema es que solo se puede acceder al servidor iniciando sesión en otro servidor. (Estoy usando inicio de sesión ...

4 la respuesta

¿Qué caracteres están permitidos en los identificadores de Perl?

Estoy trabajando en tareas de expresiones regulares donde una pregunta es: Usando manuales de referencia de idiomas en línea, determine las expresiones regulares para constantes numéricas enteras e identificadores para Java, Python, Perl y ...

2 la respuesta

¿Cuál es una buena manera de esperar hasta que se actualice un archivo y luego leerlo en Perl?

Me preguntaba si hay una manera de esperar a que se actualice un archivo, y luego leerlo una vez que se actualiza. Entonces si tengofile.txt, Quiero esperar hasta que se escriba algo nuevo y luego leerlo / procesarlo / etc. Actualmente estoy ...