Discussion :

[claudej]

Bonjour,

J'aimerais savoir s'il y a une meilleur façon plus chic d'extraire une date dans une chaine de caractère.

De plus, ma chaine de départ est modifiée. Je veux juste envoyer la valeur dans une autre chaine sans modifier la chaine source. (Extraire 20061015)

my $moi = "0778600SGGFACUN2006101511154328.TXT";
$chaine = $moi;
my @lemot = ();
while ($chaine =~ /20....../) {
push @lemot, $&;
$chaine = $';
}

ou bien...

$chaine = $moi;
$mot2 = substr($chaine, 16, 8);
print $mot2 ;
print "\n" ;

Dans les deux cas, la chaine source a été affectée. Par contre, la date est extraite.

Merci de votre aide.

[rcageot]

je comprend pas bien ou est ton problème en fait ??

tu veux juste faire un print sans passer par une variable ?

[rcageot]

un truc comme ça ça irait ?

Code :

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

1
2
3
4
 
my $moi = "0778600SGGFACUN2006101511154328.TXT";
my @chaine = ($moi =~ m/(20\d\d\d\d\d\d)/g);
print "$moi => ".$chaine[0];

[claudej]

T'as parfaitement compris ce que je voulais.

Merci beaucoup!

[djibril]

plus élégant :

Code :

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

1
2
3
my $moi = "0778600SGGFACUN2006101511154328.TXT";
my $date= $moi =~ /(200\d{5})/;
print "Date => $date\n";

[rcageot]

lorsque je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
 
my $moi = "0778600SGGFACUN2006101511154328.TXT";
my @chaine = ($moi =~ m/(200\d{5})/g);
print "$moi => ".$chaine[0]."\n";
 
 
my $date = $moi =~ /(200\d{5})/;
print "Date => ".$date."\n";

le resultat est cela :

Code :

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

1
2
3
 
0778600SGGFACUN2006101511154328.TXT => 20061015
Date => 1

c'est normal docteur ?

pourquoi le résultat de la fonction de djibril me renvoit 1?
il se comporte comme si il avait juste testé que cette occurence était bien présente dans la cghaine et ne renvoit pas le résultat dans la variable !! je pige pas tout là !