[PERL] supprimer commentaire

Résolu
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -  
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Est ce que quelqu'un sait comment supprimer les commentaires dans un fichier avec les regexp.
Je voudrais une ligne de commande du genre :
$tab[$_] =~ ....
où $tab est un tableau, j'y met chaque ligne de mon fichier.
Merci d'avance.
A voir également:

14 réponses

Réponse 1 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Je pense avoir trouvé.

open(D ,$file ) or die "ERREUR ! \n"; while (my $line = <D> ) {

if ($line !~ /^#/) {
push @tableau , $line
}
}
close(D) ;
1
Réponse 2 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Une idée?
0
Réponse 3 / 14
theMan
 
Ta question est non claire à lala wafaa
0
Réponse 4 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
j'ai un fichier. Je place chaque ligne de mon fichier dans un tableau. Je souhaite supprimer toutes les lignes commencant par #. Ou placer toutes les lignes de mon fichier autre que des commentaires dans mon tableau.

Est ce que c'est plus claire theMan ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 14
theMan
 
substr(exemple,0,1), vous obtenez comme résultat "e". Extraire un caractère à partir de la position 0

Pour chaque ligne lu dans ton fichier

Lire le premier caractère avec substr(ligne,0,1)
si ce caractère égal è #
palcer la ligne dans le tableau

Lire ligne suivante.

Mezaine!
0
Réponse 6 / 14
davlar Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   57
 
ouvre ton fichier et met-le dans un tableau (faire un open et l'affecté à une variable du genre @fichier)

et ensuite fait un foreach et (selon si tu l'as ouvert en rw ou en r) supprime les lignes que tu veux ou bien compose un nouveau fichier avec les lignes de ta condition.

A+

Dave
0
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
C'est ce que j'ai fait davlar. Je vais essayer le foreach ...
0
Réponse 7 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci mais ce n'est pas du tout ce que je souhaite avoir en sortie. Enfin je comprends pas trop ce que tu fais.
0
Réponse 8 / 14
theMan
 
iwa meziane
0
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
hamdoulilah compatriote
0
Réponse 9 / 14
theMan
 
mnine ntia?
0
Réponse 10 / 14
davlar Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   57
 
Tu veux faire qqe chose du genre ?

main();

sub rtrim($) # Right trim function to remove trailing whitespace
{
my $string = shift;
$string =~ s/\#.*?$//g;
return $string;
}



sub main()
{
open (FILE,"fichier_avec_commentaire.txt");
@z_fichier = <FILE>;
foreach $ligne (@z_fichier) # on boucle sur chaque ligne du tableau jusqu'au EOF
{
$resultat = rtrim($ligne);
print "pas de commentaire: $resultat\n";
}
close (FILE);
}
0
Réponse 11 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci Davlar, j'ai trouvé ce que je voulais avoir en sortie.
J'ai ecris le bout de code au dessus.
En tout cas merci pour ton aide.
0
Réponse 12 / 14
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

tu parles de celui ci

tu peux faire comme ça ;-) 
lami20j@debian:~/trash$ cat fichier.txt
# ligne 1
ligne 2
# ligne 3
#ligne 4
ligne 5
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
#
use warnings;use strict;

my $file="fichier.txt";

open D ,$file or die "E/S : $! \n";

my @tableau = grep { ! /^#/ } <D>;
print for @tableau;

close D ;
__END__
lami20j@debian:~/trash$ perl ccm.pl
ligne 2
ligne 5
lami20j@debian:~/trash$
Il y a plusieurs façons de le faire en Perl, à toi de choisir celle qui te conviens le plus ;-)


0
Réponse 13 / 14
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Re,

voici une version plus compacte ;-) (pour Linux) 
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
#
use warnings;use strict;
my @tableau = grep { ! /^#/ } `cat fichier.txt`;
print for @tableau;
__END__
0
Réponse 14 / 14
wafa_o Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   2
 
Thanks !
0