#!/usr/local/bin/perl
# Modules nécessaires
use strict;
use Win32::OLE qw(in with);
use CGI::Carp qw(fatalsToBrowser);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
# Type de contenu pour le navigateur
#print "Content-Type: text/html; charset=utf-8\n\n";
# Création d'une nouvelle instance du package pour Excel
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application',
'Quit');
# Ouverture du fichier Excel
my $Book = $Excel->Workbooks-> open("C:\\Users\\user\\Documents\\STAGE\\fluxho") or die "Impossible d’ouvrir fluxho.xls3 en lecture ecriture : $!";
# Affectation du 1er classeur à la variable $Sheet
my $Sheet = $Book->Worksheets(1);
# Récupération des valeurs de toutes les cellules comprises entre A1 et B327
#my $begin_cell = 'A1';
#my $end_cell = 'A327';
my $array = $Sheet->Range("A1:A10")->{'Value'}; # get the contents
$Book->Close;
# Affichage de ces valeurs
foreach my $ref_array (@$array) {
# Parcours de chaque ligne
foreach my $scalar (@$ref_array) {
# Parcours et affichage de chaque valeur rangées dans les colonnes de la ligne parcourue
#my $scalar=split(/-/,$scalar);
print "$scalar ";
}
print "\n";
}
<stdin>