Re: recherche itérative de carac tères (en Perl)

[Phil'sFree <philsfreeSANSPUB@free.frSVP>]

Kees Jongenburger a écrit :
> On 4/2/06, Phil'sFree <philsfreeSANSPUB@free.frsvp> wrote:
>
> > Bonjour,
> >
> > Je croyais savoir faire ... mais ça ne marche pas.
> > En Perl, je voudrais obtenir par itérations successives la décomposition
> > d'un texte en phrases avec comme séparateurs possibles :
> > - point
> > - point-virgule
> > - point d'exclamation
> > - point d'interrogation
> > - point de suspension (3 points accolés)
> >
> > Merci d'avance si vous avez la ligne magique ...
>
> #!/usr/bin/perl -w
> use strict;
> while(<>){
>         foreach(split(/([.]{3}|[,;?!.])/)){
>                 print "$_\n";
>         }
> }

Merci pour cette bonne piste.
J'ai juste apporté 2 modifications :
- supprimé la virgule de la liste de séparateurs de phrases
- revu le traitement des séparateurs (pour ne pas les avoir chacun seul 
sur 1 ligne)

Le résultat est visible sur Gna!
http://cvs.gna.org/cvsweb/BigTools/PhonCount/StructFile.pm?cvsroot=lliaphon
lignes 159 Ã  163

A+
--
Phil

--------------------------------------------------------------------
Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>