Foro - Perl en Español

Hola de nuevo.

Sigo con la aplicación del mensaje anterior "Cómo usar "sed" dentro de Perl", pero he dejado de hacerla para Xchat y la hago para correr "normal".

Ya está terminada pero quiero que siempre conserve la propiedad de quedar en primer plano. ¿Es posible? Estoy mirando en http://gtk2-perl.sourceforge.net/doc/pod/Gtk2/Window.html pero estaré torpe (muy mal el inglés) porque no encuentro cómo hacerlo, espero sea posible.

Saludos y gracias

...

Hola, muy buenas :)

Estoy haciendo un pequeño script en Perl para Xchat, y trato con un archivo de texto el cual quiero borrar una línea y dejar en el archivo todo lo demás. Si pruebo el comando en consola, perfecto, pero dentro de Perl en Xchat, no lo consigo.

Esto es parte del script:
$borrar="25/11/14 Hola 3";
system("sed -i\".bak\" '/$borrar/d' ~/.xchat2/addons/tareasdb.txt");

Estas son las ...

Usando el módulo Net::SFTP obtengo este error al intentar conectarme a cualquier IP remota:

<pre>Can't connect to 65.111.xxx.xxx, port 22: No route to host at libs/Net/SSH/Perl.pm line 208.
</pre>

No sé que será, es nuevo para mi :(

Hola, tengo el siguiente código:

<style>

body {
background:transparent url(fondo.jpg) repeat scroll 0 0;
color:gray;
font-family:helvetica,arial,sans-serif;
font-size:14px;
text-align:center;
}

.post {
color:gray;
margin-bottom:10px;
max-width:200px;
word-wrap: break-word;
}

.post h3 {
color:orange;
background:#0F0F0F;
border-width: 1px;
border-style:solid;
border-color:333333;
padding:5px 10px;
}

.post_body {
color:white;
background:black;
line-height:19px;
padding:5px 10px;
border-width: 1px;
border-style:solid;
border-color:333333;

}

#cuadro {

width:100px;
height: 65px;

padding:5px 10px;
background-color:#000;
border: solid #222 2px;
-webkit-border-radius: 4px;
-moz-border-radius: 4px;
border-radius: 4px;

}
</style>

<div id=cuadro> ...

Estimados,

Tengo un problemita con lo siguiente. Resulta que estoy intentando enviar un correo desde una máquina de Windows. Yo ocupo la librería MIME::Lite, y como servidor outlook.office365.com. Este el código.

my $msg = MIME::Lite->new(
From => $remitente,
To => $destinatario,
Subject => 'Reporte de Error '.$fecha,
Type => 'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(
Type => 'TEXT',
Data => 'Reporte de Errores.'
);

if ($archivoerror ...

Tengo el siguiente código:

<html>

<script type="text/javascipt">
function startDownload()
{
var url='http://server/folder/file.ext';
window.open(url,'Download');
}
</script>

Then put this in the body, which will start the download automatically after 5 seconds:

<script type="text/javascipt">
setTimeout("startDownload()",5000); //starts download after 5 seconds
</script>

</html>

<?php

echo "Test";

?>

El problema es que nunca carga la descarga y no pasa nada. He probado en todos los formatos desde html, htm, PHP y nunca me reconoce nada de JavaScript. ¿ ...

Buenos días,

soy nueva -nuevísima- en esto de la Bioinformática y no me aclaro, por eso he decidido que igual me viene bien algo de ayuda. He estado echando un ojo a otros hilos en los que se ha hablado de dividir multifasta pero no se acoplan a lo que necesito.

La idea es que a partir de un multifasta del que no conozco cuántas secuencias hay, me divida todas las secuencias únicas y me ...

Cordiales saludos perleros.

Tengo problemas para capturar la salida que se genera después de cada comando, a continuación relaciono parte del script que estoy usando:

@conn1 = conectar_telnet_cisco( $IPDEVICE, $userbackups, $passbackups );
if ( ( $conn1 ) ) {
$mensajeerror .= "Equipo=$DEVICE, IP=$IPDEVICE, INTERFACE=$INTERFACE, ERROR=$conn1\n<br>";
$conteoerrores++;
}
else {
@out = $conn1->cmd("configure terminal\n");
@out = $conn1->cmd("interface $INTERFACE\n");
@out = $conn1->cmd("shutdown\n");
@out = $conn1->cmd("exit\n");
@out = $conn1->cmd("exit\n");
sleep(10);
@out = $conn1->cmd("write memory\n");
sleep(10);

$comando ...

Hola amigos, ¿cómo están? Quiero saber cómo puedo obtener varias filas desde una consulta MySQL en Perl.

Tengo el siguiente código:

sub store :Local :Args(0) {
my ($self, $c) = @_;

# connect to the database
my $dbh = DBI->connect("DBI:mysql:database=datatest", "perltestUser", "password")
or die $DBI::errstr;

# query a la tabla
my $statement = qq{SELECT * FROM staff};

my $sth = $dbh->prepare($statement)
or die $dbh->errstr;

$sth->execute()
or die $sth->errstr;

my ($query_store) = $sth->fetchrow_array;

my ...

Amigos, tengo este código:

__PACKAGE__->meta->make_immutable;

package Result;

sub new {
my $class = shift;
my $self = bless {
'error' => shift,
'message' => shift,
'userid' => shift
}, $class;
return $self;
}

¿Me podrían explicar las diferencias entre __PACKAGE__-> y package Result?

¿Y me podrían explicar bien para qué se usa el bless()? No encuentro una definición certera por ningún lado.

Foro - Perl en Español

News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

Crear ventana en primer plano con Gtk2 [RESUELTO]

Cómo usar "sed" dentro de Perl

Can't connect to xxx, port 22: No route to host

Juntar verticalmente dos div

Error SMTP auth() contra office365

Problema al descargar

Dividir multifasta

Problema Usando Net::Telnet::Cisco

Cómo obtengo varias filas de mi DB

Pregunta de novato

Last 10 active topics

Identificarte • Registrarse

Estadísticas