perl
¿Cómo puedo hacer funciones privadas en un módulo Perl?
Estoy trabajando en un pequeño módulo de Perl y por alguna razón tuve el script de controlador de prueba que estaba usando mi ... módulo incorrectamente. ¿Es posible tener funciones y variables privadas en módulos perl?
Gracias por ayudarme a aprender!
¿Cómo leo dos elementos a la vez en un bucle Perl foreach?
Lo que estoy buscando es algo como:
@list = qw(1 2 3 4 5 6);
foreach (@list) {
#perl magic goes here
print "i: $i, j:$ ... ejecutará en el servidor de compilación de otra persona, y no se me permite usar ningún módulo de CPAN. Solo Perl estándar.
¿Cómo puedo comprobar si un filehandle está abierto en Perl? [duplicar]
Esta pregunta ya tiene una respuesta aquí:
¿Cómo puedo probar si puedo escribir en un filehandle?
... $fileName") or die "$!\n" if (<FILE_IS_NOT_ALREADY_OPEN>);
# or something like
close(FH) if (<FILE_IS_OPEN>);
Matriz de Perl vs lista
Tengo dos estructuras de datos en Perl:
Una matriz:
my @array2 = ( "1", "2", "3");
for $elem (@array2) {
print $elem ... gustaría iterar sobre los elementos en ambos casos, pero ¿por qué la segunda solución me da solo la referencia a esta matriz?
¿Cómo puedo encontrar fugas de memoria en un programa Perl de larga duración?
Perl utiliza el conteo de referencias para GC, y es bastante fácil hacer una referencia circular por accidente. Veo que mi pr ... jetos son mucho más numerosos de lo esperado, podría verificar todas las referencias a ellos y, con suerte, arreglar el fuga.
¿Por qué usar advertencias; usar estricto; no predeterminado en Perl?
Me pregunto por qué
use warnings;
use strict;
No son predeterminados en Perl. Son necesarios para cada guión. Si alguie ... erlo.
En 5.14 IO::File es cargado automáticamente en la demanda, no sería posible hacer algo así con estos básicos pragmas?
Argumentos de subrutina de Perl
He estado leyendo acerca de Perl recientemente y estoy un poco perplejo acerca de cómo Perl maneja los argumentos pasados a l ... erl? Por ejemplo
sub a_sub {
if (@_ == 2) {
# Continue function
}
else {
return false
}
}
¿Cómo puedo obtener un carácter en un índice determinado en Perl?
Si tengo una cadena Perl:
$str = "Hello";
¿Cómo puedo obtener un carácter en un índice dado similar a charAt(índice)?
Qué hace " select ((select (s),$|=1)[0])" ¿en Perl?
He visto un código horrible escrito en Perl, pero no puedo hacer la cabeza ni la cola de este:
select((select(s),$|=1)[0])
... ece $|).
Pero no puedo entender por qué hay múltiples llamadas select o la referencia de la matriz. ¿Alguien puede ayudarme?
¿Cómo puedo llamar a un comando de shell en mi script de Perl?
Puede alguien darme un ejemplo de cómo puedo llamar a un comando de shell, decir 'ls -a' en un script de Perl y la forma de recuperar la salida del comando también.
Expresiones regulares de Javascript en comparación con expresiones regulares de Perl
Sólo soy un novato cuando se trata de expresiones regulares. Sé que Perl es increíble con regexp y no conozco mucho a Perl. ... ilitudes y diferencias?
¿Se pueden usar todas las expresiones regulares escritas en JS en Perl y viceversa?
Sintaxis Similar?
Uso de la doble negación (!!) [duplicar]
Esta pregunta ya tiene una respuesta aquí:
¿Qué hace !! (doble signo de exclamación) ¿media?
...
} @documents_names;
Es la primera vez que veo el uso de la doble negación. ¿De qué sirve? Cuando una persona usa?
¡Qué pasa! (doble signo de exclamación) ¿media?
En el siguiente código, de una entrada de blog de de Alias, noté el uso del doble signo de exclamación !!. Me preguntaba qué ... s por todas sus respuestas.
Aquí hay algo más que acabo de encontrar que está relacionado El Operador de Lista de Squashx!!
Número que aparece en el código JavaScript generado por Perl en lugar de "Per("
En un sitio en el que estoy trabajando hay números aleatorios que aparecen en un poco muy simple de jQuery.
En lugar de lo ... us');
$(this).toggleClass('closed').toggleClass('open');
});
});
</script>
</head>
};
¿Cómo paso un hash a una función en Perl?
Tengo una función que toma una variable y una matriz asociativa, pero parece que no puedo hacer que pasen a la derecha. Creo ... est . "\n";
foreach (keys %aa)
{
print $_ . " : " . $aa{$_} . "\n";
$aa{$_} = $aa{$_} . "+";
}
}
¿Cómo puedo comprobar si se ha inicializado una variable escalar de Perl?
Es el siguiente la mejor manera de comprobar si una variable escalar se inicializa en Perl, usando defined?
my $var;
if (cond) {
$var = "string1";
}
# Is this the correct way?
if (defined $var) {
...
}
¿Cómo puedo recuperar la última fila que inserté usando DBI?
¿Cómo puedo obtener la última fila que se insertó usando DBI (DBD:: mysql )?
Ejemplo de código:
my $sth = $dbh->prepa ... rnativa de acceder a esto
el atributo es via
$dbh->{'mysql_insertid'}.
Gracias Manni y n0rd para sus respuestas. :-)
¿Cuál es la forma más sencilla de rellenar las fechas vacías en los resultados sql (en mysql o perl end)?
Estoy construyendo un csv rápido a partir de una tabla mysql con una consulta como:
select DATE(date),count(date) from tabl ...
Las respuestas perl Date/DateTime-iterating también fueron muy buenas, ¡me gustaría poder seleccionar múltiples respuestas!
¿Cómo convertir una cadena binaria a un número en Perl?
¿Cómo puedo convertir la cadena binaria $x_bin="0001001100101" a su valor numérico $x_num=613 en Perl?
¿Cómo instalo bibliotecas Perl en Cygwin?
Soy un geek de C/C++/Java/Unix por comercio, pero ahora tengo que escribir un programa Perl en Windows. Así que tengo Cygwin, ... Cygwin? Estoy pensando que algo como apt-get install estaría bien, pero espero que eso sea demasiado para esperar.
Gracias