Foro - Perl en Español

Hola,
Estoy tratando de acceder a un directorio y de leer los archivos que están en él.

Perl accede sin problema al directorio pero no puede abrir los archivos.

Los comandos que uso son:
chdir($dir);
open(PAGE,$diry.$dirx);
@arrayentrada=<PAGE>;
print @arrayentrada;

¿Podrían decirme cuál es el error en los comandos que estoy usando?

Gracias de antemano.

STM

Hola, quisiera saber de alguna página con ejemplos sobre las siguientes funciones del DBI:

selectrow_array
selectrow_arrayref
selectrow_hashref
selectall_arrayref
selectall_hashref
selectcol_arrayref

Ya vi la documentación en http://dbi.perl.org/, pero con respecto a esas funciones me parece algo incompleta. Gugleé un buen rato pero no he logrado conseguir nada.

Gracias de antemano.

Buenas,

Estoy haciendo una migración de un aplicación de un servidor a otro, y estoy teniendo un problema con un script en Perl.

Os muestro el código (aunque creo que no es relevante):

#!/usr/bin/perl

use IO::Socket::INET;
use CGI qw (-oldstyle_urls :standard);

my $query = new CGI;
my @names = $query->param;
print header('text/html');
$url_query = query_string;
my $rhost = $query->remote_addr();


$http = IO::Socket::INET->new(
PeerAddr => "localhost:80",
Proto => "tcp"
);

my $url = "/CGI/InterCGI.jsp" . ...

Hola que tal, tengo una duda con las funciones exec() y system().

Resulta que yo quiero llamar a una aplicación desde Perl con el system(), y cuando lo hago me abre la aplicación pero me deja una ventana del cmd abierta, que no se cierra hasta que no salgo del programa (en este caso el Notepad++).

El código es este:
system('C:\Program Files\Notepad++\Notepad++.exe');

Probé con el exec() y es peor porque directamente no abre la aplicación. ...

Tengo un programa con operaciones "Operaciones.pl", que instancia nuevos objetos o clases Operaciones::Division, Operaciones::Suma, etc... si el resultado de la operación se llevó con éxito se retorna el resultado de tal operación. Ejemplo: 6/3 = 2 (se retorna el 2), pero para el caso de que la operación haya fallado: 6/0 = No existe, se retorna un objeto que indica qué tipo de error es, de la forma Operaciones::Error(...).

Para el caso del retorno del ...

Muy Buenas:

Deseaba saber si alguien del foro, ha programado alguna vez un problema de estos (CSP) en Perl. Tengo entendido que en Prolog es facilito, pero deseo, como ya suponen, hacerlo en Perl.

He buscado en CPAN, sobre algoritmos implementados, pero no encontré lo que buscaba.

Espero sus comentarios ;)
Saludos

Hola,

Estoy haciendo un script en Perl que me permita ejecutar comandos en una antena Motorola Wirelss WS5100.

Para tal fin estoy usando el módulo de Perl Net::Telnet, el cual ya tengo instalado y funcionando correctamente, sin embargo me encuentro con un problema para completar mi script y es el siguiente:

Cuando, de manera manual, ejecuto un telnet, hago lo siguiente:

#telnet sparky
Trying 172.16.1.252...
Connected to sparky.
Escape character is '^]'.

WS5100 release 3.2.0.0-040R ...

Bueno, hola de nuevo, ya estoy de nuevo aquí (poco ha durado mi independencia... :lol: ).

Me gustaría poder sacar de una consulta SQL los nombres de las columnas para luego usarlos como cabeceras en un Excel, y no me sale, las expresiones regulares se me siguen resistiendo. :(

Ejemplo:
select idProd, nombre, fabProd from productos

my $querybbdd = ...

Hola,
Tengo un archivo que contiene procedimientos almacenados, algunos retornan un valor que ocupo utilizar en otro procedimiento más abajo.

Si uno hace copy y paste de los SP funciona todo correctamente, pero ¿cómo puedo hacer esto desde Perl, con DBI?

Hola, estoy empezando con Perl y este error no lo he podido sacar:

"Unrecognized character \xC2 at /var/www/vhosts/"... lo marca en la línea 477

y el pedazo de código es este

sub pagination {

my $category_id = shift; #linea 477
my $url_key  = shift;

He investigado un poco y se supone que es un carácter de un espacio, pero modifico, borro y no me funciona. La codificación que estoy utilizando es UTF-8, no BOM. ...