Perl

[Perl] Ouverture de fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Ouverture de fichier

vanilla

datoune's revival

Bonjour,
J'ai un fichier toto.txt qui ressemble à qqchose comme ceci :

bla bla bla
*
toto tati tata
tutu toto
tata titi
*
foo foo bar bar
bar foo

J'aimerais afficher aléatoirement un des 3 ensembles : quelle genre de fonction je peux utiliser ?

---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune

Publicité

burgergold

5$? va chez l'diable!

"un des 3 ensembles"

ton séparateur c'est le * ?
pk tu t'ajoutes pas un ID d'ensemble, du genre

1 bla bla bla
2 toto tati tata
2 tutu toto
2 tata titi
3 foo foo bar bar
3 bar foo

vanilla

datoune's revival

Parce que le fichier est lu par des personnes humaines donc mettre des 1 22 3 3 devant ça le fais pas trop

---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune

burgergold

5$? va chez l'diable!

réponse idiote

tu complique énormément ton truc si tu utilise des * pour diviser tes sections

vanilla

datoune's revival

Je peux très bien utiliser un autre caractère mais je peux pas mettre des 11 22 33 [:spamafote]

---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune

burgergold

5$? va chez l'diable!

c'est pas le caractère qui complique, c'est la facon de séparer tes sections

bon laisse moi 2 min et jte ponds quelque chose

vanilla

datoune's revival

C'est gentil, si tu y arrives pas te casser pas la tête...

---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune

burgergold

5$? va chez l'diable!

Code :

my $file = 'C:\monfichier.txt';
open(FENT, '< ' . $file);
my @lines = <FENT>;
close FENT;
my $i;
my @array;
foreach my $line (@lines) {
$line =~ s/\n//g;
if ($line eq '*') {
$i++;
}
else {
push(@{$array[$i]}, $line);
}
}

à partir de là, reste plus qu'à faire un petit truc pour afficher aléatoirement

vanilla

datoune's revival

Merci :jap:

---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune

pospos

on peut modifier le separateur de ligne de Perl $/ :

Code :

my $file = 'C:\monfichier.txt';
if (open(FENT, '<', $file)) {
local $/ = '*';
my @sections = <FENT>;
close(FENT);
chomp @sections;
# affichage aléatoire d'une section:
print $sections[rand(@sections)];
} else {
die 'ouverture du fichier impossible';
}

Message édité par pospos le 30-08-2004 à 10:37:41

Publicité

vanilla

datoune's revival

Effectivement, je trouve ce code plus compréhensible.

Par contre il reste un petit problème, c'est quand le random choisit les 2 blocs du bas : il y a une ligne vide.

En gros (en ademttant que random choisissent les 3 blocs en appelant 3x le programme)

$ perl test.pl

toto tati tata
tutu toto
tata titi
$ perl test.pl

foo foo bar bar
bar foo
$ perl test.pl
bla bla bla

Merci bcp [:romf]

Message édité par vanilla le 30-08-2004 à 20:28:33

Taz

bisounours-codeur

perl sous windows ... le pauvre, il aura vraiment subit le dernier des outrages

pospos

dans ce cas tu peux essayer $/="\n*", ou meme $/="\n*\n";

le role de l'instruction chomp est d'enlever le separateur de ligne (donc "\n" en temps normal" ) de chaque ligne du tableau. Dans notre cas ca va supprimer le string $/

FORUM HardWare.fr

Programmation

Perl

[Perl] Ouverture de fichier

Sujets relatifs
[C] : écriture dans un fichier linux	Plantage appli perl/tk lors d'une boucle ?
Vérifier l'existance d'un fichier xls en VB	[libc] tester si un fichier existe
[VC++6] Sauvegarde d'une view en fichier bmp	[JAVA] Copie de fichier et destination inexistante
Comment partagé un fichier excel en VBA ??	Batch + roulement de fichier
Droits d'accès pour envoie de fichier par formulaire	[C++/wxWidgets/MSW] Savoir si un fichier est système
Plus de sujets relatifs à : [Perl] Ouverture de fichier

Page générée en 0.051 secondes