Perl

lire un fichier en commençant par la fin [résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : lire un fichier en commençant par la fin [résolu]

arghbis

salops de dauphins

est-ce que c possible??

Message édité par arghbis le 01-03-2003 à 17:01:19

Publicité

arghbis

salops de dauphins

vous savez pas ou alors c pas possible????

[:kecje]

dsls

man tac (enfin ça c'est pour le script bash )

Message édité par dsls le 28-02-2003 à 15:00:24

pospos

en perl:

Code :

use strict;
open(IN, "a.txt" ) or die "...";
my @lignes = <IN>;
while (my $ligne = pop @lignes) {
print $ligne;
}
close(IN);

Message édité par pospos le 28-02-2003 à 15:25:14

arghbis

salops de dauphins

non, tu ne lis pas depuis la fin du fichier!! tu lit le fichier, puis tu parcours le tableau qui le contient à l'envers!!
je fais déjà ça, mais c pas optimal!

Aricoh

gentil mais fo po pousser

Ou bien encore :

Code :

use strict;
open(IN, "a.txt" ) or die "...";
my @lignes = <IN>;
foreach(reverse(@lignes)) {
print $_;
}
close(IN);

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Aricoh

gentil mais fo po pousser

arghbis a écrit :

non, tu ne lis pas depuis la fin du fichier!! tu lit le fichier, puis tu parcours le tableau qui le contient à l'envers!!
je fais déjà ça, mais c pas optimal!

arf, bon ben oublie mon truc alors :sweat:

c'est clair que c'est pas optimal de charger tout un fichier dans un tableau mais bon ... je vois pas d'autre solution

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

djtoz

et ca ca marche pas ?

Code :

for ($#tab..0) {
print "$tab[$_]"
}

arghbis

salops de dauphins

mais bien sûr que si, ça marche!! c la même solution que précédemment énnoncée!!
pour faire ça, il faut au préalable que tu ais rempli $tab avec les lignes du fichiers! et c pas du tout optimal dans mon cas!!

imagines que tu cherches la dernière occurence d'un mot dans un texte de 100000000 pages (c énormes, mais c pour l'exemple). Si tu dois te taper toute la lecture du fichier pour trouver cette dernière occurrence, c n'importe quoi!! c pour ça que je me demande s'il n'existe pas une fonction qui permet d'ouvrir un fichier en lecture, mais depuis la fin du fichier!!

dans mon cas, le fichier fait jusqu'à 3Mo (c pas bcp, mais il est ouvert toutes les 3 secondes!!) et ça m'arrangerais bien de pouvoir le lire depuis la fin!!

enfin, merci qd même pour votre aide!! [:spikler]

djtoz

bon je crois que j'ai ton bonheur:

http://search.cpan.org/author/URI/ [...] ckwards.pm

voilou
a+

Publicité

arghbis

salops de dauphins

[:spikler] vu le source du package, je pense que ça fait ce que je veux!!

j'aurais dû penser à regarder chez CPAN, mais à mon avis, c une fonction qui devrait être de base dans le système de filehandle perl!! enfin bon, c cool, ça fait ce que je veux!!

encore merci

FORUM HardWare.fr

Programmation

Perl

lire un fichier en commençant par la fin [résolu]

Sujets relatifs
MySQL: comment faire pour éviter des lignes en doublons [RESOLU]	PostgreSQLProblème de démarrage [ RESOLU]
[c++] obtenir le nom d utilisateur du pc [RESOLU]	Fichier OCX manquant
[c++] 2blemes insides [RESOLU]	[bat] creation d un fichier .txt contenant un 0
Commande qui supprime un fichier dans le serveur	[PHP] session [resolu mais pas comme je veux ;) ]
Lire le contenu d'un rep a rebours...	Question sur Tkinter [resolu]
Plus de sujets relatifs à : lire un fichier en commençant par la fin [résolu]

Page générée en 0.032 secondes