Discussion :

[SkyDev]

Bonjour,

Je me demande quelle fonction en Perl pour supprimer un mot ou deux mots dans une ligne?

Exemple:

Code :

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

my $SMS_MESSAGES        = "<STRONG>TEST 1234567890 TEST 1234567890 </STRONG> 2TEST 1234567890 2TEST 1234567890 <STRONG> 3TEST 1234567890 3TEST 1234567890 </STRONG> 4TEST 1234567890 4TEST 1234567890 5TEST 1234567890 5TEST1234567890 " ;

Je veux supprimer <STRONG> et </STRONG> dans une variable $SMS_MESSAGES et ensuite limiter à 150 caractères...

Je vous remercie d'avance.

[djibril]

expressions regulieres

[SkyDev]

Pourriez-vous me donner un exemple si possible.

Je vous remercie d'avance.

[djibril]

voilà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
my $SMS_MESSAGES = "<STRONG>TEST 1234567890 TEST 1234567890 </STRONG> 2TEST 1234567890 2TEST 1234567890 <STRONG> 3TEST 1234567890 3TEST 1234567890 </STRONG> 4TEST 1234567890 4TEST 1234567890 5TEST 1234567890 5TEST1234567890 " ;
# supprime les balises <STRONG> et </STRONG>
$SMS_MESSAGES =~ s{</?strong>}{}ig;
# limite à 150 caracteres
my $limite = 150;
$SMS_MESSAGES = substr($SMS_MESSAGES, 0, $limite);
print "$SMS_MESSAGES\n";