Plus concis, en utilisant notamment les options de ligne de commande de Perl :
cd ton_repertoire; \ls -A | perl -nle 'rename $_, ++$n.".jpg"'
En faisant attention à ne pas renommer les répertoires, les fichiers commençant par un point et les fichiers comportant déjà une extension autre que .jpg ou .jpeg :
cd ton_repertoire; \ls -A | perl -nle '-f and (! /^\.|\.[^.]{1,4}$/ || /^[^\.].*\.jpe?g$/i) and rename $_, ++$n.".jpg"'
« Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone
[^] # Re: Avec Perl
Posté par Arthur Accroc . En réponse au message [Terminal] Pour renommer des fichiers avec des chiffres. Évalué à 1.
cd ton_repertoire; \ls -A | perl -nle 'rename $_, ++$n.".jpg"'
En faisant attention à ne pas renommer les répertoires, les fichiers commençant par un point et les fichiers comportant déjà une extension autre que .jpg ou .jpeg :
cd ton_repertoire; \ls -A | perl -nle '-f and (! /^\.|\.[^.]{1,4}$/ || /^[^\.].*\.jpe?g$/i) and rename $_, ++$n.".jpg"'
« Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone