Commentaire sur un code en C

Ceci est mon texte.

while (not EOF)
    if (char actuel est une fin de mot)
        etat=dehors
    else if (etat=dehors)
        nm++;
        etat=dedans;

while (not EOF)
    if (char actuel est une fin de mot)
         nm++;

[lamitest@localhost bin]$ cat suppr_espace_dans_fichier.pl | wc -l
8
[lamitest@localhost bin]$ cat suppr_espace_dans_fichier.pl | wc -w
16
[lamitest@localhost bin]$ cat suppr_espace_dans_fichier.pl | wc -c
130
[lamitest@localhost bin]$

#! /usr/bin/perl -w

use strict;
$"="\n"; # separateur de liste pour affichage
my @nb_mots;
my @nb_caracteres;
while(<>){
        push @nb_mots,$_=~/\w[^\W]+/g;# mot=tout caractère mot sauf les caractères spéciaux
        push @nb_caracteres,$_=~/./gsm; # n'importe quel caractère
}
print "Nombre lignes : $.\n";
print "Nombre mots : ",scalar @nb_mots,"\nNombre caractères : ",scalar @nb_caracteres,"\n";
######## le calcul s'arrête ici #########
# affiche mots et caractères comptés - pour voir à l'écran - pas obligatoire dans le code
print "-" x 5,"Les mots qui sont comptés","-" x 5,"\n@nb_mots\n";
print "-" x 5,"Les caractères qui sont comptés","-" x 5,"\n";

# affichage des caractères et leur code Ascii

foreach (@nb_caracteres){
print $_," - ",ord $_,"\n";
}

/\w[^\W]/ dans ce cas j'ai chomp et my donc 2 mots
/[^\t\n\s]/ dans ce cas j'ai chomp(my comme un seul mot

#! /usr/bin/perl -w

use strict;

print "Entrez une phrase : ";
chomp(my $chaine=<STDIN>);
$chaine=~s/\s+/x/g;
print "$chaine\n";

[lamitest@localhost bin]$ perl wc_en_perl_v_reduite.pl suppr_espace_dans_fichier.pl 
Nombre lignes : 8
Nombre mots : 16
Nombre caractères : 130
-----Les mots qui sont comptés-----
usr
bin
perl
use
strict
print
Entrez
une
phrase
chomp
my
chaine
STDIN
chaine
print
chaine
-----Les caractères qui sont comptés-----
# - 35
! - 33
  - 32
/ - 47
u - 117
s - 115
r - 114
/ - 47
b - 98
i - 105
n - 110
/ - 47
p - 112
e - 101
r - 114
l - 108
  - 32
- - 45
w - 119
u - 117
s - 115
e - 101
  - 32
s - 115
t - 116
r - 114
i - 105
c - 99
t - 116
; - 59
p - 112
r - 114
i - 105
n - 110
t - 116
  - 32
" - 34
E - 69
n - 110
t - 116
r - 114
e - 101
z - 122
  - 32
u - 117
n - 110
e - 101
  - 32
p - 112
h - 104
r - 114
a - 97
s - 115
e - 101
  - 32
: - 58
  - 32
" - 34
; - 59
c - 99
h - 104
o - 111
m - 109
p - 112
( - 40
m - 109
y - 121
  - 32
$ - 36
c - 99
h - 104
a - 97
i - 105
n - 110
e - 101
= - 61
< - 60
S - 83
T - 84
D - 68
I - 73
N - 78
> - 62
) - 41
; - 59
$ - 36
c - 99
h - 104
a - 97
i - 105
n - 110
e - 101
= - 61
~ - 126
s - 115
/ - 47
\ - 92
s - 115
+ - 43
/ - 47
x - 120
/ - 47
g - 103
; - 59
p - 112
r - 114
i - 105
n - 110
t - 116
  - 32
" - 34
$ - 36
c - 99
h - 104
a - 97
i - 105
n - 110
e - 101
\ - 92
n - 110
" - 34
; - 59