Discussion :

[donmamio]

salut a tous ,
je veux ecrire un script perl ( sous linux) pour :
lire le fichier /AA/BB/seg.txt (ligne par ligne )
prendre de chaque ligne les caractéres(phrases) entre () ,et les écrire (ces phrases) dans un autre fichier a créer dans /AA/BB/ ,toujours ligne par ligne .

c'est vraiment urgent
merci d'avance

[Jedai]

Le but de ce forum n'est pas de fournir des réponses toutes faites. Essaie d'abord par toi-même, puis si tu n'y arrives pas, dis nous ce que tu as essayé, montre nous ton code, et nous t'aiderons (nous ne te demandons pas non plus des jours de recherche, juste un petit effort personnel).
(par ailleurs écrire "C'est vraiment urgent" dans ton message est l'une des meilleures façon de ne pas avoir de réponse, ça irrite les utilisateurs du forum : ils répondent s'ils savent comment faire et au moment où ils lisent ton message pour la première fois, leur dire que c'est urgent dans le message ne changera en rien le moment où il le liront pour la première fois, donc ne peut pas accélérer le processus de réponse).

Bon courage.

--
Jedaï

[Invité]

Et la FAQ est là pour subvenir aux besoins le plus basiques.

[donmamio]

désolé pour le mot urgent !!
j'éssayé d'écrire un script mais ça ne marche pas
mon script est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
open(LISTE,"</AA/BB/sex.txt") or die"open: $!";
my $seg ;
my $resultat ;
while ( defined ($seg=<LISTE>) )
{
my ($resultat,$s2) = split /start/,$seg;
printf   $resultat   ; 
}
close(LISTE);

je n'arrive pas a ecrire les lignes résultantes dans un fichier dans /AA/BB/ en plus je n'arrive non plus à choisir les caractéres entre ().mon script ne prend que les caractéres qui précedent le caractére "start"
merci

[djibril]

Suis bien les conseils donnés par jedai, sous peine de ne pas avoir de réponse à tes threads. Bon, voilà un truc que je te fais vite fait, j'ai pas eu le temp de vérifier. Il lit ton fichier, recupere ce qu'il y a entre parenthese et réécrit dans un autre fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
open(LISTE,"</AA/BB/sex.txt") or die"open: $!";
open(RES,">/AA/BB/resultat_toto.txt") or die"open: $!";
my $seg ;
my @resultat;
while ($seg=<LISTE>) {
chmop ($seg);
@resultat = $seg =~ /(.+?)/g;
print RES " @resultat\n" if ( @resultat); 
@resultat=();
}
close(LISTE);
close(RES);

[lami20j]

Salut,

Bon, voilà un truc que je te fais vite fait, j'ai pas eu le temp de vérifier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
open(LISTE,"</AA/BB/sex.txt") or die"open: $!";
open(RES,">/AA/BB/resultat_toto.txt") or die"open: $!";
my $seg ;
my @resultat;
while ($seg=<LISTE>) {
chmop ($seg);
@resultat =~ /(.+?)/g;
print RES " @resultat\n" if ( @resultat); 
@resultat=();
}
close(LISTE);
close(RES);

Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@resultat =~ /(.+?)/g;

ce n'est pas plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@resultat = $seg =~ /(.+?)/g;

lami20j

[djibril]

Salut,Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@resultat =~ /(.+?)/g;

ce n'est pas plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@resultat = $seg =~ /(.+?)/g;

lami20j

oui t'as raison, sorry

[donmamio]

merci pour ta réponse , en exuctant le script :
j'obtient le message d'erreur :

Applying pattern match (m//) to @array will act on scalar(@array) at test.pl line 10.
Undefined subroutine &main::chmop called at test.pl line 9, <LISTE> line 1.

je suis cloué devant ce message

[donmamio]

je retire ce jé dit
mé en changeant cette ligne j'obtient une autre erreur
Undefined subroutine &main::chmop called at test.pl line 9, <LISTE> line 1.




jé changé la ligne comme tu ma dis
@resultat = $seg =~ /(.+?)/g;

[Jedai]

Y a une ou deux erreur de frappe dans le script de Djibril, je te donne une version corrigée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#! /usr/bin/perl
use strict; use warnings;
 
open(INPUT, '<', '/AA/BB/sex.txt') or die "open : $!";
open(OUTPUT, '>', '/AA/BB/resultat_toto.txt') or die "open : $!";
 
while ( my $line = <INPUT> ) {
  chomp ($line);
  print OUTPUT ( $line  =~ m/\(([^\)]*)\)/g ), "\n";
}
close(INPUT);
close(OUTPUT);

Toutefois, ce script ne réagira pas bien à plusieurs niveaux de parenthèses, est-ce ton cas ?

--
Jedaï

[djibril]

Merci jedai pour ta correction.
On sent que le week end s'approche

[lami20j]

Toutefois, ce script ne réagira pas bien à plusieurs niveaux de parenthèses

donmamio voilà une approche pour plusieurs niveaux de paranthèses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#! /usr/bin/perl
use strict; use warnings;
#
open(INPUT, '<', './AA/BB/sex.txt') or die "open : $!";
open(OUTPUT, '>', './AA/BB/resultat_toto.txt') or die "open : $!";
 
while ( <INPUT> ) {
   while ( /\(/g ) {
      if ( /\G([^()]+)/ ) {
         print OUTPUT "$1 ";
      }
   }
   print OUTPUT "\n";
}
close(INPUT);
close(OUTPUT);

Le résultat

lami20j@debian:~/trash$ cat AA/BB/sex.txt
((J'ai pris le script de djibril et la version corigée de Jedai))
line1 : aaaa(AAA) bbb(BBB) ccc
line2 : (XXX)xxx sdfkj (HHH)
(AAA) (BBB)
((CCC)) (((DDDD)))
(YYY))) ttt ((=OOO=)))
lami20j@debian:~/trash$ perl dvz_djibril_jedai_parantheses.pl
lami20j@debian:~/trash$ cat AA/BB/resultat_toto.txt
J'ai pris le script de djibril et la version corigée de Jedai
AAA BBB
XXX HHH
AAA BBB
CCC DDDD
YYY =OOO=
lami20j@debian:~/trash$

lami20j