Foro - Perl en Español

Buenas, vengo aquí con una nueva duda (sí, soy un poco pesadete :lol: )

Veréis, en un archivo Perl tengo que cambiar los permisos de varios archivos, (en concreto el "passwd" y el "shadow"). El caso es que soy incapaz de cambiarles los permisos, he intentado con:

chmod(0640,"/etc/passwd");
chmod(0640,"/etc/shadow");

También he probado con:
system("chmod 640 '/etc/passwd'");

Y también tengo otra duda:
No sé cómo puedo ...

Hola.

Tengo un script que me devuelve la hora de la máquina en la que está trabajando.

Lo que necesito es cambiar esa hora a la hora que tengo yo.

Es decir, si me devuelve las 12.00 de la mañana y resulta que la máquina en la que está corriendo el script está en Japón, necesito convertir esa hora a la que tenemos en España.

¿Hay alguna forma de saber qué franja horaria hay en ...

Saludos a todos:

Deseo que alguien me ayude a encontrar cómo codificar en Perl, el cálculo de una arcotangente de un valor.

He visto en el CPAN que existe una función llamada ATAN(valor), pero no entiendo cómo instalar esa librería, pero si existe otra forma de calcular este valor, agradeceré mucho su ayuda.

Saludos desde México.
Ricardo.

¡Hola de nuevo! Lo que quiero es dar la opción de abrir un archivo y que si no lo encuentra te pida introducir un nuevo nombre.

Tengo esto, pero no funciona, si introduzco el nombre de un archivo que no encuentra, sale error y pide un nuevo nombre, pero luego al introducir el nuevo nombre, aunque sí lo encuentre y esté bien, sale error :" illegal division by 0"

unless ( open(DNAFILE, $dnafilename) ) ...

¡Buenas de nuevo! Tengo una nueva duda, que no consigo resolver, veréis:
Tengo un fichero, y en dicho fichero querría eliminar una palabra de una frase en una línea concreta.
Ejemplo:

Imaginemos que tenemos el siguiente fichero:

blablablabla
blablalba
Nombres: Pepe Paco Manolo
balblabla
blablal

Me gustaría que en el fichero, utilizando como patrón la línea de "Nombres:", eliminar la palabra "Paco", de modo que quede:

blablablabla
blablalba
Nombres: Pepe Manolo
balblabla
blablal

Un saludo

¡Buenas! Soy nuevo en el foro y quería ver si me podíais echar un cable con un problema que tengo.

Veréis: desde un HTML, mando un parámetro (nombreusuario) a un archivo Perl, de este modo:
my $query = new CGI;
my %FORM = $query->Vars;
my $nombreusuario = $FORM{Usuario};
Después, necesito leer un fichero línea a línea, y en caso de que en ese fichero encuentre el parámetro que leí del HTML, pues escriba más ...

• Cree un archivo tipo texto con las siguientes características:
  
  • Cada palabra (campo) deberá estar separado por ':' (dos puntos) sin espacios intermedios
  • El último dato solamente lleva ENTER, NO COLOCAR ':' (dos puntos)
  • Que contenga 4 campos
• Abra el archivo de modo lectura
• Imprima los registros con todos sus campos
• Abra el archivo de modo lectura-escritura
• Imprima su contenido
• Genere nuevos datos
• Imprima contenido
• ...

Buenas noches.

Tengo un script en Perl para realizar copias de BD de MySQL, y quiero poder detectar cuándo se ejecuta bien o cuándo da algún error, pero no consigo cazar las excepciones de errores.

¿Sabéis cómo puedo saber si un comando se ejecutó correctamente o dio algún error en Perl?

Orden que utilizo (acepto consejos):

system("/usr/bin/mysqldump -u $userDB --password=$passwordDB --single-transaction --routines --events --triggers --hex-blob $bd | /bin/gzip -c > $DST/$DATA" . "_" . $bd ...

Evaluar la posibilidad cuando el contenido del saco sea vaciado en su totalidad. Generar el mensaje “El saco está vacío, no hay más qué contar. Cargue un nuevo saco”.

#!/usr/bin/perl

$pesosaco=2.1;
$peso=1;
while($peso != 0) {


print "ingrese un peso: 0.70gr plástico 1 gr canicas \n";
$peso=<STDIN>;
chop($peso);
print "\n";
if ($totalp==$pesosaco){
print "el saco está vacío, no hay más qué contar. Cargue un nuevo saco";
}
else
{
if ($peso == 0){
print "total ...

Necesito su ayuda. Necesito un programa que muestre un mensaje en pantalla de que su tiempo ha terminado al llegar a dos minutos. Hasta aquí todo bien. El problema es que también debe mostrar un mensaje de interrupción si el usuario no presiona una tecla durante diez segundos.

#!/usr/bin/perl

my $countdown = 2*60;

$| = 1;

my $beg_time = time;
my $end_time = $beg_time + $countdown;

for (;;) {
my $time = time;
last if ...