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

[Dominique]

personnellement je partirai  directement sur un script avec File::Find
ou même File::Find::Wanted
exemple dans perldoc File::Find::Wanted

Le mar. 31 mars 2020 à 04:37, Philippe Delavalade
<philippe.delavalade at orange.fr> a écrit :
>
> Je suis preneur, d'une part pour ma culture personnelle et pourquoi paspour
> un usage ultérieur et d'autre part parce que je peux contourner en mettant
> le script perl dans le script bash :-)
>
> Merci.
>
> --
> Philippe
>
> Le mardi 31 mars à 16:31, Sylvain Lhullier a écrit :
> > On ne peut pas récupérer en shell une variable Perl ...
> > C'est pour cela que je proposais de tout faire en Perl. Dans ce cas,
> > c'est possible de récupérer (en modifiant un peu le code du module concerné).
> >
> > Philippe Delavalade a écrit :
> > > 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
> > > _______________________________________________
> > > Perl mailing list
> > > Perl at mongueurs.net
> > > http://listes.mongueurs.net/mailman/listinfo/perl
> > > Attention, les archives sont publiques
> >
> > --
> > Sylvain Lhullier
> > Formation Perl  https://formation-perl.fr/
> > Président des Mongueurs de Perl  http://mongueurs.net/
> > _______________________________________________
> > 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