Perl - Como leer fichero csv guardado en servidor

 
Vista:

Como leer fichero csv guardado en servidor

Publicado por Alexander Andrade Reynuaba (1 intervención) el 17/11/2014 16:28:13
Hola amigos,

Les escribo constandoles que soy novato en este lenguaje de Perl y tengo el siguiente problema.

1. Tengo que leer un csv que tengo en el servidor Centeos en la ruta /home/importados/ejemplo.csv

El tema es que he buscado ejemplos y tratado de modificar sin buenos resultados, este codigo estaba tratando hasta el momento:

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

#my $fichero = 'csva2.csv';
my $file = '/home/importados/csva2.csv';

$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];
}
print "$sum\n";

###########################################################################3

No se si estoy llamando bien la ruta o lo debo cambiar por $ARG...gracias si alguien me puede orientar.

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder