Bonjour !

Dans un fichier exo3.pl, commencez par écrire une fonction PoSTag2Xml qui recevra en entrée une chaîne de caractères et modifiera son contenu (sur place) comme indiqué ci-dessus.
Par exemple :
$line = 'The/DT sterling/yen/VBN rate/NN was/VBD about/IN 240.34/44/CD today/NN ,/,';
PoSTag2Xml $line;
print "$line\n";
affichera (aux sauts de lignes près) :
<DT>The</DT> <VBN>sterling/yen</VBN> <NN>rate</NN> <VBD>was</VBD> <IN>about</IN> <CD>240.34/44</CD> <NN>today</NN> <XCMM>,</XCMM>

J'ai codé ceci mais je ne sais pas si ça convient :

@ARGV = (shift);
while(<>){
$balise =~s/ \/(.*)\b/$1/<$1>$`<\/$1>/ig;
}