Foro - Perl en Español

Hola, tengo un problemilla con un ejercicio. Aquí os muestro lo que tengo:

opendir (DIR, $dir);
@contenido_directorio =readdir (DIR);
closedir (DIR);

if (-s $fich){ #$fich es un argumento que ya me han pasado
open (FICH,">>$fich");
@contenido_fichero = <FICH>; #PROBLEMA

foreach $elemento (@contenido_directorio){
$ruta = $dir."/".$elemento;
foreach $linea (@contenido_fichero){ #esto tampoco va
@campos = split / /, $linea;

$id = $campos;
$orden = chomp($campos);
if (-r $ruta && -x $ruta && !(-d $ruta)){
if($ruta eq $orden){ ...

En el siguiente código, el método prepare() marca un error. El error es el siguiente:

Code: Seleccionar todo

[Fri May 02 15:22:52 2008] [error] [client 127.0.0.1] Can't call method "prepare" on an undefined value

¿a qué creen que se deba? por que no le hallo.

my @fields = ();

my $sql = "DESCRIBE ". $table_prefix . $filename;

$dbe = $db->prepare($sql);
if (!($dbe->execute)) { &adminerror($db->errstr); }

while ($info = $dbe->fetchrow_hashref()) {
#-- Obtencion de campos solo una vez
@fields ...

Buen día Perleros, tiempo sin postear. El motivo del presente es pedir su opinión. Eestoy trabajando bajo Windows y Linux Ubuntu y me gustaría poder instalar una aplicación que se conecte a una base de datos MySQL y me deje ver las tablas; algo de preferencia freeware (si es Windows) y, si no es mucho pedir, que también tenga una terminal o doble visualización para poder insertar comandos directamente (y ver los resultados en forma ...

Hola a todos, tengo un problema con la ejecución de un comando del sistema desde Perl.

En concreto, quiero ejecutar estas dos sentencias, que se ejecutan correctamente con un intérprete Bash:

SENTENCIA 1
exec softlimit -m 10000000 \
unixserver /tmp/.vmailmgrd vmailmgrd 2>&1 \
| setuidgid qmaill multilog t n100 s1000000 /usr/local/qmail/logs/vmailmgrd &

SENTENCIA 2
exec softlimit -m 20000000 \
envdir /etc/relay-ctrl relay-ctrl-chdir \
tcpserver -v -H -R -l $HOSTNAME -x /etc/tcpcontrol/tcp.smtp.cdb \
-c200 -u5002 -g5000 ...

Buenas. Pues mire, en el ejercicio que me plantean tengo que leer un fichero de texto y mediante hash hacer que salga por pantalla las palabras alfabéticamente y la frecuencia con la que se repite esa palabra, tengo hecho lo siguiente pero falla por algún sitio :(

Muchas gracias de antemano

#!/usr/bin/perl

while(<>){

@palabras_separadas_por_lineas = split;

foreach $palabras(@palabras_separadas_por_lineas){
if( exists $frec{$palabras}){
$frec{$palabras} ++;

}

else {
$frec{$palabras} ...

¿Cómo puedo saber si se ha instalado bien un programa? ¿Hay alguna forma de comprobarlo?

Siempre utilizo c:\>perl makefile.pl para instalar.

Saludos.

El problema que me plantean es este:

Un programa que lea una lista de cadenas en líneas separadas hasta el final de la entrada.

Hola, Necesitaría saber qué módulo me recomiendan para integrar el Google Maps a un sitio.

Busqué en CPAN y encontré varios pero el problema es que no sé con cuál de ellos quedarme.

Solamente necesito uno que tenga buenas funcionalidades y que a la hora de utilizarlo no se complique demasiado.

Muchas gracias, perleros.

Hola.

Tengo un problema con expresiones regulares.

Tengo una cadena con estos valores $valores = 5,6,89 y quiero comparar que exista en una tabla dicho valor y activar un checkbox.

Tengo esta expresión regular:if ($valores =~ /$u{'ndir'}/){
# Ejecutar instrucción
$chk = "checked"
}else{
$chk = "";
}

Lo que quiero hacer con éste es que si el valor de $u{'ndir'} está en $valores que active el checkbox, pero lo que me está haciendo es ...

Hola Perleros,

Con la noticia que el día de hoy llegamos a las 100,910 visitas únicas en el mes de Abril.

Realmente es un gran logro y me da mucha felicidad ver que el sitio sigue creciendo en número de integrantes y en la cantidad de personas que lo visitan mes con mes.

Este mes los tutoriales de Perl en Español se han visto cerca de 1,500,000 veces, casi medio millón de veces más que ...