Foro - Perl en Español

Estimados usuarios.

Me gustaría saber cómo puedo crear una barra de progreso, para ver el estado de avance de una rutina... por ejemplo un ciclo for que dura dos horas...

Sería algo así:

Code: Seleccionar todo

|#####.................................................|30%

O como la barra que utiliza cpan

Code: Seleccionar todo

................................................................................Done

¡¡¡Me sería de mucha utilidad si me pueden ayudar!!!

:arrow:

Hola,
Desde la ksh estoy llamando a una función en Perl del siguiente modo:

Code: Seleccionar todo

CompruebaBackup.pl $psax

Desde la función de perl, cuando se ejecuta me aparece el siguiente error:

Code: Seleccionar todo

RE error 41: No remembered search string.

Os adjunto código

# Almacenamos en variables los datos que vamos a buscar en el fichero trapd.log
$fecha=`date`;$Mes=(split " ",$fecha);
$Dia=(localtime);
# Buscamos si se ha generado el trap que dice que se ha realizado el Backup correctamente
$Existe=`cat ...

Hola, realmente lo que voy a preguntar ya deben haberlo preguntado antes, pero no logro encontrarlo mediante búsquedas.

Soy nuevo en materia de programación en Perl, y quisiera que me dijeran cómo se hace o me orientaran dónde puedo encontrarlo.

Estoy empezando y tengo un formulario sencillo donde una persona entra su nombre y otros datos, lo que quiero hacer es que al enviarlo se muestre esa información en la pagina, sin BD ni nada ...

Hola muy buenas, tengo un script en ksh el cual llama a una función en Perl:

Desde la ksh:
/usr/bin/perl /export/home/javierg/CompruebaBackup.pl $nodo

En Perl:
printf " el valor de nodo es $?????? ";

No sé qué poner.

Un saludo.

He creado el siguiente código:

#!/usr/bin/perl -w
use strict;
use HTTP::Request;
require LWP::Parallel::UserAgent;

my $pua = LWP::Parallel::UserAgent->new();
$pua->in_order (1); # handle requests in order of registration
$pua->duplicates(1); # ignore duplicados
$pua->timeout (100); # segundos
$pua->redirect (0); # sigue las redirecciones
$pua->max_hosts(4); # maximo numero de hosts paralelos
$pua->max_req (1); # maximo numero de requests paralelos


open (INDICE,"indice.txt"); #Abro el archivo que contiene las urls
my @reqs = <INDICE>;

foreach my $req (@reqs) {
print "Registering ...

Hola, disculpen, tengo un problema al asignar variables. Miren: tengo este script:
#!/usr/bin/perl

## Asigno Las Variables
my $x = a;
my $dx = '5 AND (SELECT Count(*) FROM id WHERE id LIKE "$x"."%") > 0';
#Imprimo
print "http://web.com/page.aspx?id="."$dx";
El problema está en la declaración de variables porque cuando imprimo sale esto:
http://web.com/page.aspx?id=5 AND (SELECT Count(*) FROM id WHERE id LIKE "$x"."%") > 0
O sea, la variable $x parece que no está concatenada.

A ...

Dadas oraciones en español (correctamente escritas):
* Indicar qué palabras se pueden reconocer; para las palabras reconocidas indicar su categoría gramatical y características morfosintácticas.
* Emplear el diccionario de la pag. http://ada.fciencias.unam.mx/~jfgarcia/ ... argas.html (morfo) o algún otro de Internet

Resultados:
Indicar claramente qué dominio han considerado para su proyecto
Presentar las 10 oraciones (¡¡diferentes!!) tipo que los usuarios podrían hacer
Presentar los resultados para las oraciones que se ...

Intento crear un script que busque en un directorio todos los archivos terminados en .jpg y que los mueva a un directorio:
#!/usr/bin/perl

use strict;
use File::Find;

my $dir = ' C:\img ';

find(\&imprimir_archivo_img, $dir);

sub imprimir_archivo_img{
my $elemento = $_;

if(-f $elemento && $elemento =~ /\.jpg$/)

{

my $img = $elemento ;

my $dest = 'C:\';

move( $img, $dest);

}

Pero al intentar interpretarlo me da:

C:\Documents and Settings\user\Escritorio\Programando\Perl\project>Img.pl
Can't find string terminator "'" ...

Hola, dispongo de un listado de clusters (cadenas de 3 a 8 palabras) y me gustaría buscar el número de ocurrencias de dichos clusters en varios ficheros de texto contenidos en un directorio.

De momento tengo el siguiente código:


foreach my $nombre_fichero ( <C:\\MI_DIRECTORIO\\*.txt> ){

open(TEXTO, $nombre_fichero);
@lineas=<TEXTO>;
close(TEXTO);
print @lineas;

while($cluster=<DATA>){
chomp($cluster);
$numero_de_veces=()=@lineas=~/$cluster/misg;
print "$cluster: $nombre_fichero: $numero_de_veces\n";
}
}
#LISTADO DE CLUSTERS
__DATA__
IN ORDER TO
THE EFFECT OF
THE NUMBER OF
DUE ...

Hola. Disculpen. Necesito ayuda con esto. Estoy programando un script para conectarme a un sitio pero el problema es que a veces no está activo el servidor y me preguntaba cómo puedo hacer para que si no conectara ahí vuelva a intentarlo otra vez y así hasta que conecte.
my $send = new IO::Socket::INET (
PeerAddr => "$server",
PeerPort => "1200",
Proto => "tcp",
);
die "No se puede abrir el socket, Motivo: $!\n" unless ...