de .xls à .txt avec perl

**mariafan** · 22/08/2007, 13h53

bonjour,
j'ai déjà eu un script pour passer d'un .xls à un .txt.
le script je l'ai testé et il marchait vraiment bien après une semaine, il ne marche plus et je ne sais pas de tout pourquoi.
avec ce script je récupère les données de mon fichier .xls dans un fichier .txt
mais la je n'ai rien dans le fichier.txt, il est vraiment vide 0ko

voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!c:/perl/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my @lignes;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./cheklist_massy.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
    print "--------- SHEET:", $oWkS->{Name}, "\n";
    for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {  
      for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {  
        $oWkC = $oWkS->{Cells}[$iR][$iC];
        print FIC $oWkC->Value,"\t" if($oWkC); 
      }  
      print FIC "\n"; 
    }
}
close FIC;

**djibril** · 22/08/2007, 13h57

et quel est le message d'erreur?

**Arioch** · 22/08/2007, 14h20

Et question subsidiaire : quand tu fais tes print sur les noms d'onglets de ton fichier Excel, ça apparait bien à l'affichage ?

**mariafan** · 22/08/2007, 14h27

je me rappel c'est vous djbril qui m'avez aidé sur ce script.
je n'ai pas de tout de message d'erreur j'ai seulement la création du fichier résultat mais
je ne comprend plus rien.
merci de m'aider.

**djibril** · 22/08/2007, 14h36

peux tu nous donner ton fichier xls si ce n'est pas confidentiel?

**mariafan** · 22/08/2007, 15h06

le voila le fichier .xls.
merci de votre aide.

**Arioch** · 22/08/2007, 15h40

Envoyé par mariafan

le script je l'ai testé et il marchait vraiment bien après une semaine, il ne marche plus et je ne sais pas de tout pourquoi.

Petite question pas tout à fait aussi conne qu'elle en a l'air : es-tu sûr que tu exploites exactement le même script au caractère près ?

A force de faire des essais, on renomme des scripts Perl, on les déplace, on les renomme à nouveau, on en teste un et hop, il marche. Sauf qu'on a oublié de le renommer avec son véritable nom de production, etc.

On sait jamais, alors je pose la question

**mariafan** · 22/08/2007, 16h08

c'est une bonne piste.
mes je les vérifier avant de poster ma question.
MERCI BEAUCOUP POUR VOTRE AIDE
je ne sais tjs pas pourquoi ça ne marche plus

**djibril** · 22/08/2007, 17h05

bah apres verif, je ne trouve pas ton soucis. Il ne fonctionne pas chez moi non plus. Le souci vient de ton fichier excel. Je ne sais pas d'ou vient le probleme ou si c'est un souci de version de ton excel avec le module perl. Bref le souci vient de ton fichier excel car quand je copie le contenu de ton fichier dans un nouveau fichier excel, j'ai plus de souci et j'ai bien un fichier txt plein.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
use Spreadsheet::ParseExcel;
 
#objet excel
my $fichier_excel = "cheklist_velizy2.xls";
my $objet_excel = new Spreadsheet::ParseExcel;
my $objet_fichier = $objet_excel->Parse($fichier_excel) or die "$!";

=> Bad file descriptor at G:\perl\art_perl\test2.pl

**mariafan** · 22/08/2007, 18h00

sincèrment je vois pas de tout .
la seule différence entre les deux ie la semaine dernière et cette semaine et que cette semaine je récupère les .xls via le ftp automatiquement à l'aide d'un script perl. alors que l'autre fois je l'ai récupérer à l'aide de FileZilla

**Arioch** · 22/08/2007, 18h19

Envoyé par mariafan

sincèrment je vois pas de tout .
la seule différence entre les deux ie la semaine dernière et cette semaine et que cette semaine je récupère les .xls via le ftp automatiquement à l'aide d'un script perl. alors que l'autre fois je l'ai récupérer à l'aide de FileZilla

Autre question conne alors : les deux transferts FTP ont-ils transféré le fichier Excel en mode binaire ???

**mariafan** · 23/08/2007, 09h12

je m'excuse je suis un peu null
mais comment je peux savoir s'il le transfert est en binaire ou en ascii

**Arioch** · 23/08/2007, 09h25

Envoyé par mariafan

je m'excuse je suis un peu null
mais comment je peux savoir s'il le transfert est en binaire ou en ascii

Certains clients FTP reconnaissent automatiquement le type de fichier à transférer et permutent en binary ou en ascii au déclenchement de l'upload ou du download.

