Foro - Perl en Español

OS: fbsd
shell:bash3
root@host:~#perl -e " for ( $i=0; $i<10; $i++; ) { print 'XXX.XXX.X.$i ip$i\n'; } " >> /etc/hosts
syntax error at -e line 1, near "( ="
Unterminated <> operator at -e line 1.
ok, ¿alguien sabe cómo hacer esto?

Hola a todos nuevamente, tengo un problema que seguramente es de fácil solución pero he probado varias alternativas pero no me han funcionado. El problema que es cuando quiero unir de una manera parecida a esta: $usuario .tar.gz no me funciona imprime todo como si el punto fuera el final de la línea.

Sale más o menos así.

#(mas código)

@dominios=`grep -l OWNER=$rv /sistema/users/*`;
foreach $a(@dominios)
{
@usuario=split(/\//,$a);
print ("/home/$usuario.tar.gz");

#(más código)

Y en vez ...

Hola a todos de nuevo, no sabía si postearlo aquí en el subforo de modulos.

Lo que yo pretendo es que al abrir el programa se introduzca la dirección IP o Hostname, user y password, y el programa haga un simple Dir o Ls según sea la plataforma en la que nos encontremos.


#Telnet.pl
#Coded by RevangelyonX
use Net::Telnet;
#Pidiendo datos al usuario necesarios para la conexión.
print "Introduzca Hostname o IP: \n";
$host ...

¿ Existe algún modulo para poder utilzar RawSockets en windows ?

Hasta el momento he encontrado Net::RawIP el cual al parecer no trae soporte para windows al momento de instalarlo. He intentado hacer eso de :
uselib("./");
use RawIP;

ó

require 'RawIP.pm'; //estando obviamente el .pm en el direcotrio actual

Sin mencionar que con cpan no me lo instala.

También he copiado el codigo fuente de RawIP.pm al directorio C:\Perl\lib\Net\ y C:\Perl\site\lib\ ...

Hola a todos

El caso es que tengo la siguiente expresión regular:

my $filename_regexp = qr/^STAT_\d{8}_\d{6}(\.\w+\.\d+)?\.\d{2}\.(\d+)_(\d+)$/;

Quiero modificarla de forma que no me agarre cadenas que terminen por 0000000000_0000000000 (correspondientes al (\d+)_(\d+)$/)
Es decir, que no me agarre cadenas que terminen por una serie de ceros, el carácter '_' y otras cadenas de ceros.

¿Hay algún modo de indicarlo directamente en la regexp?

¡¡Muchas gracias!!
Saludos,
Felipe

Buenos días,

Somos una empresa venezolana buscando un curso presencial en Perl. No importa en que país se vaya a dictar el curso.

Si alguno de ustedes conoce alguna empresa que dicte este tipo de adiestramiento por favor escriban a [email protected]

Saludos y gracias.

Hola, tengo un problema y agradecería cualquier ayuda que me pudieran dar. Tengo un archivo de texto del cual me gustaría que se imprimieran sólo las palabras que están entre '""'. Por ejemplo:

Este es un texto de "prueba" para ver si se "imprime" entre "comillas".

Al correr el script sólo imprimiera:prueba imprime comillas

¿Que puedo hacer? Intenté esto@array=split(/\"*\"/,$l);pero al parecer hace algo diferente a lo que necesito.

Gracias

hola, ¿qué tal?

Pues nada, que tengo muchas listas de palabras cada una en un archivo diferente.

He pensado que una forma de hacerlo, a ver qué os parece, es primero unir todas las listas en un solo texto y después quitar las palabras que estén repetidas.

Me he puesto a hacer un programa que pudiera hacer esto. Ya he consultado el foro y aquí vi que había un comando en unix: sort lista.txt | ...

Hola a todos, hace mucho que no posteo pero es que tengo un problema y seguramente me puedan ayudar el problema es que no he podido escapar las comillas de awk en un sentencia, he buscado ya en el foro pero no esta de la manera que necesito, esto es lo que deseo hacer:

En terminal devuelve el valor correcto al ejecutarse:

root@maquina1 # df /dev/sdc | grep /dev/ | awk '{ print $5 }' ...

¿Cómo se le indica a Perl que borre el contenido de un archivo?