
use Word::Segmenter::Chinese::Lite qw(wscl_seg wscl_set_mode);

open (SOURCE,$ARGV[0]) or die ("pas trouvé fichier"); # ouvre en lecture le fichier à segmenter
open (DEST,">$ARGV[1]"); # ouvre le fichier dans le lequel on écrira le résultat de la segmentation

while ($line = <SOURCE>)
{
	my @result = wscl_seg($line); # segmente ligne à ligne
	 push (@chinmo,"\n"); # insère un saut de ligne à chaque lecture de ligne du fichier d'origine
	foreach (@result) 
	{
	  push (@chinmo,$_." "); # écrit les mots obtenus dans une liste en les concaténant à un espace
	 }  
}
print (DEST @chinmo); # écrit la liste dans un fichier
close DEST;
close SOURCE;
