Foro - Perl en Español

Hola de nuevo, me presento aquí con una nueva duda:

Un ejercicio que tengo que hacer me exige esto:

Necesito visualizar el contenido de un fichero que cada línea contiene el siguiente formato:

Code: Seleccionar todo: ID MIN HORA DÍA MES DÍA-SEMANA ORDEN

si el fichero contiene este contenido:

Code: Seleccionar todo: 1 04 16 * * * diario/S12kbd 2 04 16 * * * diario/S14smbfs 3 04 16 * * * diario/S10nfs 4 04 16 * * * diario/S12running-kernel

El ...

Hola, estoy trabajando con un hash y quería saber lo que significa exactamente esta expresión regular y si hay alguna que haga la misma función para cambiarla. ¿Si me pasa otra podría explicármela también por favor?

$hash{$key} = $key + int (($fin-$key)/ 3 ) * 3

Muchísimas gracias.

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

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

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

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

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:

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

Hola, he hecho un programa en Perl que funciona pero en el terminal me da un fallo (que no impide su correcto funcionamiento) pero que soy incapaz de subsanarlo... Este es un trocito de uno de los bucles del programa en el que indicado la línea del fallo. Exactamente en el terminal me pone:

Code: Seleccionar todo: Use of uninitialized value in numeric eq (==)

for($A=0;$A<$n_inicio;$A++)
{

$posicionE= $AposicionE;

$posicionS= $AposicionS;

if ($posicionS == 0) # en ...

¡Hola!

Tengo que hacer una llamada a un programa MS-DOS desde un script en Perl y quiero que termine antes de continuar con el resto del script.

Creo que si hago la llamada con "system" se crea un proceso pero no espera a que termine. Sin embargo, si lo ejecuto con "eval", creo que sí espera... ¿Es esto cierto? Sino, ¿cómo se puede hacer para que espere a la llamada?

¡Gracias!

¡¡Hola!! No sé si alguien pudiera echarme la mano con este módulo del file grep. Lo que hice fue poner de manera local unos archivos txt, dentro de una carpeta, entonces escribí el siguiente código:

#!C:\perl\bin\perl.exe -X

use cgi;
require "divs.pl";
use CGI::Carp "fatalsToBrowser";
use File::Grep qw( fgrep fmap fdo );

print "Content-type: text/html","\n\n";
my @matches = fgrep { /GOBIERNO/} glob "C:\AppServ\www\pdf\*txt";
print SUMMARY $_ foreach @matches;

donde le estoy diciendo que quiero buscar la ...

Foro - Perl en Español

News of Básico

Site map of Básico » Foro : Básico

Format o como se haga

Expresión regular en Perl

Separar texto

Implementar un script que rescate datos en MRTG

Conocer el nombre de una función

Problemas con grep

Numeración en Perl

Igualdad en Perl

Esperar a que termine la ejecución de un programa

Problemas con File::Grep

Last 10 active topics

Identificarte • Registrarse

Estadísticas