Foro - Perl en Español

Estimados:

Un gusto saludarles, mi nombre es Alex y les comento que estoy trabajando con un sistema OTRS, por lo cual necesito realizar un módulo personalizado dentro de OTRS.

Pero hasta el momento es mi primer vez que veo este lenguaje y no tengo muy claro cómo hacerlo. Lo que tengo es lo siguiente.

Ambiente: máquina virtual de Amazon con CentOS 6.5.

1. Di permisos al cgi-bin y creé una plantilla con la interfaz del usuario para subir al servidor el archivo csv.
2. Ahora necesito buscar este mismo archivo csv y poder leerlo y extraer columnas como el correo, nombre, etc.
3. El archivo está en la ruta /home/importados con todos los permisos.

Este ejemplo lo encontré en la web y lo pegué a lo que estoy probando...

##################################################################################################
#!/usr/bin/perl

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $ruta = "/home/importados/nomina.csv";
open(my $ruta, '<', $file) or die "No puedo abrir el fichero '$file' $!\n";

my $file = $ARGV[0] or die "Necesito un fichero CSV como parámetro\n";

my $sum = 0;
open(my $data, '<', $file) or die "No puedo abrir el fichero '$file' $!\n";

while (my $line = <$data>) {
chomp $line;

my @fields = split "," , $line;
$sum += $fields[2];
}

#####################################################################################################

Al ejecutar en el navegador solo obtengo "Necesito un fichero CSV como parámetro".

El problema asumo que está en cómo buscar la ruta y abrir el archivo. Cualquier ayuda se los agradezco.

¡Saludos desde Chile!

Bienvenido a los foros de Perl en Español, andratec.

Me parece que has copiado mal el código, porque en la línea 9 estás usando la variable $file, pero esa variable la defines en la línea 11.

Si ejecutas el código con la opción -c, el propio Perl te lo dice:

Programar con copia/pega... tiene estos resultados.

Por estos foros hay más hilos que hablan de cómo leer archivos CSV con Perl.

Sí está mal, como dices. No fue precisamente copy/paste ya que lo he modificado al original.

¿Qué editor me recomiendas? Ya que hasta ahora solo estoy por consola y usando el vi... Pero quiero hacer un ambiente en Windows precisamente para poder ejecutar y ver errores como el que me mencionas tú...

¡¡Gracias!!

En Windows tienes el Notepad++, por ejemplo. Pero hay más opciones. Yo suelo usar joe, vim y Eclipse con e-p-i-c.

Pero si estás en un "entorno vi" eso quiere decir que estás en un UNIX/Linux, así que ya tienes el Perl instalado, por lo que puedes ejecutar inmediatamente -en otra consola o terminal-.

En Windows, debes instalarlo antes.

¡Muchas gracias por la ayuda!

¡Gracias por su ayuda!

Al ejecutar ya no me da errores, pero solo me está imprimiendo esto:

GLOB(0x7fab341ccbb0)

en vez de los campos del csv... ¿Alguna pista?

Perdón, quizás son errores muy básicos, pero llevo menos de una semana viendo Perl.

¡Gracias!

Sin ver el código, es difícil.

Si sale eso en pantalla, es porque se está imprimiendo un bareword (palabra simple), que podría ser un gestor de archivo. Es muy posible que en el print haya una coma demás.

Es casi similar al del principio... Aquí va:



Ahora al imprimir la variable suma me da "0"... :/

La cabecera y la primera línea del csv es esta:

El cuarto campo no es numérico, ¿no? Dificílmente vas a poder sumarlos...

Hummm, entiendo, entonces para extraer por ejemplo el nombre del suscriptor y el correo, ¿cómo debería hacerlo, por el número de array? La idea es mostrarlo en una lista y enviar un mensaje a cada uno...

¡Gracias nuevamente por tu ayuda!