Foro - Perl en Español

Hola, me acabo de unir a este foro. Soy nueva en Perl y necesito numerar las líneas de un programa ya que me tiene que salir el contenido del texto numerado.

El código que tengo hasta ahora es:

open( FUENTE, "$archivo1" ) || die "no se puede abrir el archivo\n";
open( RESULTADO, ">$archivo5" ) || die "no se puede abrir el archivo\n";

while ( $linea = <FUENTE> ) {
if ( $linea =~ /EXPRESS/ ...

Hola, estaba practicando el manejo de tablas mediante Tk y llegué a un punto en el que no sé cómo
mostrar el valor entero.

El problema está en la función show_cells(), la cual muestra solo los números. Mi idea es que muestre el valor completo. Lo he intentado mostrando con $_ pero no se muestra.

#!/usr/bin/perl
use warnings;
use Tk;
use Tk::Table;
my $cols = 10;
my $rows = 20;
my %slct;

# ------------------------------------------------------------------------ ...

Tengo una duda básica sobre cómo usar for() para que vaya disminuyendo el número en vez de aumentar.

El código que tengo es:

$uno = "1";
$dos = "6";

for my $num($uno..$dos) {
print $num."\n";
}

La idea es que en vez del 1 al 6 vaya del 6 al 1.

¿ Alguien me puede explicar cómo lo hago ?

Muy buenas, me presento me llamo Iván y estoy desarrollando con Perl, CGI y DBI.

Bueno, al lio, resulta que estoy recuperando de una BD el valor de un campo. Este valor es un 0 pero cuando hago la consulta con Perl y obtengo el valor de la referencia me devuelve un 1 en el log... Os pongo la subrutina:

sub comprobarNDocsTiposFuentes {

my ( $self, $tipoComprobar ) = @_;

$self->guardarLog( "Valor que llega ...

Saludos, comunidad de Perl en Espanol.

Les escribo en este caso solicitando ayuda para la realización de una aplicación web.

Se me ha presentado un problema con respecto a la codificación de la página web. Quiero que ésta use UTF-8 debido a que todos mis datos los manejaré bajo esa codificación. He agregado la etiqueta meta en el html para tal fin, he modificado Apache2 para que defina utf-8 por defecto pero no consigo que ...

Buenas, este es el ejercicio que nos han mandado:

Previamente es necesario estudiar los temas de "Entrada y salida en archivos" y "procesamiento básico de textos".
Posteriormente hay que copiar los cuatro archivos que están en: http://bip.weizmann.ac.il/course/prog/a ... 4_sources/ y que corresponden a la descripción textual de un gen, presentes en la base de datos UniGene.

El objetivo de la práctica es:
Escribir un programa que reciba el nombre ...

Sí funcionan con los números, pero no con letras. Por ejemplo, si pongo:
print --($foo = 'BA');
Entiendo que debería aparecer en pantalla "AZ", pero en vez de eso me muestra "-1". Extrañamente, sí funciona bien el incremento.

Estimados,
Los molesto porque me gustaría hacer que el siguiente script me guarde los resultados en archivos diferentes y no como ahora todo en uno solo.


#!/usr/bin/perl
BEGIN {
eval "use LWP::Simple";
if ($@) {
warn "Error al cargar modulo: LWP::Simple\n"
. "Instalar Modulo:\n"
. "\t\tcpan\n"
. "\t\tcpan> install LWP::Simple\n";
exit();
}
}

use LWP::Simple;

sub unescape {
my ($str) = splice(@_);
$str =~ s/\\u(.{4})/chr(hex($1))/eg;
return $str;
}

## Archivo Externo
open $FILE, ...

Nos han puesto un ejercicio que consiste en explicar las diferencias entre las variables locales y restringidas, con un ejemplo. Solo quiero saber si queda claro de la forma en la que lo he hecho.

numeros (); #Mostraremos en pantalla el resultado de la función "numeros".
sub numeros { #Defino la función numeros.
my $a = 5; #Defino una variable restringida con my, en este caso $a.
my $b = 10; #Defino otra variable ...

Version Tk de un cliente FTP que hice en Perl.

Las opciones que tiene son:

Listado de archivos en un directorio
Borrar archivos y directorios
Crear directorios nuevos
Renombrar
Descargar y subir archivos

Una imagen:


El código del programa:

#!usr/bin/perl
#FTP Manager 0.2
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::FileSelect;
use Cwd;
use Net::FTP;

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free(); ...