• Publicidad

Fecha actual 2025-03-16 00:30 @062

News News of Foro - Perl en Español

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

La comunidad de programadores en Perl de habla-hispana.

Decimales al dividir

¡Hola!

Tengo una variable que trae un valor decimal con dos decimales, por ejemplo $a = 15.00.

A esa variable la tengo que dividir por cierto valor, por ejemplo 3.

O sea $a = $a / 3. Y me queda $a = 5, sin los decimales. Yo quiero que me quede $a = 5.00.

O sea, que siempre tenga dos decimales, por más que el resultado sea entero.

¿Hay alguna forma de hacer esto?

¡¡¡Desde ...
Read more : Decimales al dividir | Vistas : 1058 | Respuestas : 2 | Foro : Básico


Linux cumple 20 años

Durante estos días, se está celebrando en Vancouver, Canadá, el vigésimo aniversario del sistema operativo Linux. Las conferencias se pueden seguir en vivo.

Me parece que ha pasado un siglo, desde que en 1996 instalé mi primer Linux, ¡en 26 disquetes! :) Ahora, con un DVD, se instala el sistema base, pues el resto está disponible y se baja en unos minutos, por Internet.

Aún nos está ...
Read more : Linux cumple 20 años | Vistas : 546 | Respuestas : 0 | Foro : Pasando el rato


Configurar script para que se ejecute cada cierto tiempo

Buen día a todos...

Lo que necesito saber es cómo podría hacer un script, para administrar unos bots que se deben ejecutar cada cierto tiempo.

Ej.

Que un bot que va a mi página a checar información se ejecute cada 2 horas.

Sé que lo podría hacer con un cron jobs pero, ¿hay forma de administrar esos jobs, si ya hay alguna solución, o que se puedan crear esos jobs por un administrador?

Lo ideal ...
Read more : Configurar script para que se ejecute cada cierto tiempo | Vistas : 9501 | Respuestas : 7 | Foro : Avanzado


Conciliación en Perl tarda demasiado

Hola, les escribo para ver si me pueden ayudar con el siguiente problema:

Tengo un proceso de conciliación de suscriptores que corre sobre Perl en un servidor UNIX; el proceso consiste en leer un archivo .txt (de 1.000.000 de registros) que contiene toda la información a conciliar y compara con los registros que están en 2 tablas en la BD (cada una con alrededor de 14.000.000 de registros). Las tablas tienen los índices necesarios para ...
Read more : Conciliación en Perl tarda demasiado | Vistas : 1548 | Respuestas : 2 | Foro : Avanzado


Llamar subfuncion de un script para utilizarlo en otro

Hola soy nuevo aquí. Espero estén muy bien y me puedan ayudar, bueno al punto.

Tengo una función llamada &table_split(); dentro de un script llamado test1.pl

La función va así:

sub table_split
{
print "Esta squi-..\n";
my $receive_fptbl= $_;
if($receive_fptbl eq 1)
{
my $name_cws= $_;
open (SPFILE,"$name_cws");
$. = 0;
while (<SPFILE>)
{
chomp($str_spfile = $_);
print SPTTABLE "$str_spfile\n";
if($str_spfile =~ /^\s*\D+\s*\#\s*\w+\d+\s*/)
{
chomp($Tname=$str_spfile);
$Tname =~ s/\s*\D+\s*\#\s//;
push(@table,$Tname);
close(SPTTABLE);
$file_cws_tmp = "$Tname.cws.temp";
unlink("$file_cws_tmp"); ...
Read more : Llamar subfuncion de un script para utilizarlo en otro | Vistas : 1453 | Respuestas : 3 | Foro : Intermedio


Cómo enviar instrucciones a un programa desde Perl

Hola a todos,

Necesito usar Perl o CGI para enviarle instrucciones a un programa externo que se ejecuta desde la línea de comandos. No tengo ni idea de cómo enfocar el tema, por eso no puedo poner ningún script de ejemplo. La idea es recoger de una página web varios parámetros (bien desde formularios, bien desde una línea de input de texto) y con esto componer la instrucción para enviar al otro programa y que ...
Read more : Cómo enviar instrucciones a un programa desde Perl | Vistas : 6117 | Respuestas : 39 | Foro : Básico


Comparar columnas de dos archivos muy pesados

Hola, he visto otros temas relacionados y los he revisado con detenimiento pero no logro usar estos antecedentes para resolver mi problema:

Tengo un archivo (tabulado) de varios gigabytes y otro no tan grande. Quiero comparar "string" que están en las columnas 2 de cada uno de ellos, y si es positivo, imprimir las columnas 1,2,3 del archivo primero y las columnas 1,2,3 del archivo segundo.

Dejo el código que tengo desarrollado para ver si ...
Read more : Comparar columnas de dos archivos muy pesados | Vistas : 2481 | Respuestas : 8 | Foro : Bioinformática


Pasar variables de un script a otro

Tengo los siguientes scripts:

test.pl:
#use LWP::UserAgent;
use Parallel::ForkManager;

my $forker = Parallel::ForkManager->new(5);

foreach my $child ( 1 .. 5 ) {

$forker->start and next;

for (my $i = 0; $i < 1; $i++) {

`perl down.pl`;

#print "child numero ",$child," con respuesta ",$response->code," ", $response->message,"\n";

}

$forker->finish;

}

$forker->wait_all_children;


down.pl:
use LWP::UserAgent;

my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
my $response = $ua->get("http://pagina.com"); ...
Read more : Pasar variables de un script a otro | Vistas : 1856 | Respuestas : 7 | Foro : Básico


Anunciado YAPC::EU::2012

Será en Frankfurt, Alemania, al año que viene.

Es una de las primeras noticias que se han comunicado en el YAPC::EU de este año.
Read more : Anunciado YAPC::EU::2012 | Vistas : 1181 | Respuestas : 1 | Foro : Noticias de Perl


Por qué este array solo contiene un elemento

Hola..
Soy nuevo en Perl y en esto de las expresiones regulares.. El problema es que hago una búsqueda en un archivo y guardo el resultado en un array pero no entiendo por qué siempre obtengo solo el último elemento del array... Acá el código...

foreach $line (<LOGFILE>) {
chomp($line);
if ( $line =~ m /http:\/\/www.google.de\/search\?q\=(.*\b&ie{1}\b)/ig ) {
@google = $1;
}

}
foreach $linea (@google) {
print $linea;
}


¿Podrían echarme una ...
Read more : Por qué este array solo contiene un elemento | Vistas : 740 | Respuestas : 3 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981