[Perl] récupérer le nouveau nom après rename

[Philippe Delavalade]

Le mardi 31 mars à 14:54, Patrice Karatchentzeff a écrit :
> Un truc du genre :
> 
> find -type f -name "*.wav" -exec $( ffmpeg -y -i {} -vn rename 's/
> /_/g; s/wav$/wav/i' {})
> 
> À réécrire proprement et surtout à lancer dans un xarg pour le résultat final.
> 
> T'es un peu off-topic là quand même pour du perl, même si rename est
> une commande de Larry wall ;-)

Oui, mais j'espérais qu'il y avait grâce à perl une façon de récupérer le
nouveau nom avec une variable quelcoque.

Merci, je vais tester.

-- 
Philippe

> 
> PK
> 
> Le mar. 31 mars 2020 à 13:39, Philippe Delavalade
> <philippe.delavalade at orange.fr> a écrit :
> >
> > Bonjour.
> >
> > Moi je veux bien, mais quoi mettre derrière mon pie ? J'ai toujours le
> > problème du nom transformé.
> >
> > Oui, il y a d'après mon gars environ 1,8TiB de données. Ça sera très long :-)
> >
> > Merci.
> >
> > --
> > Philippe
> >
> > Le mardi 31 mars à 12:57, Patrice Karatchentzeff a écrit :
> > > Salut
> > >
> > > Tu t'embêtes bien avec tes boucles...
> > >
> > > find -type f -iname -iname "*.wav" -exec rename (ce que tu veux) {} \;
> > >
> > > Si tu fais un pipe derrière le rename, ça doit marcher.
> > >
> > > Attention, si tu as des milliers de fichiers, il faut passer par xargs
> > >
> > > PK
> > _______________________________________________
> > 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-  ) )-,_. ,\ (  `'-'
>     '---''(_/--'  `-'\_)
> _______________________________________________
> Perl mailing list
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
> Attention, les archives sont publiques