Foro - Perl en Español

Hola

¿Sabéis si hay alguna función de Perl que nos diga el número de líneas que tiene un fichero .txt pasado como argumento?

Por ejemplo:
$numerolineas = numero_de_lineas('fichero.txt')

Si el fichero tuviera, por ejemplo 251 líneas, la variable $numerolineas valdría 251.

Muchas gracias :)

Hola a todos.

Tengo una duda sobre el uso de sed.

Quiero modificar una línea de un fichero; dicha línea tiene la palabra "leftcert=loquesea" y quiero cambiar la línea entera por "leftcert=otracosa".

He intentado lo siguiente pero no funciona así:

Code: Seleccionar todo

cat fichero | sed 's/leftcert*/leftcert=$myVariable/g' > fichero

¿Alguien me puede echar una mano?

Muchas gracias

Amigos, estoy intentando crear un script que me reciba un string suministrado por otro script en otra máquina. Para el script receptor he colocado el siguiente código tomado de un ejemplo de aquí:
#!/usr/bin/perl -w

use IO::Socket;
use Net::hostent;

$server=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>5800,Listen=>1,Reuse=>1);
print "server=$server\n";

die "no puede configurar servidor" unless $server;
print "Server $0 aceptando clientes";

while($cliente=$server->accept()){
$cliente->autoflush(1);
print "cliente=$cliente";
while(defined($line=<$cliente>)){
print $cliente $line
}
close $cliente;
}

Al ejecutarlo mediante perl p2.pl en la consola solo ...

Amigos, saludos

Estoy modificando el proyecto vncserver para la toma de control de máquina a distancia.

Ya logré modificar el proyecto para que suministre el tiempo que se tuvo control de la máquina a distancia.

Ahora estoy tratando de hacer un script en Perl que reciba un string de la máquina remota. A través del puerto 5800. La información es enviada a través de un programa en Java. El cual ya realicé pero requiero ayuda ...

Hola a todos, perleros.

Mi pregunta es la siguiente:
¿Para qué sirve cuando tengo, por ejemplo un tag de imagen html y en el evento onClick llamo a una funcion anteponiendo esto: "javascript:"?

Ejemplo: <img onClick="javascript:miFuncion();">

Estuve buscando pero no encontré nada al respecto. Saludos.

Hola amigos,

Acabo de hacer un programa muy cortito que abre un buzón POP3 y guarda todos los mensajes en un archivo de texto.

Lo he hecho siguiendo el tutorial de este sitio web, porque soy un principiante total en perl.

El problema que tengo ahora es que en el archivo de texto que he creado sólo puedo leer bien las cabeceras de los mensajes, ya que el contenido del mensaje está cifrado.

¿Cómo puedo ...

Agradecería si me pudiesen indicar donde esta el error en esta división.

¿Perl admite división por CERO?

my $resultado = ( $variable_1 * $variable_VALOR_CERO) / $variable_2

Es decir, obtendría resultado CERO, pero me tira error, ¿tengo que usar alguna función matemática?

Muchas gracias.

Que tal de nuevo requiriendo de su valiosa intervención.

¿Cómo puedo quitarle el acento a una cadena de texto? Aquí pongo un ejemplo.
my $nombre = "Martín González Gómes";

Quisiera que quedara así:
$nombre = "Martin Gonzalez Gomez";

¿Habrá alguna manera de sustituir la vocal acentuada por la vocal sin acento?

Buenas,

¿Alguien sabe cómo hacer para que cuando un script te pida tu contraseña se muestren asteriscos en vez de ésta?

¡¡Gracias!!

Se acaba de abrir un nuevo subforo en los foros de Perl en Español llamado Bolsa de Trabajo:
viewforum.php?f=27

Aquí se deberán de poner todas las ofertas de trabajo, tanto las que sean para buscar programadores, como la de programadores ofreciendo sus servicios.

Saludos