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 ...

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 = ...

Tengo la siguiente función que genera un email y lo envía a destino, utilizando la librería sendmail. Desearía anexarle el envío de un PDF adjunto. ¿¿Cómo anexo el mismo??

sub enviar_email
{

my $mailprog = '/usr/lib/sendmail';
my $origen = '[email protected]';
my $destino ='[email protected]';

my @texto_confirma =();
my $linea = '';
# ----- Texto del mail---------------------------
push(@texto_confirma,"");
push(@texto_confirma,"Texto cuerpo mensaje del email");
push(@texto_confirma," texto cuerpo xx x x x x xx ......");
push(@texto_confirma,"");
open (MAIL, "|$mailprog ...

Hola. Intento leer de ucs-2 y convertir a utf-8 y me aparece el siguiente error:

Wide character in print at KeywordToolExternal-CSV.pl line 47, <FILE> line 3.
´╗┐Palabras clave Competencia del anunciante Volumen local de b├║sque
das: diciembre Volumen global de b├║squedas mensuales
amaco regalos 0.13 -1 210

Este es el programa KeywordToolExternal-CSV.pl:

# use Encode qw/encode decode/;
# $ucs2 = encode("UCS-2LE", $utf8);
# $utf8 = decode("UCS-2LE", $ucs2);

use Encode qw/encode decode/;

my ($Fila,$contenido,$contenido_nuevo);
open ...

Es muy simple mi pregunta... tengo unas variables, que cuando intento mostrarlas me aparece el siguiente mensaje:

XML::LibXML::Element=SCALAR(0x881b508)

y no solo con XML::LibXML... ¿¿¿Esto es una referencia escalar??? ¿Cómo puedo mostrar el contenido de esa variable?

Me ha ocurrido también con variables HASH, que tampoco logro mostrar.

Espero me puedan ayudar.
thanks