Problème module spreadsheet "can't call method Worksheet"

Bonjour,
Suite à un passage d'un serveur en local sous Windows à un serveur distant sous Linux, j'ai du reprendre certains scripts perl d'import qui utilisaient win32....
Donc, depuis hier, je me bats un peu avec le module Spreadsheet::ParseExcel et j'obtiens toujours la meme erreur à savoir :
"Can't call method "Worksheet" on a undefined value" sur le ligne suivante

Code:

---

my $exWorksheet = $exBook->Worksheet(1);

---

A priori, d'après ce que j'ai compris en cherchant un peu partout, j'ai un problème de définition du workbook, seulement, je ne vois pas du tout où est le problème...
Mon fichier test.xls se trouve dans le répertoire qui contient aussi mon script perl.

Voici un bout de mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use Spreadsheet::ParseExcel; use strict; use DBI;   my $oExcel = new Spreadsheet::ParseExcel; my $exBook = $oExcel->Parse("test.xls"); my $exWorksheet = $exBook->Worksheet(1); $line=2; $col = 1; while($exWorksheet->Cell($line,'A')->{'Value'}){ $var = $exWorksheet->Cell($line,$col)->{'Value'}; $cel = $exWorksheet->Cell('1',$col)->{'Value'}; ....... }

---

Merci d'avance pour toute aide et bonne journée quand meme....
Virginie

Citation:

---

Envoyé par boniface

Mon fichier test.xls se trouve dans le répertoire qui contient aussi mon script perl.

Code:

---

1 2 3

my $exBook = $oExcel->Parse("test.xls"); my $exWorksheet = $exBook->Worksheet(1);

---

---

Es-tu sûr d'être dans le bon répertoire quand tu lances ton script ? Le répertoire courant dans ton script n'est pas forcément celui où se trouve ton script, mais plutôt celui à partir duquel on l'a lancé.

Rajoute un test d'existence :

Code:

---

die "test.xls n'est pas là !" if( not -e "test.xls" );

---

--
Jedaï

Je viens de tester ton idée, mais il semblerait que ça ne soit pas ça, le fichier est bien présent...

Dans ce cas, vérifie si $exBook est bien undef après le Parse() :

Code:

---

my $exBook = $oExcel->Parse("test.xls") || die "Parse() a échoué !\n";

---

Si c'est le cas et que test.xls existe bien, ça signifie que test.xls est soit corrompu, soit incompatible avec le module (pour une raison quelconque : version du format trop récente/ancienne ?).

--
Jedaï

Salut,

Citation:

---

Envoyé par boniface

Voici un bout de mon script :

Code:

---

1 2 3 4 5

my $oExcel = new Spreadsheet::ParseExcel; my $exBook = $oExcel->Parse("test.xls"); my $exWorksheet = $exBook->Worksheet(1);

---

---

Essai

Code:

---

1 2 3

my $oExcel = new Spreadsheet::ParseExcel::Workbook; my $exBook = $oExcel->Parse("test.xls"); my $exWorksheet = $exBook->Worksheet(1);

---

Citation:

---

Envoyé par lami20j

Salut,
Essai

Code:

---

1 2 3

my $oExcel = new Spreadsheet::ParseExcel::Workbook; my $exBook = $oExcel->Parse("test.xls"); my $exWorksheet = $exBook->Worksheet(1);

---

---

Je viens de tester ta solution, et j'obtiens une autre erreur que j'avais au tout début à savoir :
Can't call method "Worksheet" on unblessed reference at import_excel.pl line 984.

Pfff, je n'y comprend rien, ya personne qui a une petite idée???

Merci d'avance....

Citation:

---

Envoyé par Jedai

Dans ce cas, vérifie si $exBook est bien undef après le Parse() :

Code:

---

my $exBook = $oExcel->Parse("test.xls") || die "Parse() a échoué !\n";

---

Si c'est le cas et que test.xls existe bien, ça signifie que test.xls est soit corrompu, soit incompatible avec le module (pour une raison quelconque : version du format trop récente/ancienne ?).

--
Jedaï

---

Ton idée était la bonne, il semblerait que le Parse() echoue...
Je vais essayer de tester avec d'autres fichiers xls....
Si quelqu'un a une autre suggestion ou des tests auquels je ne pense pas forcément, chui tjs preneuse!!
Merci à tous les 2 en tt cas!

Regarde sur cpan Spreadsheet ParseExcel

Citation:

---

Envoyé par boniface

Code:

---

1 2 3 4 5 6 7

use Spreadsheet::ParseExcel; use strict; use DBI;   my $oExcel = new Spreadsheet::ParseExcel; my $exBook = $oExcel->Parse("test.xls");

---

---

D'après la doc ce que tu utilises est une vieille interface, avant toute chose essaie avec la nouvelle interface :

Code:

---

1 2 3 4 5 6

use Spreadsheet::ParseExcel; use strict; use DBI;   my $exBook = Spreadsheet::ParseExcel::Workbook->Parse("test.xls");

---

--
Jedaï