Foro - Perl en Español

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?

En el archivo de configuracion del apache inicialmente tenia esta configuracion

ScriptAlias /cgi-bin/ "C:/Sitios/cgi-bin/"

<Directory "C:/Sitios/cgi-bin">
AllowOverride None
Options None
Order allow,deny
Allow from all
</Directory>

para ejecutar los cgi desde esta carpeta...

Pero ahora necesito cambiar la ruta en la configuracion.. y le he puesto la siguiente

ScriptAlias /cgi-bin/ "C:/Sitios/Tesis/cgi-bin/"

<Directory "C:/Sitios/Tesis/cgi-bin">
AllowOverride None
Options None
Order allow,deny
Allow from all
</Directory>

He guardado los cambios, pero cuando intento ejecutar un script
que este ...

Hola,

Espero que pueda alguien ayudarme: tengo una lista de documentos y de éstos tengo que eliminar algunos de ellos. Para eso lo que hago es mandar llamar al nombre del archivo que tengo importado en un paquete y le hago el unlink, pero no me funciona esto. ¿Me podrían decir cuál es mi error? Se los agradecería.

if($linea =~ /404 Not Found/ || $linea=~ /54\s$/){
unlink($nombreArchivo);
print "archivo $nombreArchivo a eliminar";
} ...