Foro - Perl en Español

Hola,

Tengo un servidor en Perl y un cliente de prueba en Perl.

Quiero enviar una cadena (string) sin enviarla línea por línea, respetando su formato original,
porque si lo envío como "print $socket $datos-ejemplo . "\n";", me llegan los datos por líneas.

Una duda, para enviar datos, ¿es necesario que la línea finalice con '\n'?
Porque sin '\n', parece ser que la línea no se envía.

Gracias a explorer por compartir el código de ...

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 ...

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;
}

Tengo una sesión donde voy guardando diferentes valores de variables. Utilizo Apache::Session.

Mi pregunta es cómo puedo borrar SOLO algunas de las variables guardadas en la sesión. No quiero borrar toda la sesión, sino solo algunas variables determinadas.


¡¡¡Gracias!!!