Foro - Perl en Español

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"); ...

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

Hola:

Tengo este array bidimensional que consigo ordenar por la primera columna,

__DATA__
aaaa1,g,20120111-23,1
aaaa3,c,20120110-3,1
aaaa1,f,20120111-2,1
aaaa1,g,20120111-113,1
aaaa2,a,20120109-23,1
aaaa2,h,20120110-3,1

si intento ordenarlo por la primera y tercera columna el resultado es

row 0: ,
row 1: ,
...

y yo esperaba que me pintase antes 20120111-2 que 20120111-113.
Tengo que hacer la ordenación alfanumérica, de ahí el problema.

¿Cómo puedo aplicar la transformada Schwartziana ...