Foro - Perl en Español

Hola a todos, espero que esto esté bien posteado aquí, tengo un problema con el siguiente código, espero me ayuden.

No sé qué tiene mal mi código, pero hay algo fuera de lo normal. Sé que no es el mejor código del mundo y yo soy muy principiante en esto. Les pego el código:

$scripts_dir = "/usr/local/bin/doc11";
open (ARCHIVO, "$scripts_dir/Equipos.txt");

$cant_equipos = 0;

@equipos=0;

while(<ARCHIVO>)
{
chomp;
my @line = split(/\t/);

$num_args = 0; ...

Buenas,

¿Alguien me puede decir cómo hacer para saber el tipo de datos de una variable? Es que dependiendo de éste tengo que realizar una determinada acción.

¡Gracias!

Hola,

Me gustaría encontrar una expresión regular que validara (en Perl) una URL de tipo FTP.
Por ejemplo: ftp://username:[email protected]/path1/example.txt

¿Alguien me puede ayudar?

Muchas gracias.

Buena tarde,

Estoy levantando un servidor DHCP pero necesito saturarlo para ver la capacidad de respuesta y si tiene la capacidad de entregarme las direcciones que le estoy definiendo en el pool. Si tuvieran algún script para poder lograr esto, de antemano muy agradecido.

Buenas... tengo un problema que no logro resolver. Tengo el siguiente texto:
PING http://www.l.google.com (72.14.253.105): 56 data bytes

64 bytes from 72.14.253.104: icmp_seq=3 ttl=52 time=109.575 ms
64 bytes from 72.14.253.104: icmp_seq=4 ttl=52 time=113.299 ms
64 bytes from 72.14.253.104: icmp_seq=5 ttl=53 time=104.000 ms

que proviene de la ejecución del ping, pero necesito obtener algo de tipo

@arreglo= ("109.575","113.299","104.000");

¿Cómo se puede hacer?
Gracias por su tiempo.

Hola.. ¿cómo puedo ejecutar gnuPlot desde perl para realizar un gráfico?
Tengo éste código, que no me genera errores, pero no funciona.
qx(/usr/local/bin/gnuplot);

qx(set xlabel "Hora");
qx(set ylabel "Paquetes ");

qx(set output "/home/yo/test/loss1.png");
qx(set title "Paquete");
qx(set term png size 480,360);
qx(set xdata time);
qx(set timefmt "%H:%M" #%b-%d-%H:%M:%S");

qx(set style line 1 lw 1 pt 3);
qx(set style line 2 lw 1 pt 9);
qx(plot '/home/yo/test/loss.txt' using 1:2 with points t '' ls 1); ...

Hola, me gustaría saber cómo cortar el nombre de un archivo que capturo en una variable.

Por ejemplo.

http://www.google.cl_2010-07-08_16:45

Necesito separar en dos un string con el nombre del servidor y otro con la fecha.

Gracias.

Hola,

Primeramente felicitar a los usuarios de este foro, siempre os he utilizado como guía de referencia y recomendado para consulta de dudas.

Bueno, mi problema es el siguiente: soy administrador de sistemas junior, y me han encomendado utilizar Perl para "depurar un fichero"; este fichero tiene unas 60 mil líneas, exactamente es un export de Oracle. A continuación os muestro algunas líneas de este código:

REM CREATE TABLE "NUEVODW"."ABALON_CAMBIO_ESTADO_INST" ("ID_INSTALACION"
REM NUMBER, "CODIGO_INSTALACION" VARCHAR2(40), ...

¡¡¡Hola a todos!!!

Estoy utilizando un código que yo no escribí. Dentro de él hay una subrutina que manda llamar a otro programa.

El problema es que el otro programa se abre en consola y ya no continúa corriendo el programa en Perl. Al parecer no se ejecutan las ordenes dentro del otro programa. ¿Podrían ayudarme a resolver este problema?

Gracias.

sub decimateData {
my($file,$decFile) = @_;

my($decimateString) = calculateDecimation($file);

open my $sac_fp, "|$sac2000";
print ...

Hola, me estaba dando cuenta de que me gustaría ponerle un link a mis ventanas Tk, esos que
siempre recomiendan la web del autor.

¿Alguien sabe cómo hacerlo?