Foro - Perl en Español

Saludos perleros.

Tengo inconvenientes con mi script. Básicamente quiero ejecutar unos comandos cuya salida se va enlazando a medida que se ejecutan. Este es el código:


@conn1 =
conectar_telnet_cisco( $IPDEVICE, $userbackupsdefault, $passbackupsdefault );
if ( ( $conn1 ) ) {
$mensajeerror .=
"Equipo=$DEVICE, IP=$IPDEVICE, Descripcion=$conn1\n<br>";
$conteoerrores++;
}
else {
# @out=$conn1->cmd("terminal length 0\n");
# sleep(5);
# @out=$conn1->cmd("show interfaces description | include $SERVICEID\n");
@out = $conn1->cmd( String => "terminal length 0", Timeout => 5 ...

Con el siguiente código capturo los caracteres que coinciden con los comodines '?' y '*', es decir:
? -> coincide con el carácter que esté en esa posición
* -> coincide con el/los caracteres que estén en principio, dentro o al final y justo antes del carácter siguiente

my $cadena = 'bb??vt*u'; #aqui la formula equivale a n+1 = 'u'
my $cadena2 = "bbazvteeeeeeeertyXdfu";
for (my $y = length($cadena2),$x = 0;$x<=$y;$x++) {
if (substr($cadena2,$x,1)) ...

¿Qué tal, estimados? Necesito su ayuda, tengo el siguiente script si bien no me arroja error tampoco me realiza el copiado del archivo... Favor, su ayuda. El script es el siguiente :
#!/usr/bin/perl

use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new(
'$host',
user => '$user',
password => '$password',
port => 22,
more =>
);

if ( not $sftp ) {

die("Error: No Connection:$@");
}
elsif ( $sftp->error ) {

die( "Connect ...

Tengo un script el cual se encarga de leer una base de datos SQLite y guardar su información en un documento Word. El script funciona pero no de la mejor forma, y por este motivo los molesto para pedirles si me ayudan a mejorarlo, por favor.

Como verán cuando guardo la descripción, riesgo y recomendación tuve que hacer 3 SELECT, pero quiero ver la posibilidad de achicar un poco el código.

Por otro lado quería ...

Perl 6 has been 15 years in the making, and is now due to be released at the end of this year. We speak to its creator to find out what’s going on.

Artículo (en inglés)

http://yapcbrasil2015.org/page/1

Se celebrará los días 18, 19 y 20 de septiembre en Taubaté.

Hace unos días murió el hacker venezolano José Rey (@perliscopio) (Blog) (MetaCPAN: JREY Lingua::ES::Numeros Aquí le mandé un parche, y me obsequió nombrándome en el changelog).

https://www.flickr.com/photos/tatadbb/6160593678/in/faves-macagua/

Hola a todos.

Estoy tratando de instalar el módulo mencionado en el título y me da este error:

Searching XML::LibXML on cpanmetadb ...
--> Working on XML::LibXML
Fetching http://www.cpan.org/authors/id/S/SH/SHL ... 121.tar.gz
-> OK
Unpacking XML-LibXML-2.0121.tar.gz
Entering XML-LibXML-2.0121
Checking configure dependencies from META.json
Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.66)
Configuring XML-LibXML-2.0121
Running Makefile.PL
enable native perl UTF8
running xml2-config...didn't manage to get libxml2 config, guessing
options:
LIBS='-L/usr/local/lib ...

Hola, buenas tardes.

Tengo el siguiente problema, el cual me pregunto si con Perl puedo solucionarlo.

demo.jpg/png tamaño 95x33 píxeles | FONDO BLANCO Letra HOLA y (. ) COLOR negro
-------------------------
| . . . . . . |
| HOLA . . . |
| . . |
| . . |
-------------------------

ESTA Es una imagen en cualquier formato jpg o png.

El procedimiento que quiero realizar es:
+ obtener el tipo de ...

Hola, compañeros Perleros, nuevamente molestando, :lol:

Quiero pedir su ayuda ya que no he podido dar con la solución. Les platico un poco la problemática: Tengo una interfaz donde cargo un archivo XML y lo valido, y después lo guardo en una tabla en una base de datos Firebird. Todo lo guarda correctamente menos el xml completo.

El problema es que no sé si no estoy leyendo ...