J'ai écrit : cd ton_repertoire; \ls -A | perl -nle '-f and (! /^\.|\.[^.]{1,4}$/ || /^[^\.].*\.jpe?g$/i) and rename $_, ++$n.".jpg"'
Dans le fond, plutôt ça :
cd ton_repertoire; \ls -A | perl -nle '-f and ! /\.[^.]{1,4}$/ || /\.jpe?g$/ and /^([^.].*)(\.(jpe?g)?)?$/i and rename 1,ドル ++$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 '-f and (! /^\.|\.[^.]{1,4}$/ || /^[^\.].*\.jpe?g$/i) and rename $_, ++$n.".jpg"'
Dans le fond, plutôt ça :
cd ton_repertoire; \ls -A | perl -nle '-f and ! /\.[^.]{1,4}$/ || /\.jpe?g$/ and /^([^.].*)(\.(jpe?g)?)?$/i and rename 1,ドル ++$n.".jpg"'
« Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone