Foro - Perl en Español

Hola.

Estoy intentando abrir un archivo utilizando open() mediante el siguiente script:
#!/usr/bin/perl
fichero = "books"
# apertura sin variable
#open (MANIPULADOR, "books");
# apertura con fichero almacenado en variable
open (MANIPULADOR, "< $fichero");
close MANIPULADOR;
exit 0
El error que me sale es el siguiente :
syntax error at ./sperl4.pl line 6, near "open "
Execution of ./sperl4.pl aborted due to compilation errors.

¿Me podría indicar alguien qué es lo que estoy haciendo mal?? ...

Hola, les escribo para ver si alguien del foro conoce el nombre de algùn programa que permita realizar impresiones en playeras, he estado buscando en la red pero aun no encuentro nada, les agradeceria mucho si alguien lo supiera.

:roll: :idea:

Saludos, lista.

Por favor, me aclaran, ¿cuál es la función principal de Net::IP?

¿Puedo hacer una calculadora de subred a partir de este módulo?

Saludos

Cris

Saludos, lista.

Tengo el siguiente número:
11111111111111111111111100000000

Necesito, por favor, colocar un punto cada 8 números. Lo hice de un modo pero no me funciona, algo así:
my $numero = "11111111111111111111111100000000";

$numero =~ /^\d{1}\.\d{1}\.\d{1}.\d{1}/;

print "$numero\n";
Creo que falta algo de lógica.

¿Me ayudan por favor?


Saludos

Cris

Hola,

Tengo un programa en perl que muestra mensajes por pantalla atendiendo a unos criterios, fundamentalmente muestra tipos de errores producidos. Necesito que estas salidas indicativas de error, en mi caso, sean en color. ¿Cómo puedo indicarle a Perl que cuando escriba en pantalla algo sea de un color u otro?

Saludos y Gracias
:(

Hola, ando loco con esto que no me funciona y no veo el posible fallo.
$ip = $ENV{'REMOTE_ADDR'};
$_ = "$ip";
@numeros = split(/\./);

open(DATA,"online_provincias.txt");
while(<DATA>){
@C = split (/;/);
if ($C eq "$numeros") {
$provincias = "$C";
}else{
$provincias = "No"
}
}
Siempre imprime "No", aunque se cumpla la condición.

Los datos de la base están así:
27;Lugo
28;Madrid
29;Málaga
y $numeros es 28.

Os doy las gracias anticipadas.
Un saludo.

Que onda, ¿cómo les va?

Bueno está este CGI que quiero arreglar, lo que hace es comprimir un folder en un zip, lo genera en tiempo real, el problema es que el código truena y genera un archivo vacío si el folder es muy grande, con folders no tan grandes jala a la perfección,

Mi pregunta es: ¿Cual forma creen que sería la más eficiente para corregir eso?

Mi solución había sido leer el folder ...

Buenas,

Quiero imprimir todos los elementos de un array y entre ellos meter una coma; ahora mismo estoy haciendo esto:
foreach (@array) {
print $_ , " , ";
}
El resultado es el esperado... algo más o menos así:

elemento1 , elemento2 , elemento3 ,

Es decir, después de cada elemento del array meto una coma, ¿pero cómo podría hacer para no insertar una coma después del último elemento? Es decir que quede ...

Buenas,

¿Cómo se podría comentar un bloque de código en Perl? Lo que equivaldría al /* ... */ de C, vamos :-)

Resulta bastante molesto ir comentando línea a línea con #...

¡¡Saludos!!

Buenas,

Quiero pasar arrays entre funciones. Estoy llamando a la función así:
$resultado = funcion(@array1, @array2);
¿Cómo podría recoger esos arrays desde funcion()?

He probado con esto:my @tmp1 = shift;
my @tmp2 = shift;pero no funciona.. ¿Cómo podría solucionarlo?

¡¡Saludos!!