Discussion :

[etplus]

Si j'ai une chaine
$srt="mot1 mot2 mot3"
je veux la modifier comme
((mot1)OR(mot2)OR(mot3))

j'ai reussit par les codes suivant, mais un peu

Code :

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

1
2
3
4
5
6
7
8
 
use strict;
 
$str="mot1 mot2 mot3"
 
if ( $str =~ s/\s+/)OR(/g ) {
  print "(($i))\n";
}

avec

Code :

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

1
2
 
$str =~ s/\s+/)OR(/g )

j'ai obtenu

Code :

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

1
2
 
mot1)OR(mot2)OR(mot3

comment je dois modifier pour ajouter les (( ))

[I'm_HERE]

salut,

peut être:

Code :

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

1
2
3
4
5
$srt = "mot1 mot2 mot3";
 
$srt =~ s/(.*)\s(.*)\s(.*)/(($1)OR($2)OR($3))/g ;
 
print "$srt\n";

mais tu trouveras mieux

[Jasmine80]

Pour rester général quelque soit le nombre de mots utilisés, tu peux faire :

Code :

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

1
2
$srt =~ s/\s/)OR(/g;
$srt = "(($srt))";

[Philou67430]

Tu peux également spliter, maper et joiner :

Code :

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

$chaine = "(".(join " OR ", map "($_)", split " ", $chaine).")";

[etplus]

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
17
18
19
20
 
#!/usr/bin/perl
use strict;
my $str="mot1 mot2 mot3 mot4";
 
#############################
#1
$str =~ s/\s+/)OR(/g;
$str = "(($str))";
#############################################################
#2
#$str = "(".(join " OR ", map "($_)", split " ", $str).")";
#############################################################
#3
#$str =~ s/\s/)OR(/g;
#$str = "(($str))";
#############################################################
 
 
print "$str\n";