Foro - Perl en Español

Fisher-Yates shuffle
sub shuffle {
use integer;

my $array = shift;
my $i;

for ($i = @$array; -$i; ) {
my $j = int rand ($i+1);
@$array = @$array;
}
}
my %card;
sub init_cards {
my $c = shift;

my @denom = ( 2 .. 9, qw/ t j q k a / );
my @suits = qw/ h d c s /;

my @dim = ( -width => CARDWIDTH, -height => CARDHEIGHT ); ...

¿Qué tal, gente? Estoy tratando de hacer un programa que conecte a los puertos y si no que me diga que no se conectó, pero tengo un problema cuando empiezo a ejecutar me tira este error:

Useless use of a variable in void context at sockPerl.pl line 16.

Acá esta el código:
#!/usr/bin/perl -w
use IO::Socket;
$port = 20;
for($port; $port<=100;$port++){
$con = IO::Socket::INET->new(
PeerAddr => 'www.brianstanley.com.ar',
PeerPort => $port,
Proto => 'tcp',
Timeout ...

Hola, buenas tardes, perleros,

Una consulta relacionada con acceso a Internet.

Resulta que hasta ahora podía acceder a descargarme archivos desde una máquina sin problemas, pero ahora necesito hacerlo utilizando el proxy, definiendo una variable de entorno: export http_proxy=cache.local:3128.

Lo he probado en el siguiente script para que me baje los ficheros gfs de la NOAA, pero no me chuta. También he utilizado --proxy cache.local:3128 dentro de my $host = 'http://nomads.ncep.noaa.gov'; pero no me descarga... ...

Buenos días a todos.

He escrito un programa de Perl que llama a un "one-liner" para llevar a cabo una operación (eliminar todas las lineas que empiecen por "@" de un fichero de texto de un tamaño muy grande, varios Gigabytes).
Pero me dá el siguiente error al llamar al "one-liner":

Use of uninitialized value in concatenation (.) or string at samcleanser.pl line 23.
syntax error at -e line 1, near "="
Execution of -e ...

Hola, perleros. Soy Paco y soy algo nuevo en esto de la programación en Perl. He andado vuelto loco en la red buscando una solución a este problema. Ojalá alguien me pudiera ayudar...

Yo utilizo una base de datos creada en localhost y tengo el siguiente código:

#!/usr/bin/perl

use DBI;
use DBD::mysql;

print "Ingresa el query: ";
$query = <STDIN>;
my $roux;
my $t = 0;
my $dbh = DBI->connect( 'DBI:mysql:Database;host=127.0.0.1', 'root', '' ) ...

Hola, gente perlera, soy nuevo por acá y me gustaría pedir su ayuda.

Para dentro de dos horas tengo que entregar un programa que calcule la reversa complementaria de una cadena de ADN usando la función substr().

Sé que parece algo muy fácil, pero no sé cómo hacerlo, por eso la coloqué en la sección de nivel básico.

Por favor, ayúdenme lo más antes posible.

Gracias... :)

Hola a todos, tengo un problema.

Tengo en mi servidor varios archivos ".dat" que puedo abrir y leer, pero cuando intento abrir el fichero para poder escribir, me dice que no lo puede abrir.

Tengo todo alojado en ARSYS y me comentan que no puedo escribir ficheros, estoy intentando escribir en el fichero los datos de los clientes que se den de alta a través de la web.

Si no lo puedo hacer escribiendo directamente, ...

¡Buenas! Soy nuevo por aquí y tengo una pregunta para ustedes. No he encontrado lo que quería en el buscador, quizás porque no sé cómo buscarlo.

El caso es que quiero escribir un programa de cifrado (clásico) de texto, como puede ser el Caesar. A cada letra le sumas un valor para conseguir otra, y tal.

Pero esto es en español, y la letra 'Ñ' debería estar por ahí en medio.

Quiero que 'a..z' y ...

foreach $e (@{$data->{Cabecera}})
{
print "Operador: ", $e->{OperadorId}, "\n";
print "AlmacenId: ", $e->{AlmacenId}, "\n";
print "LoteId: ", $e->{LoteId}, "\n";
print "\n";
}


Hola, buenas. Tengo este código para que me pinte en pantalla los apartados del XML pero al ejecutarlo me da el siguiente error:
Not an ARRAY reference at ordenado_texto.pl line 15.

Porque si en el código pongo esto para otro archivo .xml, sí me funciona:
foreach $e (@{$data->{employee}})
{ ...

¡¡¡Muy buenas tardes a todos, espero puedan ayudarme!!!

Muchas veces, después de un proceso bioinformático obtenemos una gran cantidad de resultados. Estos resultados los llevamos a una hoja Excel para un mejor manejo. Además, no todos los resultados nos interesan, entonces necesitamos realizar una extracción de forma manual; pero esto es una pérdida de tiempo, cuando hablamos de una gran cantidad de datos (más o menos 1000).

Por ejemplo, supongamos que es una hoja Excel, ...