Discussion :

[chris91]

Bonjour

J'ai trois chaines :

$data = "xxxxxxx AB45a/b xxxxxxxxxx";
$val = "AB45a";
$val1 = "AB45b";

le AB45a/b de la chaine $data signifie que je peux avoir soit AB45a ou AB45b

Y a t-il une solution simple permettant de trouver $val1 est contenue dans data.

Pour $val pas de problème
if ($data =~ /$val/) {print "$val trouve";}
mais pour val1 ?????

merci de votre aide

[Jasmine80]

Peut-être quelque chose comme ça

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
 
my $data = "xxxxxxx AB45a/b xxxxxxxxxx";
my $val = "AB45a";
my $val1 = "AB45b";
my $val1a = substr ($val1, 0, 4);
my $val1b = substr ($val1,4, 1);
 
print $val1a."\t".$val1b."\n";
 
if ($data =~ m/$val1a[\w\/]*$val1b[\w\/]*/) {print "$val1 trouve";}
 
 
close;

Cela est général fonctionnera donc aussi pour

my $data = "xxxxxxx AB45a/b/c xxxxxxxxxx";

ou alors plus simplement

if ($data =~ m/$val1a[\w\/]*$val1b/) {print "$val1 trouve";}




Jasmine,