Hola de nuevo.
He estado intentando hacer un pequeño programa que me lea un fichero HTML almacenado en un disco duro y me muestre los titulares de la página utilizando para ello una expresión regular.
He intentado huir del uso de módulos, hasta que pueda entenderlos.
Buscando en Internet encontré una forma de leer un fichero HTML.
print "Content-type: text/html\n\n";
open (HTML, "<../path/to/your/file.htm");
print <HTML>;
close (HTML);
Por lo que he intentado adecuarlo a ...
-
- Publicidad
Fecha actual 2024-11-15 07:51 @369
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Extraer titulares de páginas web
Read more : Extraer titulares de páginas web | Vistas : 1204 | Respuestas : 12
Problemas al convertir pl a exe en Windows
Haciendo unas prácticas me encontré con un problema: tengo Perl v5.10.1, módulos descargados PAR-Packer. Cuando quiero convertir un archivo pl a exe, desde consola pongo C:\perl\bin pp -o c:\pract.exe c:\prac.pl. Me sale una ventana con el siguiente error:
No se encuentra el punto de entrada del procedimiento Perl_croak_xs_usage en la biblioteca de vínculos dinámicos perl510.dll
y en la shell, esto:
C:\Perl\bin>pp -o c:\pract.exe c:\prac.pl
Can't load 'C:/Perl/lib/auto/Fcntl/Fcntl.dll' for module Fcntl: load_file:No se
encontr¾ el proceso ...
No se encuentra el punto de entrada del procedimiento Perl_croak_xs_usage en la biblioteca de vínculos dinámicos perl510.dll
y en la shell, esto:
C:\Perl\bin>pp -o c:\pract.exe c:\prac.pl
Can't load 'C:/Perl/lib/auto/Fcntl/Fcntl.dll' for module Fcntl: load_file:No se
encontr¾ el proceso ...
Read more : Problemas al convertir pl a exe en Windows | Vistas : 650 | Respuestas : 1
Herramienta de software para routers CISCO
Hola a todos.
Soy muy, muy nuevo en esto de Perl.
Estoy interesado en el lenguaje ya que mi proyecto fin de carrera trata de la realización de una herramienta que permita gestionar un router Cisco orientado a telefonía IP, y, por lo que tengo entendido, Perl tiene una serie de módulos para trabajar con routers de esta compañía.
¿Me equivoco?
¿Se pueden mandar comandos ssh o telnet?
¿Y capturar la respuesta del router?
Todavía ...
Soy muy, muy nuevo en esto de Perl.
Estoy interesado en el lenguaje ya que mi proyecto fin de carrera trata de la realización de una herramienta que permita gestionar un router Cisco orientado a telefonía IP, y, por lo que tengo entendido, Perl tiene una serie de módulos para trabajar con routers de esta compañía.
¿Me equivoco?
¿Se pueden mandar comandos ssh o telnet?
¿Y capturar la respuesta del router?
Todavía ...
Read more : Herramienta de software para routers CISCO | Vistas : 2519 | Respuestas : 9
Ir directamente al número de línea de un archivo
Buenas...
Quiero molestar con una pregunta =)
Si tengo un archivo muy grande, digamos de 4GB a 5GB (o más). ¿Cómo puedo acceder a un número de línea específico?
Averiguando por ahí, la variable $. es la que cuenta el número de línea actual. Pero si quiero ir a uno específico, por ejemplo, a la línea 40000, ¿cómo puedo hacerlo sin tener recorrer todo el principio del archivo?
Quiero molestar con una pregunta =)
Si tengo un archivo muy grande, digamos de 4GB a 5GB (o más). ¿Cómo puedo acceder a un número de línea específico?
Averiguando por ahí, la variable $. es la que cuenta el número de línea actual. Pero si quiero ir a uno específico, por ejemplo, a la línea 40000, ¿cómo puedo hacerlo sin tener recorrer todo el principio del archivo?
Read more : Ir directamente al número de línea de un archivo | Vistas : 603 | Respuestas : 2
Correo electrónico con imágenes adjuntas
Saludos, tengo un programa que envía mail con documentos adjuntos, en mi caso imágenes jpg, pero me piden que la imagen se muestre en el cuerpo del correo, pero no sé cómo hacerlo, ¿me pueden dar alguna pista?
Read more : Correo electrónico con imágenes adjuntas | Vistas : 1398 | Respuestas : 4
Temporizador en Perl
Necesito que un script se ejecute cada 5 horas, por ejemplo. ¿Hay algún timer para estas cosillas...?
Read more : Temporizador en Perl | Vistas : 857 | Respuestas : 1
Problema de cómo pasar variables de PHP a Perl
¡Hola!
Soy nuevo en Perl, es la primera vez que tengo algo que ver con Perl, como consecuencia de que en mi servidor no puedo utilizar exec() ni system(), porque están desactivados por seguridad; ya que el servidor ejecuta PHP bajo Windows, he tenido que utilizar curl_exec(), esto es para calcular una firma para el pago con tarjeta de crédito, lo hago con esto:
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'http://www.mipagina.com/cgi-bin/calculo.pl "$Num_operacion" "$Importe"');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); ...
Soy nuevo en Perl, es la primera vez que tengo algo que ver con Perl, como consecuencia de que en mi servidor no puedo utilizar exec() ni system(), porque están desactivados por seguridad; ya que el servidor ejecuta PHP bajo Windows, he tenido que utilizar curl_exec(), esto es para calcular una firma para el pago con tarjeta de crédito, lo hago con esto:
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'http://www.mipagina.com/cgi-bin/calculo.pl "$Num_operacion" "$Importe"');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); ...
Read more : Problema de cómo pasar variables de PHP a Perl | Vistas : 2666 | Respuestas : 12
Problema con la llegada de lista de caracteres
Buenas tardes:
Lo que sucede es que estoy ingresando dentro de una variable esta lista de caracteres:
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48U29saWNpdHVkX1JlZ2lzdHJvPjxWZXJzaW9uPj
EuMTwvVmVyc2lvbj48RGF0b3NfUmVnaXN0cm8+PE51bWVyb19SZWdpc3RybyAvPjxGZWNoYV9QcmVzZW50YWNpb24g
Lz48SG9yYV9QcmVzZW50YWNpb24gLz48RmVjaGFfRWZlY3RpdmEgLz48SG9yYV9FZmVjdGl2YSAvPjwvRGF0b3NfUm
VnaXN0cm8+PERhdG9zX0Zpcm1hZG9zPjxEYXRvc19HZW5lcmljb3M+PE9yZ2FuaXNtbz4wMDI8L09yZ2FuaXNtbz48
SWRpb21hPmVzX0VTPC9JZGlvbWE+PFJlbWl0ZW50ZT48Tm9tYnJlPkpVQU4gR09NRVogTE9QRVo8L05vbWJyZT48RG
9jdW1lbnRvX0lkZW50aWZpY2FjaW9uPjxUaXBvPjE8L1RpcG8+PE51bWVybz4wNTI2MTA0MkU8L051bWVybz48L0Rv
Y3VtZW50b19JZGVudGlmaWNhY2lvbj48Q29ycmVvX0VsZWN0cm9uaWNvPmNoZXBhX3NlcnJhbm8uZXM8L0NvcnJlb1
9FbGVjdHJvbmljbz48L1JlbWl0ZW50ZT48QXN1bnRvPjxDb2RpZ28+VFJRUzwvQ29kaWdvPjxEZXNjcmlwY2lvbj5T
b2xpY2l0dWQgZGUgUmVjbGFtYWNp824sIHF1ZWphIHkgc3VnZXJlbmNpYXM8L0Rlc2NyaXBjaW9uPjwvQXN1bnRvPj
xEZXN0aW5vPjxDb2RpZ28gLz48L0Rlc3Rpbm8+PE51bWVyb19FeHBlZGllbnRlIC8+PC9EYXRvc19HZW5lcmljb3M+
PERhdG9zX0VzcGVjaWZpY29zPjxkb2N1bWVudG9JZGVudGlkYWQ+MDUyNjEwNDJFPC9kb2N1bWVudG9JZGVudGlkYW
Q+PG5vbWJyZVNvbGljaXRhbnRlPkpVQU4gR09NRVogTE9QRVo8L25vbWJyZVNvbGljaXRhbnRlPjxkb21pY2lsaW9O
b3RpZmljYWNpb24+TXogRiBDODwvZG9taWNpbGlvTm90aWZpY2FjaW9uPjxsb2NhbGlkYWQ+UGFycmFsZXM8L2xvY2
FsaWRhZD48cHJvdmluY2lhPkliYWd1ZTwvcHJvdmluY2lhPjxjb2RpZ29Qb3N0YWw+MDAwMDA8L2NvZGlnb1Bvc3Rh
bD48c29saWNpdGE+bGpoZGJmIGdsZG5iZiBqa2cgbGZkZ2JsZmRoYmdsaGJmZGdsaGJmZGhnamJkc2xqaGdiZHNqbG
hiIGc8L3NvbGljaXRhPjxleHBvbmU+a2ogZ2Zqa2RzaCBnamJmZGdqaGZkbmJqa2xnbmZkamtnbmprbGZkbmdramZk
c25nbGtqbmZkamtsZ25sZmRqa2c8L2V4cG9uZT48dGVsZWZvbm8+MjY0MDAwMDwvdGVsZWZvbm8+PC9EYXRvc19Fc3
BlY2lmaWNvcz48RG9jdW1lbnRvcz48RG9jdW1lbnRvPjxOb21icmU+aW50ZXJmYWNlLnBkZjwvTm9tYnJlPjxDb2Rp
Z28+VFJBTTFEMTwvQ29kaWdvPjxFeHRlbnNpb24+cGRmPC9FeHRlbnNpb24+PERlc2NyaXBjaW9uPkRvY3VtZW50by
BQREY8L0Rlc2NyaXBjaW9uPjxIYXNoPjJjZDZjNDg0YzAzYTNiYTBmNTBhOGY0MTc1YWE4ZWNhPC9IYXNoPjxGaXJt
YSAvPjxDb250ZW5pZG8gLz48L0RvY3VtZW50bz48L0RvY3VtZW50b3M+PC9EYXRvc19GaXJtYWRvcz48RmlybWEgLz
48L1NvbGljaXR1ZF9SZWdpc3Rybz4
la cual contiene caracteres especiales (+). Cuando quiero imprimirla, me está quitando los '+', ¿qué puedo hacer para solucionar el problema?
Lo que sucede es que estoy ingresando dentro de una variable esta lista de caracteres:
PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48U29saWNpdHVkX1JlZ2lzdHJvPjxWZXJzaW9uPj
EuMTwvVmVyc2lvbj48RGF0b3NfUmVnaXN0cm8+PE51bWVyb19SZWdpc3RybyAvPjxGZWNoYV9QcmVzZW50YWNpb24g
Lz48SG9yYV9QcmVzZW50YWNpb24gLz48RmVjaGFfRWZlY3RpdmEgLz48SG9yYV9FZmVjdGl2YSAvPjwvRGF0b3NfUm
VnaXN0cm8+PERhdG9zX0Zpcm1hZG9zPjxEYXRvc19HZW5lcmljb3M+PE9yZ2FuaXNtbz4wMDI8L09yZ2FuaXNtbz48
SWRpb21hPmVzX0VTPC9JZGlvbWE+PFJlbWl0ZW50ZT48Tm9tYnJlPkpVQU4gR09NRVogTE9QRVo8L05vbWJyZT48RG
9jdW1lbnRvX0lkZW50aWZpY2FjaW9uPjxUaXBvPjE8L1RpcG8+PE51bWVybz4wNTI2MTA0MkU8L051bWVybz48L0Rv
Y3VtZW50b19JZGVudGlmaWNhY2lvbj48Q29ycmVvX0VsZWN0cm9uaWNvPmNoZXBhX3NlcnJhbm8uZXM8L0NvcnJlb1
9FbGVjdHJvbmljbz48L1JlbWl0ZW50ZT48QXN1bnRvPjxDb2RpZ28+VFJRUzwvQ29kaWdvPjxEZXNjcmlwY2lvbj5T
b2xpY2l0dWQgZGUgUmVjbGFtYWNp824sIHF1ZWphIHkgc3VnZXJlbmNpYXM8L0Rlc2NyaXBjaW9uPjwvQXN1bnRvPj
xEZXN0aW5vPjxDb2RpZ28gLz48L0Rlc3Rpbm8+PE51bWVyb19FeHBlZGllbnRlIC8+PC9EYXRvc19HZW5lcmljb3M+
PERhdG9zX0VzcGVjaWZpY29zPjxkb2N1bWVudG9JZGVudGlkYWQ+MDUyNjEwNDJFPC9kb2N1bWVudG9JZGVudGlkYW
Q+PG5vbWJyZVNvbGljaXRhbnRlPkpVQU4gR09NRVogTE9QRVo8L25vbWJyZVNvbGljaXRhbnRlPjxkb21pY2lsaW9O
b3RpZmljYWNpb24+TXogRiBDODwvZG9taWNpbGlvTm90aWZpY2FjaW9uPjxsb2NhbGlkYWQ+UGFycmFsZXM8L2xvY2
FsaWRhZD48cHJvdmluY2lhPkliYWd1ZTwvcHJvdmluY2lhPjxjb2RpZ29Qb3N0YWw+MDAwMDA8L2NvZGlnb1Bvc3Rh
bD48c29saWNpdGE+bGpoZGJmIGdsZG5iZiBqa2cgbGZkZ2JsZmRoYmdsaGJmZGdsaGJmZGhnamJkc2xqaGdiZHNqbG
hiIGc8L3NvbGljaXRhPjxleHBvbmU+a2ogZ2Zqa2RzaCBnamJmZGdqaGZkbmJqa2xnbmZkamtnbmprbGZkbmdramZk
c25nbGtqbmZkamtsZ25sZmRqa2c8L2V4cG9uZT48dGVsZWZvbm8+MjY0MDAwMDwvdGVsZWZvbm8+PC9EYXRvc19Fc3
BlY2lmaWNvcz48RG9jdW1lbnRvcz48RG9jdW1lbnRvPjxOb21icmU+aW50ZXJmYWNlLnBkZjwvTm9tYnJlPjxDb2Rp
Z28+VFJBTTFEMTwvQ29kaWdvPjxFeHRlbnNpb24+cGRmPC9FeHRlbnNpb24+PERlc2NyaXBjaW9uPkRvY3VtZW50by
BQREY8L0Rlc2NyaXBjaW9uPjxIYXNoPjJjZDZjNDg0YzAzYTNiYTBmNTBhOGY0MTc1YWE4ZWNhPC9IYXNoPjxGaXJt
YSAvPjxDb250ZW5pZG8gLz48L0RvY3VtZW50bz48L0RvY3VtZW50b3M+PC9EYXRvc19GaXJtYWRvcz48RmlybWEgLz
48L1NvbGljaXR1ZF9SZWdpc3Rybz4
la cual contiene caracteres especiales (+). Cuando quiero imprimirla, me está quitando los '+', ¿qué puedo hacer para solucionar el problema?
Read more : Problema con la llegada de lista de caracteres | Vistas : 4005 | Respuestas : 7
Último día del mes
Gente: necesito saber si alguno sabe cómo sacar el número del último día del mes actual para poder asignar una variable dentro de un sql...? Me gustaría evitar los for()... de ser posible...
Read more : Último día del mes | Vistas : 770 | Respuestas : 2
Salida de cadena en pantalla
print "Ingresar Nombre:";
$nombre=<stdin>;
print "Ingrese año de nacimiento:";
$ano=<stdin>;
$edad=2009-$ano;
print "Don:".$nombre."Su edad es:".$edad."\n";
El resultado de eso es:
Don nombre
Su edad es edad
y yo necesito que diga:
Don nombre Su edad es edad
Saludos.
$nombre=<stdin>;
print "Ingrese año de nacimiento:";
$ano=<stdin>;
$edad=2009-$ano;
print "Don:".$nombre."Su edad es:".$edad."\n";
El resultado de eso es:
Don nombre
Su edad es edad
y yo necesito que diga:
Don nombre Su edad es edad
Saludos.
Read more : Salida de cadena en pantalla | Vistas : 420 | Respuestas : 2
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980