Foro - Perl en Español

Tengo el siguiente script el cual verifica si encuentra en una web una palabra y si ésta se encuentra corta la búsqueda.

Mi idea ahora es que si la encuentra pare de buscarla y salte a una nueva función.

Para cortar uso "last". Mi idea es sacarlo y poner ahí el corte de la búsqueda y el salto a la nueva función.


BEGIN {

eval "use HTTP::Request";

if ( $@ ) {

warn ...

«ptkdb es un debugger para Perl que utiliza la libreria Perl/Tk...»

Artículo

«GCstar es una aplicación libre de código abierto para la gestión de sus colecciones.

La información detallada de cada uno de los elementos pueden ser recuperados de Internet y puede almacenar datos adicionales, como la ubicación o que usted ha prestado.

También puede buscar y filtrar su colección por muchos criterios.



GCstar está bajo los términos de la  GNU General Public License y puede ser utilizado en cualquier sistema operativo en el que esté ...

Dicen que MT5 Copia a WordPress... no entiendo por qué se la tiran tanto a MovableType... que me parece la plataforma más completa comparada con Wp ya que he usado las 2.

http://ayudawordpress.com/movable-type-copia-wordpress/

http://ayudawordpress.com/sigue-la-bron ... utomattic/

http://ayudawordpress.com/cual-es-mas-s ... ment-45612

Yo no entiendo... La verdad, es que cada quien use lo que desee, pero la palabra MÁS USADO ...

Solicito información sobre DBIx::Class. He estado buscando por ahí en Bing y Yahoo y bueno, encuentro cositas, pero aunque creo comprender me gustaría saber si hay una información más explicativa y básica.

Ya que quiero por ejemplo integrar DBIx::Class con CGI::Applicaction, pero uso CSV y no base de datos... entonces es necesario información de este módulo, por lo menos la parte básica para lograr una mejor comprensión del uso.

Hola. A ver quién me puede echar una mano... Trabajo en una máquina con Win 7...

Quiero leer el fichero "datos.txt" y luego crear diferentes ficheros con el nombre de cada una de las líneas del fichero inicial.

Contenido fichero datos.txt:
España
Español
Camión

Creo el siguiente programa:
open(FICHERO, "datos.txt");
while(<FICHERO>) {
$Fila = "$_";
chomp($Fila);
push(@Filas,$Fila);
}
close(FICHERO);

foreach $Fila (@Filas) {
open(FICHERO_NUEVO, ">$Fila.txt");
print FICHERO_NUEVO "";
close FICHERO_NUEVO;
}

Me crea los ...

Hola nuevamente...
Necesito obtener el valor de un tag de un xml...

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="1000">
<msg lang="en">Command completed successfully</msg>
</result>
<trID>
<clTRID>ABC-LOGOUT</clTRID>
<svTRID>FI</svTRID>
</trID>
</response>
</epp>

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="2000">
<msg lang="en">Unknown command</msg>
</result>
<trID>
<svTRID>FI</svTRID>
</trID>
</response>
</epp>


Necesito obtener el valor del código del error...

<result code="?????">

He obtenido los valores según los nombre de los tag, es ...

Saludos a todos.

Tengo un problema con la ejecución de un script Perl desde un cron. El script al ejecutarse llama a un script en sh para ejecutarlo según las condiciones. Al ejecutarlo manualmente funciona sin ningún problema pero al ejecutarse con el cron el script Perl no ejecuta los sh que llama con la sentencia system().

Por ejemplo:
if (condicion){

system('./ejemplo.sh');

}

Gracias de antemano.

Hola, cómo están. Espero que bien. Bueno, aquí está mi programa el cual es algo así para traducir algo de Español a Latex:


$archivo = <STDIN>; # se introduce el nombre del archivo a sustituir.

$dic = "diccionario.dat"; # diccionario normal->latex.

open(ARCHIVO,"<$archivo"); # se abre el archivo a traducir.

$count++ while <ARCHIVO>; # contador de las líneas del archivo.

open(ARCHIVO,"<$archivo");

@archivo=<ARCHIVO>; #se le asocia a la el array al archivo.

open(DIC,"$dic"); #se abre ...

Seguro que es una tontería pero llevo media hora con esto y no me sale.

A ver, necesito sacar información de nuestros servidores de impresión para localizar diferencias en la configuración de las impresoras. Hacerlo a mano es un proceso muy farragoso y poco práctico. Así que he instalado el módulo Win32::Printer y funciona bien, pero no sé sacar la información por las referencias.
use strict;
use warnings;
use Win32::Printer::Enum;
use Data::Dumper;

my @printers = ...