Foro - Perl en Español

Tengo un arreglo de dimensión 6, el cual deseo llenar con ceros y unos, en todas sus posibles soluciones.

Debían ser 64 en total, ya que 2*2*2*2*2*2 = 64;

Me he pasado todo el día creando un algoritmo que haga esto, pero mi cabeza no encuentra la solución :s

¿Alguna idea?

Aquí mi lista, pero solo con 60, y repetidos algunos

111110
011110
101110
110110
111010
111100
111101
011101
101101
110101
111001
111101
111011
011011 ...

Hola,

Soy nuevo por aquí, además no sé casi nada de Perl, así que no me deis mucha caña :roll: , solo quiero saber si lo que pretendo es viable o no.

En el curro tenemos una aplicación web que primero hace una confirmación de si existe el cliente cuando introduces teléfono y DNI en un formulario, después te muestra todos los los datos en la ...

Buenas a todos, me gustaría saber cómo se podría hacer lo siguiente:

Tengo un archivo de texto con x líneas, las cuales pueden ir variando, y lo que quisiera es poder abrir el fichero y añadirle el nuevo texto a dos líneas del final, es decir, si tenemos 50 líneas de texto que empiece a escribir el nuevo texto en la 48, y si hay 20 en la 18, etc...

Se puede hacer con un ...

Hola,

Tengo un script que consulta los routers que dispongo. Si el router contesta funciona correctamente, el problema viene si uno de los routers que intento interrogar no contesta ya que al no contestar produce un error que para la ejecución de todo el programa. ¿Cómo puedo introducir un control de errores que no provoque el corte total del programa?

Os pego el código:
sub conexion_Router () {

my $ipRouter = shift;
my $loginRouter = ...

Hola a todos,

He estado buscando información acerca de como consumir y proveer webservices usando Perl, lo primero que encontré es el módulo SOAP::Lite http://www.soaplite.com y se dice que a partir de 2001 el protocolo SOAP cambio mucho y el módulo quedó rezagado http://daniel.ruoso.com/categoria/perl/soap-today

Por otra parte en Diciembre de 2002 Randy J. Ray y Pavel Kulchenko escriben el libro "Programming Web Services With Perl" en el que mencionan que hay 2 módulos para Perl ...

Hola a todos. Bueno, soy principiante en Perl y estoy tratando de hacer un código que me extraiga todas la imágenes de cualquier página web. La idea es poder clasificarlas por tipo (jpg, png, etc) Solo lo estoy haciendo para poder practicar. He estado usando WWW::Mechanize pero no entiendo su funcionamiento. Estoy usando el $mech->images que se supone lee todas las imágenes de la página... pero no sé cómo rescatarlas... si alguien pudiera orientarme...


Gracias.

Buenas

$nuevo = chomp($entrada = <STDIN>);

Si la entrada de STDIN es "Hola\n" tengo claro que chomp() quita el "\n" y por tanto $nuevo será Hola.

¿Pero qué pasa con la variable $entrada?
¿Queda también como Hola o como Hola\n?


saludos

Hola amigos.

Hace un tiempo con la ayuda de este hermoso foro, principalmente con la colaboración especial del amigo explorer logré terminar un redirector para Squid, el cual a la fecha actual ha evolucionado y es parte de los addons de una minidistro GNU/Linux llamada BrazilFW. Pero acontece que dicho redirector depende 100% de Squid, con lo cual obliga a quien quiera usarlo a instalar Squid. Por tal motivo pido de su ayuda u orientación ...

Tengo la declaración de variable siguiente:

sub definedir{
$ENV{PATH} = '/usr/local/bin:/Volume/Raid/prueba'
}

y ahora quiero añadir el directorio (con espacios):

/Volume/Raid1 1/prueba2

Mi duda es: ¿podría ponerlo así con el espacio en blanco?

En la shell de Unix debo ponerlo entre comillas 'Raid1 1', pero en Perl desconozco el método.

NOTA: No puedo renombrar el fichero.

A ver si algún forero posee este conocimiento.
Gracias.

Saludos cordiales,

Espero puedan ayudarme con este problemita que me tiene dando vueltas la cabeza:

He estado intentando insertar una línea cada vez que pasen 10 líneas en un archivo de texto.
Lo único que pude hacer es insertar una línea después de cada línea. Ejemplo:
#!/usr/bin/perl

open $FH,"<mp31.lst" or die $!;
$flag=0;
while(<$FH>){
print;

{
print "/home/mp3";
print "psi.mp3\n";
$flag=0;
}
}
close $FH;


¿Cómo puedo hacer que imprima pero solo cada ...