Buen día, perleros, espero puedan ayudarme es una duda muy básica. Es para separar texto. Tengo mi programa:
#!/usr/bin/perl
##################################################
## Variables a modificar
##################################################
$datadir = "/data";
$sqldir = "/sql";
$historicaldata = "/historico";
##################################################
&fecha;
opendir(DIRHANDLE,"$datadir");
foreach (readdir(DIRHANDLE)) {
if ($_ ne "." && $_ ne "..") {
push (@archivos, $_);
}
}
closedir DIRHANDLE;
@archivos = sort(@archivos);
foreach $archivo (@archivos) {
($fechacomp, $no) = split(/\./, $archivo);
$sqlfecha = $fechacomp;
$fechacomp =~ s/\-//g;
if ...
-
- Publicidad
Fecha actual 2025-03-06 13:11 @591
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.Implementar un script que rescate datos en MRTG
Hola, soy nuevo en esto de la programacion en Perl. Implementé el servicio MRTG y ahora quiero incorporar un script que busque los picos más altos del día, los guarde en un archivo, que se pueda hacer un promedio, que muestre el día que tuvo su mayor pico y mostrarlo por HTML.
Si me pueden guiar, de antemano, muchas gracias.
Revisé los temas que hay en el foro pero no los pude acomodar para lo ...
Si me pueden guiar, de antemano, muchas gracias.
Revisé los temas que hay en el foro pero no los pude acomodar para lo ...
Read more : Implementar un script que rescate datos en MRTG | Vistas : 806 | Respuestas : 2 | Foro : Básico
Creación de página con un chat integrado
Saludos, Sr. Moderador, mi nombre es Edward, soy de República Dominicana, necesito si es posible que me ayuden en lo siguiente: estoy creando un Sitio Web que va a contener una página web con un chat integrado que soporte video conferencia. ¿Qué lenguaje de programación ustedes me recomiendan utilizar para hacer este Chat?.
De antemano les quiero dar las gracias por las informaciones que ustedes suministran en su sitio. Son muy prácticas y me ha ...
De antemano les quiero dar las gracias por las informaciones que ustedes suministran en su sitio. Son muy prácticas y me ha ...
Read more : Creación de página con un chat integrado | Vistas : 1457 | Respuestas : 0 | Foro : Avanzado
Código Perl localización finales secuencia
Tengo que incluir en el programa un código que signifique más o menos esto: "si llegas al final de la secuencia buscando un codón de terminación esa pásame también esa secuencia, aunque no encuentres ningún codón de terminación".
Mi programa trabaja con array.
Muchas gracias
Mi programa trabaja con array.
Muchas gracias
Read more : Código Perl localización finales secuencia | Vistas : 1773 | Respuestas : 3 | Foro : Bioinformática
¿Por qué funciona el spam?
Un estudio asegura que el 30% de las personas que recibe un correo basura termina comprando el producto que se ofrece. Los productos más requeridos son píldoras sexuales, software y artículos de lujo.
La investigación fue realizada por la inglesa Marshal y demuestra que las compras de este tipo crecieron un 10% respecto de 2004, cuando Forrester realizó un estudio similar.
"La encuesta pone de relieve una verdad incómoda", dijo el vicepresidente de Productos ...
La investigación fue realizada por la inglesa Marshal y demuestra que las compras de este tipo crecieron un 10% respecto de 2004, cuando Forrester realizó un estudio similar.
"La encuesta pone de relieve una verdad incómoda", dijo el vicepresidente de Productos ...
Read more : ¿Por qué funciona el spam? | Vistas : 1563 | Respuestas : 5 | Foro : Pasando el rato
Videos de las charlas rápidas YAPC::EU 2008 ya disponibles
Read more : Videos de las charlas rápidas YAPC::EU 2008 ya disponibles | Vistas : 1355 | Respuestas : 0 | Foro : Noticias de Perl
Publicado un wiki escrito en Perl 6: November
El pasado día 17 de agosto, en la conferencia Europea de Perl en Copenhage, se presentó un wiki hecho en Rakudo (Perl 6), tomando como referencia otro hecho en Perl 5.
Todavía está un poco verde (le faltan algunas cosas), pero poco a poco va mejorando.
Ya tiene su propio dominio. También podéis ver la presentación en pdf y video.
Ya lo tienen instalado en feather, la plataforma de desarrollo para proyectos Perl 6. También ...
Todavía está un poco verde (le faltan algunas cosas), pero poco a poco va mejorando.
Ya tiene su propio dominio. También podéis ver la presentación en pdf y video.
Ya lo tienen instalado en feather, la plataforma de desarrollo para proyectos Perl 6. También ...
Read more : Publicado un wiki escrito en Perl 6: November | Vistas : 1091 | Respuestas : 0 | Foro : Noticias de Perl
Conocer el nombre de una función
Hola, perdonad si es una pregunta tonta. Supongamos que estoy dentro de una función y desearía poder sacar el nombre de la función que se está llamando y no tener que escribirla del modo que muestro abajo, pues lo tendré que usar en muchas funciones.
sub articulo {
my $articulo;
$articulo->{funcion} = "articulo";
return $articulo;
}
¡¡Gracias!!
sub articulo {
my $articulo;
$articulo->{funcion} = "articulo";
return $articulo;
}
¡¡Gracias!!
Read more : Conocer el nombre de una función | Vistas : 603 | Respuestas : 2 | Foro : Básico
Problemas con grep
¡¡Hola!! Tengo el siguiente código:
#!C:\perl\bin\perl.exe -X
use File::Find;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $q = new CGI;
my @thefiles = $q->param("thefiles");
my @files = $q->param("files");
my @lines = $q->param("lines");
my $f = $q->param("f");
my $query = $q->param("query");
my $consulta = $q->param("consulta");
require "divs.pl";
#my $Mostrar= "";
if($consulta == '1'){
&Resultados;
}else{
&Principal;
}
sub Principal{
print <<eof;
<html><head><title>prueba archivos cgi</title></head><body>
<form action='Nuevo3.cgi' method='post'>
<input type='text' name='query' size='50'>
<input type='submit' name='Mostrar' value='Mostrar' ...
#!C:\perl\bin\perl.exe -X
use File::Find;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $q = new CGI;
my @thefiles = $q->param("thefiles");
my @files = $q->param("files");
my @lines = $q->param("lines");
my $f = $q->param("f");
my $query = $q->param("query");
my $consulta = $q->param("consulta");
require "divs.pl";
#my $Mostrar= "";
if($consulta == '1'){
&Resultados;
}else{
&Principal;
}
sub Principal{
print <<eof;
<html><head><title>prueba archivos cgi</title></head><body>
<form action='Nuevo3.cgi' method='post'>
<input type='text' name='query' size='50'>
<input type='submit' name='Mostrar' value='Mostrar' ...
Read more : Problemas con grep | Vistas : 811 | Respuestas : 3 | Foro : Básico
Numeración en Perl
Hola, tengo otro problema en el mismo programa y es que me tiene que devolver un montón de cabeceras seguidas de distintas secuencias de ADN pero no consigo que me salgan numeradas.
El resultado correcto es:
A mí me sale:
Creo que el fallo está en esta línea del programa:
$entrada= ...
El resultado correcto es:
- Code: Seleccionar todo
>1-100000_1 [23 - 121] (titulo1)
(secuencia)
>1-100000_2 [84 - 143] (titulo2)
(secuencia)
A mí me sale:
- Code: Seleccionar todo
>1-100000_ [23 - 121] (titulo1)
(secuencia)
>1-100000_ [84 - 143] (titulo2)
(secuencia)
Creo que el fallo está en esta línea del programa:
$entrada= ...
Read more : Numeración en Perl | Vistas : 1199 | Respuestas : 9 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981