Foro - Perl en Español

Tengo este archivo de 2 columnas...

Code: Seleccionar todo: contig00003 FBO8G5401CWQ5N contig00003 FBO8G5402F3NCU contig00003 FBO8G5402GCMD8 contig00003 FBO8G5402FFLIP contig00003 ALB_18F12_F_ab1 contig00003 ALBSCV_03C08_F_ab1 contig00003 FA8IC4H02DS8JW contig00003 FBO8G5402HGKUR contig00003 FBO8G5402FI9DB contig00002 ALSINT_04P11_R_ab1 contig00002 ALSINT_04E24_R1_ab1 contig00002 ALSINT_04I22_R_ab1 contig00002 ALSINT_04I22_R1_ab1 contig00002 ALSINT_05H03_R_ab1 contig00002 ALSINT_01O23_R_ab1

Lo que quiero es que me imprima la columna 1 (contig00003) y que me vaya contando de la columna 2 cuántas veces aparece F.* y me lo imprima y cuántas veces aparece ALB.* y también me lo imprima... y ...

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!

Foro - Perl en Español

News of Básico

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

Contar repeticiones

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

Last 10 active topics

Identificarte • Registrarse

Estadísticas