Foro - Perl en Español

Hola a todos,

Estoy investigando cómo agregar nuevos Glyph para crear mis propios dibujos. He modificado los Glyph existentes pero no quisiera eliminar los dibujos predefinidos. Espero que alguien me pueda orientar para poder agregar nuevos Glyph.

Saludos
jsgarcia

¡¡¡Hola, qué tal, muy lindo día!!!

Tengo algo atorado este programa y necesito su ayuda. Lo que yo necesito es que a partir de unas tablas de entrada
como estas:
ENSMUSG00000000001 1488
ENSMUSG00000000028 203
ENSMUSG00000000049 3
ENSMUSG00000000056 192
ENSMUSG00000000058 199
ENSMUSG00000000078 912
ENSMUSG00000000085 150
quiero obtener una sola que contenga todos los genes (la primera columna) que correspondan a los archivos y a los que no se encuentren en uno u otro les pongo un ...

Buen día, nuevamente por aquí esperando aprender de sus sabios conocimientos :D

Mi problema ahora radica en un array que es enviado a una función, pero que al ser recibido no muestra todos sus valores para ser evaluados en una condicional, sin embargo cuando los imprimo uno por uno sí los muestra, pero en su conjunto tampoco. Les dejo los extractos de código.


$cod_resultado ...

Hola, nuevamente pidiendo ayuda. En este caso tengo que hacer algo como esto

hhmm.jpg

pero no sé cómo obtener los milisegundos.
El código es el siguiente:
#!C:\Perl\bin\perl.exe

use diagnostics;
use strict;
use warnings;
use File::Find;

my $dir = "C:\\Files";

find(\&fecha, $dir);

sub fecha
{
our $fila;
our $origen;
our @elem;

my $elemento = $_;
if($elemento=~ /\.dat$/)
{
our $yr;
our $mo;
our $mday;
our $hr;
our $mi;
our $se;
our $mil; ...

Proyecto de Sistemas Operativos sobre cómo aplicar Perl en páginas web con una base de datos MySQL.

Tengo el siguiente código:

sub getValue{
my($self, $caseDetail, $plans, $testCaseFlow) = @_;

my @plans = @$plans;
if($caseDetail->data)
{
my $plan;
my $error;
try{
foreach $plan (@plans){
my ($plan_value, $data_value) = split ("-",$plan);
if($caseDetail->data->name eq $data_value){
return $plan_value;
}
}
return $caseDetail->data->getValueByDataAndPlan($plan)->value;
}
catch{
my $e = @_;
$error = $e;
};
if($error){
return $caseDetail->data->value;
}
}
}


Todo funciona perfecto menos cuando se cumple la condición del if()
if($caseDetail->data->name eq $data_value){
return ...

Cómo enviar correos desde la línea de comandos en Perl

«Siempre tenemos algún servicio que necesita poder enviar un correo para avisarnos de alguna incidencia. Lamentablemente en algunos *ix comerciales, tienen la mala costumbre de tener algunos comandos antidiluvianos cuyas interdependencias con servicios modificados por el fabricante, hace que no siempre funcione como queramos.
Como este tipo de cosas no debe detenernos en nuestra labor de administración, os propongo este simple script en Perl que ...

Hola, mira, este ejercicio está hecho prácticamente. Lo que hace es ir recogiendo las líneas y las muestra, pero cuando hago ctrl+d me pregunta que si quiero continuar, si le digo que sí debe entrar en el bucle pero si le digo que no debe salir de la ejecución. ¿Qué me falta?

$contador=0;
print "Introduce palabras y pulsa intro para el salto de línea, cuando quieras finalizar pulsa ctrl+d\n";
@contenido=<STDIN>;
foreach $valores (@contenido)
{ ...

Este script tiene que mostrar todo lo que se haya introducido después de introducir los datos por <STDIN>, al pulsar ctrl + D, debe mostrar todo lo introducido.
Esto es lo que tengo hecho:

while ( $linea = <STDIN> ) {
@contenido < $linea;
}
foreach $valores (@contenido) {
print $valores;
}

Hola, me gustaría saber si alguien podría ayudarme con esta duda. Resulta que cuando quiero eliminar un patrón, no lo hace, y no sé por qué. Como se puede apreciar en la imagen, encuentra el patrón en la base de datos, pero dice que no son iguales :?

sub comparar{

printf ("Estoy aquí.\n");

my($tabla,$patron,$conexion)=@_;

print "La tabla es: ",$tabla,"\n";

my $sth = $conexion->prepare("SELECT * FROM $tabla"); ...