Resultados de la búsqueda a petición "perl"
¿Cómo puedo usar CPAN como usuario no root?
Quiero instalar módulos perl en un servidor compartido en el que no tengo acceso de root. ¿Cómo puedo hacer esto? También parecen tener una versión anterior de CPAN (se queja de eso cuando se ejecuta el comando), ¿es posible actualizar el comando ...
¿Hay alguna manera de hacer que este código perl capture stderr y stdout desde un tcsh?
open UNIT_TESTER, qq(tcsh -c "gpath $dir/$tsttgt; bin/rununittests"|); while(<UNIT_TESTER>){ reportError($ignore{testabort},$tsttgt,"test problem detected for $tsttgt:$_ ") if /core dumped/; reportError($ignore{testabort},$tsttgt,"test problem ...
Función para extraer intersecciones de líneas cruzadas en ejes
El código en Perl es 5.18.2. sub extract_crossing { my @x = @{ $_[0] }; my @y = @{ $_[1] }; my @xcross =(); my @ycross =(); for (my $i=0; $i<$#x; $i++) { my $k = ($y[$i] - $y[$i+1]) / ($x[$i] - $x[$i+1]); if($y[$i+1] * $y[$i] < 0) { my $xc = ...
En Perl, mapeo entre un archivo de referencia y una serie de archivos
Me gustaría mapear dos conjuntos de datos en Perl. Tengo un conjunto de datos (ref 1) que no cambia, los otros datos deben extraerse de una serie de archivos (1-20) para que coincidan con ref1. Ref1 ID1 ID2 1 HZ 1 HX 1 HY 2 C 2 HZ 2 N File 1 ID2 ...
¿Cómo puedo permitir opciones indefinidas al analizar args con Getopt?
Si tengo una línea de comando como: my_script.pl -foo -WHATEVERMi guión sabe sobre--foo, y quiero que Getopt establezca variable$opt_foo, pero no sé nada sobre-WHATEVER. ¿Cómo puedo decirle a Getopt que analice las opciones que le he contado y ...
eliminar carpetas anteriores a 12 horas en perl
Necesito eliminar carpetas de más de 12 horas. Aquí está mi código, no completo, por supuesto. No sé cómo ver la "edad" de cada carpeta en perl. #!/usr/bin/perl -w use v5.10.0; use File::Copy; use POSIX 'strftime'; use File::Temp; my $lapso = ...
¿El autodie-pragma tiene influencia en la codificación?
¿Por qué obtengo después del "autodie" una salida diferente? #!/usr/bin/env perl use warnings; use 5.012; use utf8; use open ':encoding(utf-8)'; use open ':std'; open my $fh, '>', 'test.txt' or die $!; say $fh 'käse'; close $fh; open my $fh1, ...
¿Cuál es la forma más eficiente de verificar duplicados en una matriz de datos usando Perl?
Necesito ver si hay duplicados en una serie de cadenas, ¿cuál es la forma más eficiente de hacerlo?
Perl ejecución de la pregunta de línea de comando
Reemplacé ActivePerl con Strawberry Perl en mi WinXP la semana pasada. Descubrí que debo ejecutar mi script Perl con el comando deperl myperl.pl; de lo contrario solo necesito corrermyperl.pl antes de instalar Strawberry. ¿Cómo puedo solo ...
Perl: ¿Cómo elimino la primera línea de un archivo sin leer y copiar todo el archivo?
Tengo un montón de archivos en un directorio y de cada archivo quiero eliminar la primera línea (incluido el retorno de carro). Puedo leer todo el archivo en una serie de cadenas y escribir todo menos el primer elemento en un nuevo archivo, pero ...