Foro - Perl en Español

Tengo el siguiente codigo

Code: Seleccionar todo: #!C:\perl\bin\perl.exe -w $line="<meta name='description' content='Perl en Español - Foros de perl en español, foro perl, foro de perl, tutoriales de perl, noticias de perl en español.'>"; $content=$line=~/content=\'(.*?)\'/i; print $content;

lo que busco con este, es que me imprima lo que hay dentro del atributo content, pero al ejecutarlo me imprime un "1".

como lo puedo corregir para que me funcione correctamente?

:D Hola estoy utilizando cookies para un proyecto, las uso en vez de sesiones, si el usuario es reconocido le creo una cookie con su login y password, y en cada pagina la verifico y sino existe la cookie la regreso a que vuelva a registrarse como el siguiente codigo:

if (!defined $ENV{'HTTP_COOKIE'})
{
print"No ha iniciado Sesion";
print ("<head><META HTTP-EQUIV=\"refresh\" CONTENT=\"1;URL=http://login.htm\"> </head>")
} ...

Hola a todos, estoy buscando en los tutoriales con extraer los X caracteres de una variable. ¿Hay alguna función específica? Muchas gracias.

Buenos días, lo primero de todo deciros que hacia tiempo que no accedía a vuestra web y me gusta el 'cambio de look', es mas cómoda para consultar y bien clasificada.
A continuación, os comento mi cuestión por si me podéis ayudar como en otras ocasiones: Tengo que leer de una base de datos que esta en Access (que por cierto me esta volviendo loca, tiene 88 campos y cada uno me da un problema ...

Hola, quiero hacer que cuando muestre los resultados de una consulta a una base de datos, apresca al lado de cada resultado un link para que despues lo inserte en otro campo de otra tabla, el campo que quiero ingresar es $sid, lo que se me habia ocurrido esto

while( ($sid,$artist,$title)=$sth->fetchrow() ) {
print "<tr>";
print "<td align=left> $artist </td>";
print "<td align=left> $title</td>";
print "<td align=left><a href='?action='>Agregar</a><br></td>";
print "</tr>";

funciona pero no se que ...

Hola a todos...

Tengo el siguiente código y no me funciona

Code: Seleccionar todo: open FILE,"pagina.txt"; &obtenerMeta(); close(FILE); sub obtenerMeta { #obtenemos todas las etiquetas meta open META,">meta.txt"; my $i=1; while(my $line=<FILE>) { if(my @meta=$line=~/(\<meta.*?\>)/ig) { print META "$i\t$_\n" foreach @meta; } $i++; } close(META); copiarMeta(); } sub copiarMeta { open PRUEBA,">p.txt"; open META,"meta.txt"; while(my $linea=<FILE>){ print PRUEBA "$linea\n"; } close(META); close(PRUEBA); }

al ejecutar el codigo cuando llamo a obtenerMeta me
copia en el archivo meta.txt ...

Hola:

Lo que se me ocurre es que tengas una problema en la ruta y no encuentre ningún archivo. Intenta con palabras que sepa existen dentro del algún archivo e intenta de nuevo.

SALUDOS

Hola como puedo hacer lo siguiente...

Tengo que buscar en un archivo una palabra... para guardarla en otro archivo...
hasta eso lo se hacer.... pero ademas necesito saber en que linea fue encontrada la palabra... ¿como puedo hacer esto?...

gracias....

Como hago para conocer el directorio en el que se encuentra almacenado un sitio web...

ejemplo que le entre la direccion ..

http://www.forosdelweb.com

y me diga en que directorio esta

¿Se podría cambiar los colores que forman el estilo de las marcas de <code>?
Lo digo porque la mezcla de verde claro con el fondo azul claro me está dejando la vista...
¿O soy el único al que le pasa?

Foro - Perl en Español

News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

asignar a una variable un resultado.

Cookies

Extraer los 3 primeros caracteres

Acceso a base de datos Access

consultas a base de datos

Problema con el siguiente codigo

No me funciona el Buscador del tutorial...

en que linea?

directorio de un sitio

Cambiar Colores en FireFox

Last 10 active topics

Identificarte • Registrarse

Estadísticas