Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Tableau
/
andre
/
PERL
:
compte.pl
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
#!/usr/bin/perl $/ = ""; #unit� de travail le paragraphe $* = 1; #plusieurs lignes � la fois while (<>){ s/-\n//g; #enlever les tirets tr/A-Z/a-z/; #minusculiser @words = split (/\W*\s+\W*/,$_); foreach $word (@words) { $wordcount{$word}++; } } foreach $word (sort keys (%wordcount)) { printf "%20s,%d\n",$word,$wordcount{$word}; }