perl

¿Cómo comprobar si hoy es un fin de semana usando bash o incluso perl? Quiero evitar que ciertos programas se ejecuten en un fin de semana.

Una pregunta reciente aquí en SO got me thinking. En la mayoría de las distribuciones de Linux que probé, algunos módulos de ... ienta que haga apt (por ejemplo) y cpan mejores compañeros de equipo? ¿O simplemente no instala nada a través del shell cpan?

(sub { print 1; })(); sub { print 1; }(); Probé varias maneras, todas están equivocadas...

¿Cuál es la forma más rápida de contar el número de veces que una cadena determinada aparece en una más grande? Mi mejor con ... s y dividir por la longitud de la subcadena, pero eso parece bastante lento, y necesito analizar grandes cantidades de datos.

Escribí un servicio de red persistente en Perl que se ejecuta en Linux. Desafortunadamente, a medida que se ejecuta, su Ta ... en ninguno de los varios perfiladores interactivos, por lo que se apreciaría una respuesta cálida, suave y no esotérica. :-)

Estoy tratando de maximizar insertos por segundo. Actualmente obtengo alrededor de insertos de 20k / seg. Mi rendimiento en r ... imeend = Time::HiRes::time(); print( (($j*$numthread)/($timeend - $timestart)) . "\n"); $users->drop(); $db->drop();

¿Por qué los diseñadores de PHP decidieron usar un punto / punto/?"."como la cuerda operador de concatenación en lugar del símbolo más habitual"+"? ¿Hay alguna ventaja en ello, o alguna razón en absoluto? ¿O simplemente les gustaba? : o)

¿Cuál es la diferencia entre los operadores de estilo C&&, ||, ... y su versión Perl legible por humanos"and", "or", ... net code los usa a ambos: open (FILE, $file) or die("cannot open $file"); open (FILE, $file) || die("cannot open $file");

Tengo un script que lanza una excepción a través de die. Cuando cojo la excepción, quiero mostrar el mensaje sin la informaci ... las excepciones provienen de la misma pieza de código. Por lo tanto, la ubicación no es terriblemente útil en esta situación.

Digamos que tengo una cuerda "El zorro marrón rápido salta sobre el perro perezoso" ¿puedo cambiar esto a "El zorro marrón le ... s conjuntos de expresiones regulares para esta situación. (En este caso, utilizo s/quick/slow/ seguido de s/lazy/energetic/.)

Sé que el bloque BEGIN es compilado y ejecutado antes del cuerpo principal de un programa Perl. Si no está seguro de eso, int ... => $x\n"; print "y => $y\n"; Y la salida es x => 14 y => 16 x => 12 y => 16 Una vez más, gracias Eric!

Me gustaría representar un conjunto en Perl. Lo que suelo hacer es usar un hash con algún valor ficticio, por ejemplo: my % ... onjunto. ¿Es esta una práctica común? ¿Alguna sugerencia para mejorar esto? También, debo usar defined o exists? Gracias

Sé que puedo listar todas las variables lexciales y de paquete en un ámbito dado usando Padwalker's peek_our y peek_my, pero ... #FIXME: need to add globals to %in_scope here# ############################################## return \%in_scope; }

Necesito una expresión regular de Perl para que coincida con una cadena. Estoy asumiendo solo cadenas entre comillas dobles, ... rá con ninguno de ellos excepto el primero. ¿Alguien puede darme un empujón en la dirección correcta sobre cómo manejar esto?

¿Hay alguna opción grep que me permita controlar el número total de coincidencias pero se detiene en la primera coincidencia ... U -m la opción trata los recuentos por archivo, mientras que -m para BSD grep lo trata como recuento global de coincidencias

¿Hay alguna forma de usar una constante como clave hash? Por ejemplo: use constant X => 1; my %x = (X => 'X'); E ... creará un hash con "X" como clave y no 1 como clave. Considerando que, quiero utilizar el valor de la constante X como clave.

Estoy trabajando con un marco grande, viejo, desordenado e hinchado. Regularmente va más de 100 niveles de profundidad en ll ... in subroutine calls! DB<1> ¿Cómo hago que el depurador de Perl no se preocupe por el tamaño de la pila? Gracias.

Sé que my se usa para declarar una variable local a un bloque o archivo. Siempre he asumido que myes una palabra clave en P ... ones", véase http://perldoc.perl.org/functions/my.html . ¿Cómo hace una función el trabajo de declarar variables locales?

¿Hay alguna manera de precompilar una expresión regular en Perl? Tengo uno que uso muchas veces en un programa y no cambia entre usos.

A veces veo código Perl como este: my ( $variable ) = blah.... ¿Cuál es el punto de poner paréntesis alrededor de una so ... nsé que los paréntesis solo se usaban cuando se declaraban múltiples variables, como: my ( $var1, $var2, $var3 ) = blah...