Foro - Perl en Español

Hola, tengo un problema con un buscador que estoy haciendo.

El problema es que cuando se le pasa una palabra con tilde no funciona; sin embargo con palabras normales sí trabaja bien. Necesito ayuda urgente. Aquí les dejo el código:
sub buscador
{
my $word = $_;
my @palabras = split (/ /, $word);
my $dbh=C4::Context->dbh;
my $sth;
my $consulta="SELECT pregunta, respuesta, usuario, fecha, hora, asunto FROM preguntas WHERE respuesta !=''";

$sth=$dbh->prepare($consulta);

$sth->execute();

my @arr ...

Hola, perleros,
tengo una pequeña duda, a ver si me la podéis resolver.

Tengo hecha una aplicación que tiene un total de 4 interfaces encadenadas. Es decir, empieza con una interfaz en la que el usuario elige un idioma, y se le abre otra interfaz dependiendo del idioma, en la cual debe elegir otras opciones etc.

Lo que deseo es que una vez elegido el idioma, en la nueva interfaz que se abre, poner un ...

Hola.

Ando queriendo abrir un archivo llamado todo.txt el cual contiene
fgf
gf
gf
gf
hola
ff
gf
hola
ffg

para después abrir como un array e ir reemplazando cada hola con un ok en el archivo de texto.

¿Alguien me podría ayudar?

P.D.: También alguien me podría decir cómo puedo verificar que un archivo de texto tenga permisos de escritura.

Hola nuevamente.

Tengo un programa que crea registros en una base de datos, en varias tablas, pero, ¿y si sucede algún error en la ejecución del programa?

Ahí está mi problema. Suele suceder (ya que estoy probando el programa) que ocurra algún error en la ejecución, y algunas tablas se llenen correctamente mientras otras no. Si estuviese en un ambiente real, esto sería catastrófico.

¿Hay alguna manera de hacer un seguimiento tipo recursivo de los ...

Hola, quiero hacer un programa en el que, según aparezca cierta información en cada línea, ésta se imprima o no; hay un caso en que la información que quiero obtener aparece en varias líneas, pero no sé cómo decir que se imprima desde la línea 'x' hasta la línea 'y' que me sirva de tope. Pongo un ejemplo de texto, por si sirve:

$IN... Nombre: Paco
$IN... Edad: 38
$IN... Estado civil: casado
$IN... Número ...

Hola, estoy con un bot que baja noticias de una web pero estoy con el problema que no me guarda en el txt y no veo el error; a ver si alguien podría ayudarme

for ($_c = 0;$_c < $#noticias; $_c++) {
open(F,">>sport.txt");
print F "call" . $noticias
. "\nFech: " . $noticias
. "\nTi: " . $noticias
. "\nLink: " . $noticias
. "\nDesc: " . $noticias
. "\n\n"
if ($noticias);
close(F);
}
...

¡Hola!

Mi pregunta es la siguiente: ¿cómo diseñar y construir una aplicación orientada a objetos que implementa un motor de acceso a datos distribuido en Perl?

¡¡¡Saludos!!!

Hola.

Ando teniendo el siguiente problema porque tengo un archivo de texto llamado todo.txt.

El cual tiene
Hola X



Pero bueno todo bien

¿No?

El script Perl:

open (todo,"todo.txt")
@tor = <todo>;
close todo;

Pero mi duda es cómo puedo ordenarlos de manera que quede como una lista omitiendo todos los espacios desde el array. Quedando así:

Hola
X
Pero
bueno
todo
bien
¿No?

¿Alguien me puede ayudar?

Buenas tardes. Tengo que hacer un proyecto que consta de un buscador de patrones:

print "Introduzca el texto deseado\n\n";
$texto=<STDIN>;
chop($texto);
print "Introduzca el patron a buscar en el texto\n\n";
$patron=<STDIN>;
chop($patron);
if ($texto =~/$patron/)
{
print "si se encuentra el patrón de búsqueda en el texto \n\n";
}
else
{
print "no se encuentra el patrón de búsqueda en el texto";
}

Este es mi código. Éste ya me dice si el patrón ...

Hola, buenas tardes. Estoy tratando de realizar un programa para realizar el formateo de un archivo separado por comas, pero me manda el siguiente error:
SCATQA$ ./prueba.pl Cat_CurInd.csv > Prueba.txt
./prueba.pl: syntax error at line 1 : `)' unexpected
el programa es el siguiente:
while (<>) {
@linea=$_;
chomp($linea);
@Sal=split(",",$linea);
printf ("%17s%30s%30s%30s%30s*\n", $Sal);
}

El archivo viene de la siguiente manera:
90_CHIHCB_09-2,Floating Amortizing Bond,CI_TIIE91,IRMXP_TIIE91,0
90_EDONL_03,Floating Amortizing Bond,CI_Cetes182_BI,IRMXP_Cetes_Sec_BI,0
90_EDONL_03-2,Floating Amortizing Bond,CI_Cetes182_BI,IRMXP_Cetes_Sec_BI,0
90_VRZCB_06,Floating Amortizing Bond,CI_TIIE91,IRMXP_TIIE91,0
90_VRZCB_08,Floating Amortizing ...