[Perl,Tableaux] lire un fichier texte
Résolu/Fermé
Maloute80
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21331 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.
A voir également:
- [Perl,Tableaux] lire un fichier texte
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Lire un fichier epub - Guide
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
3 réponses
Salut,
tu peux essayer comme ça (je n'ai pas testé)
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__
Le fichier texte a été donner par le demandeur dans son premier message.
Pour accéder à ton fichier texte il faut savoir le chemin vers le fichier ensuite il suffit d'utiliser open pour l'ouvrir.
open LIRE, 'C:\Users\Microbox\Desktop\index\fichier.txt'
mais il me dis qu'il ne reconnais pas le chemin!!
Tu risques de me convaincre de ne plus vouloir t'aider.
On continue ici
https://forums.commentcamarche.net/forum/affich-23996226-perl
Merci.