Foro - Perl en Español

Hola,

Tengo hecha una pequeña aplicación que descarga una imagen de una webcam para después subirla a Internet.

El problema es que he cambiado el ordenador y ahora no me funciona.

El problema parece que es debido a que en el nuevo no tengo instalado el Image::Grab y no consigo instalarlo.
Cuando lo hice en el otro PC me costó bastante pero lo conseguí pero ahora no hay manera.

He leído en el foro que ...

Buenas,
Tengo una expresión regular, la cual la estoy utilizando desde consola, pero me gustaría tratar de hacerla en Perl, ya que me gustaría integrarla a un script que ya tengo.

¿Me pueden ayudar?

sed 's/http*:\/\/*//;s/\/*$/\//' prueba.txt | sort | uniq

Donde prueba.txt es:
http://dominio/index.html
http://dominio/images/
http://dominio/manuales/imagenes/
http://dominio/archivos/archivos.txt

Salida:/
/archivos/
/images/
/manuales/imagenes/

Como verán, la idea es parsear el archivo y quedarme con los directorios.

¿Alguien me puede ayudar?

Saludos.

Hola de nuevo...

Podría alguien darme alguna info de cómo podría capturar lo que comienza en la etiqueta <title> y termina en </url>.

Yo puedo capturar todo lo que está dentro de la etiqueta <title> pero al identificar el salto de línea no obtengo ningún resultado...

Este es el texto donde hago la búsqueda:
<Title>Stadtplaene fuer Handys von Nokia und Sony Ericsson - News ...</Title>
<Url>http://www.xonio.com/news/news_10830297.html</Url>

Gracias por su ayuda.
Saludos.

Buenas amigos, soy nuevo en Perl y acá en este foro, y tengo este problema, por cuestiones de comodidad por otros temas, uso WAMP, y buscando encontré un par de guías para instalar el Perl y correrlo con el WAMP pero lo he hecho varias veces y sigo con el mismo error: 500 error inesperado del servidor... ¿alguien me daría una pista de cómo solucionarlo???

Lo que he hecho es básicamente lo que hacen en ...

Saludos

Tengo poco tiempo programando en Perl y estoy realizando una aplicación gráfica utilizando TK. En ésta quiero enviar un texto almacenado en un arreglo a otra ventana al presionar el botón, la otra ventana está definida en una función aparte. Entonces el problema que se me presenta es que al colocar la llamada a la función en el botón, ésta se ejecuta de manera automática al iniciar el programa, abriendo el mismo número de ...

Estimados,

Tengo el siguiente problema en relación a la ruta donde se almacenan los módulos de Perl en Linux.

Tengo un equipo que no tiene conexión a Internet, por lo tanto no puedo descargar los módulos a través de cpan, pero tengo otra máquina que tiene los módulos que necesito, ¿es posible copiar la carpeta que cuenta con estos módulos al dispositivo que no tiene Internet?.

Por ejemplo, en Windows me ocurrió un caso similar, ...

Tengo una gran duda, verán, quería hacer una lista ligada en Perl, solo para práctica, porque sé que en Perl rara vez se usan, pero estoy practicando POO en Perl y es uno de los ejercicios que se me ocurrió, "Una lista ligada ordenada", pero no he podido porque simplemente no encuentro la manera, si alguien pudiera hacerme el favor de poner el código sería perfecto.

Tengo un fichero tal que así:

4.6.24 - P1 ( ksh-bash)>><<

estoy intentando capturar el contenido que tengo entre los paréntesis, pero no me funciona:
if ($linea =~ m/ ^(.+)\s+-(.+)\((.+)\)(.+) /gx){
say "$3";
}

¿Alguna idea de cómo hacerlo?

Tengo un archivo (en realidad es el resultado de un comando en un servidor Windows) con estos formato:
Writer name: 'System Writer'
Writer Id: {e8132975-6f93-4464-a53e-1050253ae220}
Writer Instance Id: {eb6b4c30-aa48-486a-9618-0d1934d180ca}
State: Stable
Last error: No error

Writer name: 'Registry Writer'
Writer Id: {afbab4a2-367d-4d15-a586-71dbb18f8485}
Writer Instance Id: {d3faa119-61c1-4ec4-b163-68b43efad58b}
State: Stable
Last error: No error

Writer name: 'IIS Metabase Writer'
Writer Id: {59b1f0cf-90ef-465f-9609-6ca8b2938366}
Writer Instance Id: {d46610d4-d9a9-42c5-87c0-246aa1e352ad}
State: Stable
Last error: No error

Writer name: ...

Hola,

Estoy intentando leer el valor que tiene asignado la variable btime en el archivo /proc/stat, pero me gustaría hacerlo todo en una línea, sin usar la variable $tmp1, ¿es posible?. Gracias

open(FILE, "< /proc/stat") || return 1;
($tmp1) = grep( { m/btime/ } <FILE>);
close FILE || return 1;
@uptime_date = split (' ', $tmp1, 2);