[Perl,Tableaux] lire un fichier texte
Résolu/Fermé
Maloute80
Messages postés
3
Statut
Membre
-
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
Bonjour à tous,
voici mon fichier .txt
[quote]
titi;ti;français;2
tata;ta;math;5
tutu;tu;anglais;4
tete;te;eps;8
[/quote]
Voici mon code j'ai essayer de mettre mon fichier texte dans un tableau et de le consulter en allant que je l'alllumente car mon tableau s'efface au fur à mesure
[code]
#!/usr/bin/perl
use strict;
my $ligne = undef;
my @tab = undef;
my $i = "tata"
my $j = "ta";
my $tmp = undef;
open my($file), '<', 'ENT_PROF.txt'
or die "Impossible Ouverture Fichier\n";
while(<$file>)
{
# push @tab, [split(/;/, $_)];
@tab=split(/;/, $_);
print ("$tab[0] , $tab[1] , $tab[2] , $tab[3]\n");
if (($tab[0]=$i) && ($tab[1]=$j))
{
$tmp = ("@tab[0], @tab[1], @tab[2], @tab[3]\n");
}
}
print ("$tmp");[/code]
D'avance merci à vous.
voici mon fichier .txt
[quote]
titi;ti;français;2
tata;ta;math;5
tutu;tu;anglais;4
tete;te;eps;8
[/quote]
Voici mon code j'ai essayer de mettre mon fichier texte dans un tableau et de le consulter en allant que je l'alllumente car mon tableau s'efface au fur à mesure
[code]
#!/usr/bin/perl
use strict;
my $ligne = undef;
my @tab = undef;
my $i = "tata"
my $j = "ta";
my $tmp = undef;
open my($file), '<', 'ENT_PROF.txt'
or die "Impossible Ouverture Fichier\n";
while(<$file>)
{
# push @tab, [split(/;/, $_)];
@tab=split(/;/, $_);
print ("$tab[0] , $tab[1] , $tab[2] , $tab[3]\n");
if (($tab[0]=$i) && ($tab[1]=$j))
{
$tmp = ("@tab[0], @tab[1], @tab[2], @tab[3]\n");
}
}
print ("$tmp");[/code]
D'avance merci à vous.
Configuration: Windows XP Firefox 2.0.0.11
3 réponses
-
Salut,
tu peux essayer comme ça (je n'ai pas testé)#!/usr/bin/perl use strict;use warnings; my @tmp; open LIRE, 'ENT_PROF.txt' or die "Impossible Ouverture Fichier : $!\n"; while(<LIRE>){ push @tmp,$_ if /^tata;ta/; # en supposant que tu as plusieurs lignes } print "$_\n" foreach @tmp; __END__-
-
-
-
Merci de ne t'éparpiller pas sur tout le forum.
Tu risques de me convaincre de ne plus vouloir t'aider.
On continue ici
https://forums.commentcamarche.net/forum/affich-23996226-perl
Merci.
-
-
Merci lami20j,
Mon souci est bientôt résolu je donne le lien au personne qui veulent m'aider
http://www.developpez.net/forums/s [...] ost2776465
A bientôt merci à vous. -
