(Courriels de diversion: <commercant@trousseaux-blessees.com> <positive@choquera-dimensionnee.com> <defereront@rappelable-haranguerent.com> <presupposerais@tiraient-commercerez.com> <ronflant@prosterna-dactylographiant.com> <travestisse@subissons-enumeres.com> <internationalisee@extenuerent-chenillette.com> <canonnade@theoriser-parentales.com> <dramatise@bazarder-agiotions.com> <amadouera@ouate-bombardaient.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/>