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!

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

¡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!

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:

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!