Foro - Perl en Español

Hola.

Mi problema es que tengo varios dvr que quiero revisar por medio de sockets o ping, pero también las cámaras de esos de dvr. Hasta ahora lo único que encontré fue un open source (ZoneMinder-1.24.4) que permite visualizar las cámaras de los dvr pero está en Perl y no lo conozco, por favor, ayuda para saber lo que significa o si alguien sabe cómo podría resolver mi problema en otro lenguaje.

Por favor.

Parte ...

Hola amigos.

¿Alguien sabe cómo obtener más memoria RAM al lanzar un .pl?
Me refiero a que si se puede privilegiar mi proceso antes que otros.

Saludos y gracias.

Buen día...Tengo el siguiente problema al momento de actualizar una base de datos SQL a partir de un arreglo.

Cabe mencionar que el arreglo contiene 3 registros pero solo el primero lo actualiza bien, y después manda el error.

El código es:

@field = split /\*/, $in{'checks'};

foreach $f (@field) {

( $cup, $sec, $subs, $calle, $ext, $int, $lext, $lint, $col ) = split /-/, $f;

$sth = $dbh->do("use serverboxdu"); # or MiError($DBI::errstr);

$sth ...

Tengo las siguientes líneas:

open( LISTA, './lista.txt' );
@contenido = <LISTA>;

foreach my $linea (@contenido) {

$linea =~ s///g;

@contenido = substr( $linea, 0, 250 );

}

print @contenido;


Bien, lo que quiero es:

primero limpiar el archivo lista.txt de saltos de línea. Lo consigo con esta línea: $linea =~ s///g; pero después quería mostrar los primeros 250 bytes del archivo lista.txt pero el script solo trabaja sobre la primera línea del lista.txt. ...

Buenas perleros,

Estoy haciendo unas consultas a LDAP, y no sé cómo hacer para comprobar que la consulta devuelve datos.
Lo que necesito hacer con esta consulta es saber si un usuario existe en el ldap o no, he intentado comprobar el valor de $entrada dentro del foreach (if $entrada eq "" ... o if $entrada eq " "), pero no me funciona.
No sé como tratar la información que devuelve la consulta, lo único ...

Hola me gustaría saber dónde bajarme el programa GTK para crear interfaces de forma gráfica arrastrando los botones. He estado buscando en Internet pero entre que algunos que me bajado no funcionaban y otros estaban fuera de servicio la descarga no he encontrado.

Saludos.

Quería preguntaros alguna idea de cómo se puede hacer lo siguiente:

Tengo un formulario en Excel con un botón, quiero que al pulsar ese botón, por ejemplo "calcular", se ejecute un código Perl para después mostrar los datos.

Gracias.

1- Haga una función en C++ que retorne la suma de los números primos que existen en un arreglo de 10 elementos enviados como parámetro en dicha función.


2- Hacer una función en c++que permita calcular la suma, la media, la mediana, la moda el mayor y el menor. En la función se envía los 10 valores enteros en un array leído desde el teclado.

Hola a todos,

Os escribo porque no tengo mucha experiencia en Perl y necesito optimizar una función, por ejemplo, f(x1,x2)=x1**2+x2**2 a partir de (4,5). He encontrado la librería SIMPLEX, pero no consigo que me funcione y creo que la culpa es del vector $init.

¿Alguien puede ayudarme?

Información sobre PDL::Opt::Simplex
http://search.cpan.org/~chm/PDL-2.4.9_0 ... Simplex.pm

Esto es lo que he escrito:
#!/usr/bin/perl

use PDL;
use PDL::Opt::Simplex;

$init = ( 4, ...

Primeramente he creado este elemento:

#!/usr/bin/perl

use strict;
use warnings;
use MIME::Lite::TT::HTML;

my %params;

$params{first_name} = 'Frank';
$params{last_name} = 'Wiles';
$params{amt_due} = '24.99';

my %options;
$options{INCLUDE_PATH} = '/path/to/templates';

my $msg = MIME::Lite::TT::HTML->new(
From => '[email protected]',
To => '[email protected]',
Subject => 'Your recent purchase',
Template => {
text => 'test.txt.tt',
html => 'test.html.tt',
},
TmplOptions => \%options,
TmplParams => \%params,
);

$msg->send;




Hi ,

This is to confirm your purchase ...