Perl

parsage de fichier - boucle sur un repertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : parsage de fichier - boucle sur un repertoire

uriel

blood pt.2

bon, ca fait un moment que je m'etais pas remis au Perl mais quand meme :sweat:

j'ai un repertoire qui contient des fichiers dont je veux recuperer quelques infos que je mettrais dans un fichier csv.
au depart, j'avais fait un code pour 1 fichier pris en argument, qui fonctionne nickel. Je rajoute une boucle sur le repertoire et la, ca ne fonctionne plus... ca doit etre tout con, mais j'ai le nez dessus depuis des heures et pas moyen

voici le code complet (oui, je sais y a des trucs louches, j'optimiserais plus tard)

Code :

#! /usr/bin/perl
print STDOUT "RUNNING EXTRACT GAMESS INFORMATIONS SCRIPT\n";
#create the file which will contains the result
$outname = "result.csv";
open(OUT,">>${outname}" ) or die ('Error creating the file');
#open the current directory and put files in an array
opendir(MY_DIR,"." ) or die "error reading the directory : $!";
@all_files = grep !/^\.\.?\z/, readdir MY_DIR;
closedir MY_DIR;
print STDOUT "File name,Number of cartesian gaussian basis function,Number of occupied orbitals,Finale energy\n";
print (OUT "File name,Number of cartesian gaussian basis function,Number of occupied orbitals,Finale energy\n" );
#parse all the files c'est la que le probleme arrive
foreach $gamessfile (@all_files){
#open the output file of gamess
open(INPUT,"<$gamessfile" );
$lines = 0;
while (sysread INPUT, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close(INPUT);
print STDOUT "\n".$gamessfile.",";
open(INPUT, "<$gamessfile" );
while ($i<=$lines){
if ($list[3] eq "GAUSSIAN" && $list[5] eq "FUNCTIONS" ){
print STDOUT $list[7].",";
print (OUT $list[7]."," );
}
if ($list[4] eq "(ALPHA)" ){
print STDOUT $list[6].",";
print (OUT $list[6]."," );
}
if ($list[0] eq "FINAL" ){
print STDOUT $list[4].",";
print (OUT $list[4]."," );
}
@list = &readline();
$i+=1;
}
close(INPUT);
}
close(OUT);
sub readline()
{
chop($line= <INPUT> );
$line =~ s/^\s+//;
@list = split(/\s+/,$line);
return(@list);
}

pourtant il affiche bien tous les noms de fichier (print STDOUT "\n".$gamessfile.","; ) mais il ne recupere pas les donnees dedans

vous voyez un truc enorme?

Message édité par uriel le 02-11-2004 à 15:40:21

---------------
IVG en france

Publicité

Profil supprimé

[:dawa]

uriel

blood pt.2

et oui, je vais virer les STDOUT apres

---------------
IVG en france

Mr Mala

heuuu ton $i, tu l'initialises où ???

uriel

blood pt.2

:sweat: un oubli de copier coller depuis le fichier initial, il etait juste avant la boucle while du parsage...

desole :sweat:

et merci Mr Mala

---------------
IVG en france

uriel

blood pt.2

evidemment ca fonctionne...

tant que j'y suis, vous voyez comment limiter mon @all_files au fichier avec une extensions .out
le grep ne semble pas lui convenir (le grep deja en place vire uniquement le . et le .. ) :??:

---------------
IVG en france

chrisbk

[:1337]

---------------
NP: HTTP Error 764 Stupid coder found

uriel

blood pt.2

mais je suis serieux [:zytrasnif]

---------------
IVG en france

Mr Mala

uriel a écrit :

Ben si tu fais un match sur l'extension, t'as plus besoin de virer . et .. alors ...
juste

@all_files = grep /\.out\z/, readdir MY_DIR;

mmh ?

uriel

blood pt.2

oui c'est bien ca

merci beaucoup :jap:

edit: faut vraiment que je me remette a perl et aux regex :sweat:

Message édité par uriel le 02-11-2004 à 16:21:11

---------------
IVG en france

Publicité

simogeo

j'ai jamais tué de chats, ...

bon'anniv' [:extazaille]

[:kadreg]

---------------
from here and there -- \o__________________________________ -- la révolution de la terre, en silence

uriel

blood pt.2

[:god]

---------------
IVG en france

FORUM HardWare.fr

Programmation

Perl

parsage de fichier - boucle sur un repertoire

Sujets relatifs
Comment crée un fichier .exe???????	[BATCH] fichier txt et variable
Upload d'un fichier MP3	vbscript + fichier INI
écrire dans un fichier excel	Récuper le nom d'un fichier
fichier speciaux	Mot de passe fichier
Je trouve pas à propos d'une boucle while ...[Abandon]	BAT : créer un fichier avec comme nom la date du jour
Plus de sujets relatifs à : parsage de fichier - boucle sur un repertoire

Page générée en 0.083 secondes