Auteur : Vincent Ragueneau (Ragnus2003)
Date : Novembre 2005
Je vous fais profiter d'un petit script que m'a envoyé Dan Price (Développeur du ZFS de solaris 10).
Le script range écris en perl permet de générer un compteur. Son utilisation est des plus simple. Vous entrez le chiffre de départ, le chiffre de fin et le pas à utiliser (non obligatoire).
Script range
#!/usr/perl5/bin/perl
if (@ARGV < 2) {
print "usage: range start end [step]\n";
exit 2;
}
$i = $ARGV[0];
$step = 1;
if (@ARGV == 3) {
$step = $ARGV[2];
}
for ($i = $ARGV[0]; $i <= $ARGV[1]; $i += $step) {
print "$i\n";
}
Ce script ressemble à la commande seq disponible sur les distributions linux.
Exemple de lancement:
# /bin/range 1 10
1
2
3
4
5
6
7
8
9
10
On obtient bien un compteur...
Un autre exemple avec un pas réglé à 2:
# /bin/range 2 10 2
2
4
6
8
10
Il est très utile lors de l'utilisation de boucle. Par exemple il m'arrive souvent de créer des boucles "for" pour rechercher l'apparition des messages d'erreurs dans les logs.
# for i in `/bin/range 1 10`;do dmesg | grep error; sleep 10 ;done
Allez bonne utilisation . Je reste bien sûr à votre disposition pour vos commentaires...
Dernière mise à jour de cette page : Mercredi 8 février 2006. Version : 1.02
