le script

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
#! /usr/bin/perl -w
...
while (($j<@_)&&(lc($w) ne lc($_[$j]))) {
$j++;
};
print " $i\n" if ($j != @_+0);
}
}