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
:
cherche.pl
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
#!/usr/bin/perl print("Quel mot voulez-vous rechercher :"); $cherche = <STDIN>; chop($cherche); $ligne="0"; $sum="0"; $cond="0"; while(<>){ $cond=$sum; $ligne +=1; $sum += (s/\b$cherche\b/$cherche/g); if($cond != $sum){ print("Ligne $ligne ==> "); print("$sum\n"); }; }; print("----------------------------------------------------\n"); print("Votre fichier contient $sum fois le mot \'$cherche\'\n"); while ($_=<>) { split; foreach $w (@_) { $nb{$w}++; } } foreach $w (keys %nb) { print ``$w\t$nb{$w}\n''; }