#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use experimental 'smartmatch';
my @words;
open (my $inFile, '
while () {
chomp;
@words = split /[:,\s\/\'\;]+/; #regex
foreach my $w (@words) {lemm($w);}
}
close ($inFile);
sub lemm {
my $cons = 3 ; my $succ =0 ; my $i = 0;
my ($word) = @_; # recuperer le mot
chomp $word;
#traitement
print $word ." -> ". substr $word ,0,$i."";
print "\n"
}
voila le script
le fichier texte c'est juste des mots aléatoire