Discussion :

[Flo.]

Bonjour,

je récupère le contenu d'un textarea nommé msg. Je veux transférer le texte dans une variable @message et rechercher des mots encadrés par les caractères [ et ], enlever ces mots et les [ et ], pour remplacer par <img src="mot">.
Est-ce que je m'y prends bien. Merci

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
$FORM{'msg'} =~ s/\n/<br>/go; 
@message="";
@smiley="";
while(($signeactuel = getc($FORM{'msg'})) ne "")
 {
      @smiley="";
      if($signeactuel eq "[")
      {
	while(($signeactuel = getc($FORM{'msg'})) ne "]")
	 {	
                      @smiley=@smiley+$signeactuel;
                 }
	@message=@message+"<img src="+@smiley+".gif>";
     }
     else
     {
	@message=@message+$signeactuel;
     }

Par la suite puis je faire qque chose comme cela

print <<FIN;
@message
FIN


Merci. Flo.

[le troll Hebus]

salut,
voila comment j'aurais procédé:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#!/usr/bin/perl
 
use strict;
 
my $message = 'poipoi ouio [aa jjjj] ioyioy yy  ghpuigp b bjb [uiou hkjhjk ghjgj ] yuui hjjkh';
 
my $prem_partie = "";
my $sec_partie 	= "";
my $trois_partie	= "";
 
while ($message =~ /^(.*)(\[.*])(.*)$/)	{
	$prem_partie	= $1;
	$sec_partie 	= $2;
	$trois_partie	= $3;
 
 
$sec_partie =~ s/\[//;
$sec_partie =~ s/]//;
 
my @tab_mots = split (/\s+/, $sec_partie);
 
foreach my $mot (@tab_mots)	{
	$mot = "<img src = \"".$mot."\" >";
}
$sec_partie = join " ", @tab_mots;
 
$sec_partie =~ s/^\s+//;
$sec_partie =~ s/\s+$//;
 
$message = $prem_partie.$sec_partie.$trois_partie;
}
 
print $message, "\n";

[vic]

Bonjour,

Pourquoi ne pas faire quelquechose comme :

Code :

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

1
2
3
4
 
$_ = $msg;
s/\[([^\[]*)]/<img src="$1">/go; 
print;

Pourquoi programmer en perl comme en C ? :)