Mais je vois au taf, avec notre vieux client FTPpro, on est obligé à l'écran de cocher binaire ou texte (ascii) quand on transfère nos fichiers. Essaie de transférer un PDF en mode ascii et tu m'en diras des nouvelles par exemple

et ceci est aussi valable pour du xls.

**mariafan** · 23/08/2007, 09h42

merci beaucoup M. Arioch pour ton aide et tes explications
voila mon script de ftp où je ne vois pas comment mettre ascii ou bin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $ftp = Net::FTP->new("10.116.192.99",
   Debug => 0, Passive =>1 ) or die("$!");
$ftp->login("cot2",'ert89');
$ftp->cwd("/tmp");
$ftp->get("cheklist_courbv2.xls");
$ftp->get("cheklist_massy.xls");
$ftp->get("cheklist_velizy2.xls");
$ftp->quit();

en fait voila l'histoire " il faut que je traite des fichiers xls(déja posté) et que j'envois les données recueillies à la base de donnée"
pour cela le processus que j'ai choisi est:
1- transférer les fichiers à traiter par fts à l'aide d'un script perl
2- faire une conversion de .xls à .txt à l'aide de perl
3- traiter le fichier .txt avec les regex.

alors voila pour le moment la 2- ne marche plus

**mariafan** · 23/08/2007, 09h48

j'ai retesté le script sur un autre fichier que un collègue m'a passé et ça marche mais sur les script récupérer par le script perl "NON"
je ne sais pas quoi faire

est ce que je dois ajouter un truc dans mon script ftp

**Arioch** · 23/08/2007, 09h55

Envoyé par mariafan

j'ai retesté le script sur un autre fichier que un collègue m'a passé et ça marche mais sur les script récupérer par le script perl "NON"
je ne sais pas quoi faire

est ce que je dois ajouter un truc dans mon script ftp

Regarde dans la doc de la lib que tu utilises pour faire du FTP.

Sur un script réalisé cette semaine, j'ai employé la lib Win32::Internet et ça donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use Win32::Internet;
 
my $I;
my $FTP;
 
# connection FTP
$I = new Win32::Internet();
 
# connection échouée ?
if (! $I->FTP($FTP, "host", "user", "pass"))
{
	my ($ErrNum, $ErrText) = $I->Error();
	warn "connection FTP impossible, erreur n° $ErrNum : $ErrText\n";
}
 
# on est connecté, passage en mode binaire avant tout download
$FTP->Binary();

Maintenant, je ne sais pas quelle lib tu utilises pour faire du FTP en Perl mais pour la mienne, voilà quoi.

**djibril** · 23/08/2007, 10h29

bah voilà, ton script perl ftp n'est pas complet

Tu dois faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my $ftp = Net::FTP->new("10.116.192.99",
   Debug => 0, Passive =>1 ) or die("$!");
$ftp->login("cot2",'ert89');
$ftp->cwd("/tmp");
$ftp->binary;        #important de rajouter cette ligne
$ftp->get("cheklist_courbv2.xls");
$ftp->get("cheklist_massy.xls");
$ftp->get("cheklist_velizy2.xls");
$ftp->quit();

Je t'ai rajouté $ftp->binary;, il est important le préciser.
le mode de transfert par défaut est ASCII, (sous Linux ca ne gène pas), mais sous windows, il rajoute des caractères de fin de ligne, ce qui grossit le fichier et donc ça peut poser certain soucis dans certaines situation comme chez toi, donc on force le téléchargement en mode binaire.

Voilà, maintenant, retelecharge le et reteste ton script perl. ça devrait passer

**mariafan** · 23/08/2007, 10h49

j'ai essayé de faire des transfert avec le client ftp file zilla, en binaire en ascii et meme auto ça marche pas
je suis vraiment bloquer.

**djibril** · 23/08/2007, 11h03

pour effectuer les ftp, moi j'utilise ton script de dessus, sans préciser le mode passive.

Peux tu nous donner le fichier excel que tu telecharges via le script perl ftp en mode binaire .

**mariafan** · 23/08/2007, 11h26

j'ai enlevé Passive, mais ça ne marche tjs pas.
voila en joint les deux fichier je vois pas de différence entre les deux
le fichier massy.xls ça marche mais je l'avais pas récupérer par ftp c'est un collègue qui me la passé. et il n'est plus la pour lui demandé comment il a eu.
et le 2 cheklist_courbv2 ne marche pas c celui que j'ai récupérer par ftp.

de .xls à .txt avec perl

Langage Perl

Discussions similaires

Partager

Partager