[Perl] Rename et execution de code Perl

Patrice Karatchentzeff patrice.karatchentzeff at gmail.com
Mar 5 Mar 13:09:08 CET 2019


Tout simplement... grrr... j'ai cherché pendant une heure !

Merci

Le mar. 5 mars 2019 à 12:50, Nicolas GEORGES <xlat at cpan.org> a écrit :

> Bonjour,
> Ta somme est effectué dans une chaîne de caractères, c'est pour cela.
>
> # rename -n 's/^Track (\d+)/"Piste ".($1 + 28)/e' *.wav
>
>
> Le mar. 5 mars 2019 à 12:15, Patrice Karatchentzeff <
> patrice.karatchentzeff at gmail.com> a écrit :
>
>> Bonjour
>>
>> Je cherche à exécuter du code Perl à l'intérieur de rename (c'est juste
>> un bout de code perl pour renommer des fichiers en masse :
>>
>> https://metacpan.org/source/RMBARKER/File-Rename-1.10/rename.PL )
>>
>> Le problème : une série d'extraction de fichiers audio nommés track
>> numéro.wav que je voudrais en une seule passe renommer en Piste
>> numéro+incrément.wav
>>
>> La solution
>>
>> # rename -n  's/^Track (\d+)/$1 + 28/e' *.wav
>>
>> fonctionne (exécute bien la somme)
>>
>> mais je n'arrive pas à inclure la chaîne de substitution
>>
>> # rename -n 's/^Track (\d+)/"Piste "."$1 + 28"/e' *.wav
>> donne Piste numéro + 28.wav
>>
>> Mettre ee ne fonctionne pas, il bute sur la première chaîne.
>>
>> Est-ce possible à faire en une seule passe ?
>>
>> Merci
>>
>> PK
>>
>> --
>>       |\      _,,,---,,_           Patrice KARATCHENTZEFF
>> ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:patrice.karatchentzeff at gmail.com
>>      |,4-  ) )-,_. ,\ (  `'-'
>>     '---''(_/--'  `-'\_)
>> _______________________________________________
>> Perl mailing list
>> Perl at mongueurs.net
>> http://listes.mongueurs.net/mailman/listinfo/perl
>> Attention, les archives sont publiques
>
> _______________________________________________
> Perl mailing list
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
> Attention, les archives sont publiques



-- 
      |\      _,,,---,,_           Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:patrice.karatchentzeff at gmail.com
     |,4-  ) )-,_. ,\ (  `'-'
    '---''(_/--'  `-'\_)
-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/archives/perl/attachments/20190305/4c57d455/attachment.html>


Plus d'informations sur la liste de diffusion Perl