Perl

traitement d'un fichier texte

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : traitement d'un fichier texte

aymanouch

je veut supprimer les repertoire de ce fichier par exemple

Code :

/image/
/image/bin/arch
/image/bin/
/image/bin/bash
/image/bin/bunzip2

pour avoir a la sortie un autre fichier ayant cette forme

Code :

/image/bin/arch
/image/bin/bash
/image/bin/bunzip2

comment je peut faire ca avec perl svp :bounce:

Publicité

franceso

un truc dans le genre

Code :

while (<> )
{
print unless (/\\/\\s*$/); # N'affiche pas les lignes qui se terminent par un '/'
}

mais ne serait-il pas plus simple de ne lister directement que les fichiers normaux, et pas les répertoires ? Comment obtiens-tu la liste de tes fichiers ?

EDIT: commentaire et traitement du cas où les lignes se terminent par des espaces

Message édité par franceso le 13-12-2006 à 14:12:51

aymanouch

un truc de ce genre ??
la copie ca marche mais le unless je n'est compris comment l'utilisé

Code :

open(ORIGINAL,"image_part[0].txt" ) || die "Impossible de d'ouvrir le fichier original";
open(COPIE,">copie.txt" ) || die "Impossible de d'ouvrir le fichier copie";
while (<ORIGINAL> )
{
#print COPIE $_;
#print unless (/\/\s*$/); # N'affiche pas les lignes qui se terminent par un '/'
}
close(COPIE);
close(ORIGINAL);

anapajari

s/travail/glanding on hfr/gs;

bin tu peux le remplacer par

Code :

print if /[^\/]$/;

qui est peut-être plus aisement compréhensible vu que c'est affiche si le dernier caractère de la ligne n'est pas un /

Message édité par anapajari le 13-12-2006 à 14:39:35

aymanouch

merci ca marche avec la premiere mais avec cette forme.
c'est parceque je ne connais pas le perl :pt1cable:

Code :

open(ORIGINAL,"image_part[0].txt" ) || die "Impossible de d'ouvrir le fichier original";
open(COPIE,">copie.txt" ) || die "Impossible de d'ouvrir le fichier copie";
while (<ORIGINAL> )
{
print COPIE unless (/\/\s*$/); # N'affiche pas les lignes qui se terminent par un '/';
}
close(COPIE);
close(ORIGINAL);

anapajari

s/travail/glanding on hfr/gs;

Code :

print if /[^\/]\s*$/;

Message édité par anapajari le 13-12-2006 à 15:19:04

franceso

Citation :

merci ca marche avec la premiere mais avec cette forme.

Ca marcherait aussi avec l'expression régulière que t'a donnée anapajari. (mais fais gaffe aux '\' qui sautent dans le forum)

Citation :

c'est parceque je ne connais pas le perl :pt1cable:

OK, le principe, c'est que si tu rajoutes 'unless (...)' à la fin d'une instruction, cette instruction n'est exécutée que si la condition est fausse.

En l'occurrence, l'instruction est un bête 'print COPIE' (sous-entendu $_)
La condition à vérifier est une expression régulière qui signifie que la ligne se termine par un '/' éventuellement suivi d'espaces.

---------------
TriScale innov

maestro1303

Bonjour aymanouch, bonjour à tous,

Je débute Perl que je viens d'installer soous windows.
Voilà ma situation: j'ai un fichier texte 'lefic.txt' qui contient les 8 lignes suivantes:
______________________
Allo 132, Allo 132
a525, b525
c415, h415,c414,c413,c412,c411, c410
c413 h415,c414,c413,c412,c411, c410
c412 h415,c414,c413,c412,c411, c410
c411, h415,c414,c413,c412,c411, c410
c410, h415,c414,c413,c412,c411, c410
c414 h415,c414,c413,c412,c411, c410
________________________________
avec l'arborescence d:\dossiersDR\lefic.txt.

Je veux écrire un script Perl qui fasse:
1. une copie de lefic.txt avec un nouveau nom lefic2.txt(dans le même repertoire)
2. dans le lefic2.txt tout c413 va être substitué par n212
3. dans le lefic2.txt tout 525 va être substitué par 606
4. dans le lefic2.txt tout 414 va être supprimé (ou remplacé par '').

Merci infiniment.

Message cité 1 fois

gilou

Modérateur
Modzilla

Eh bien, si tu nous montrait ton début de script?
Parce qu'il n'est pas question qu'on fasse ton boulot à ta place.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Aricoh

gentil mais fo po pousser

maestro1303 a écrit :

Merci infiniment.

Bonjour

Tu nous remercies, c'est bien, et nous t'en remercions mais nous remercier de quoi exactement ?

---------------
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

Publicité

Aricoh

gentil mais fo po pousser

Excellent : http://www.developpez.net/forums/d [...] n-fichier/

Quand on ne veut pas montrer son code, qu'est-ce qu'on fait ?

Ben, on fait un copié collé de son topic dans un autre forum pardi ! :lol: :lol: :lol:

Message édité par Aricoh le 30-09-2008 à 09:45:06

---------------
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

FORUM HardWare.fr

Programmation

Perl

traitement d'un fichier texte

Sujets relatifs
Lecture d'un fichier MP3 sans cache	fichier binaire
Renommer un fichier avec Borland?	[VBA] Affecter une valeur à une zone de texte récalcitrante
[batch] envoi mail d'un fichier dont je connais pas le nom	fichier batch
ouvrir un fichier JPG en C	Traitement élaboré d'un fichier texte
[PHP] traitement fichier texte II, le retour	[PHP] traitement d'un fichier texte a tabulation
Plus de sujets relatifs à : traitement d'un fichier texte

Page générée en 0.095 secondes