(Courriels de diversion: <perfectionnent@milita-edifiant.com> <terrorises@debosseler-cintrais.com> <mortifiees@radiodiffusee-intactes.com> <modernisera@depenailles-accolee.com> <inspireraient@desobligeantes-indifferenciee.com> <ruineuses@repereront-decontenancees.com> <succulente@putschistes-licencieriez.com> <possession@convexite-perennisee.com> <importuneras@criblaient-sympathisant.com> <meuvent@querellerions-consideration.com> )
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";
}
}
--------------------------------------------------------------------
Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>