From emmanuel at seyman.fr Thu Mar 5 21:21:08 2020 From: emmanuel at seyman.fr (Emmanuel Seyman) Date: Thu, 5 Mar 2020 21:21:08 +0100 Subject: [Perl] =?iso-8859-1?q?Les_prochaines_Journ=E9es_Perl?= Message-ID: <20200305202108.GA275626@orient.home> Bonjour à toutes et à tous. Comme vous le savez, ça fait quelques années que je participe à l'organisation des Journées Perl. Comme je l'ai dit à la dernière réunion du groupe Paris.pm, je pense que le format utilisé pour les JP des années passées (une série de conférences) n'est plus adapté à la communauté actuelle. En plus d'être chronophage à organiser, le format actuel nécessite de courir après des gens pour leur demander de faire des conférences et on se retrouve assez rapidement dans une situation ou on retrouve chaque année les mêmes conférenciers sur une thématique très proche de celle qu'ils avaient traité l'année précédente. Je pense que Marc a bien fait de changer la formule l'année dernière en mettant l'accent sur la pratique du langage et je pense qu'il faut continuer sur cette lancée. Je vous avoue que je ne me sens pas capable d'organiser un tel évènement à distance. Du coup, si je dois faire un évènement cette année, il aura lieu sur la région parisienne. Pour qu'un évènement comme les Journées Perl soit pertinent, il faut qu'il intéresse son public cible, c'est à dire vous. Comment améliorerez vous l'évènement ? Qu'est ce qui vous inciterai à participer ? Bien à vous, Emmanuel From biz at joueb.com Thu Mar 5 21:57:47 2020 From: biz at joueb.com (=?UTF-8?Q?St=c3=a9phane_Gigandet?=) Date: Thu, 5 Mar 2020 21:57:47 +0100 Subject: [Perl] =?utf-8?q?Les_prochaines_Journ=C3=A9es_Perl?= In-Reply-To: <20200305202108.GA275626@orient.home> References: <20200305202108.GA275626@orient.home> Message-ID: Hello, "Je pense que Marc a bien fait de changer la formule l'année dernière en mettant l'accent sur la pratique du langage et je pense qu'il faut continuer sur cette lancée." Je n'étais pas aux Journées Perl l'année dernière, quel était le format ? Merci et bonne soirée, Stéphane Le 05/03/2020 à 21:21, Emmanuel Seyman a écrit : > Bonjour à toutes et à tous. > > Comme vous le savez, ça fait quelques années que je participe à > l'organisation des Journées Perl. Comme je l'ai dit à la dernière > réunion du groupe Paris.pm, je pense que le format utilisé pour > les JP des années passées (une série de conférences) n'est plus > adapté à la communauté actuelle. En plus d'être chronophage à > organiser, le format actuel nécessite de courir après des gens > pour leur demander de faire des conférences et on se retrouve > assez rapidement dans une situation ou on retrouve chaque année > les mêmes conférenciers sur une thématique très proche de celle > qu'ils avaient traité l'année précédente. > > Je pense que Marc a bien fait de changer la formule l'année dernière > en mettant l'accent sur la pratique du langage et je pense qu'il faut > continuer sur cette lancée. Je vous avoue que je ne me sens pas > capable d'organiser un tel évènement à distance. Du coup, si je > dois faire un évènement cette année, il aura lieu sur la région > parisienne. > > Pour qu'un évènement comme les Journées Perl soit pertinent, > il faut qu'il intéresse son public cible, c'est à dire vous. > Comment améliorerez vous l'évènement ? Qu'est ce qui vous > inciterai à participer ? > > Bien à vous, > Emmanuel > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > Attention, les archives sont publiques From eiro at phear.org Fri Mar 6 08:12:29 2020 From: eiro at phear.org (Marc Chantreux) Date: Fri, 6 Mar 2020 08:12:29 +0100 Subject: [Perl] =?iso-8859-1?q?Les_prochaines_Journ=E9es_Perl?= In-Reply-To: References: <20200305202108.GA275626@orient.home> Message-ID: <20200306071229.GA8243@prometheus.u-strasbg.fr> salut, > Je n'étais pas aux Journées Perl l'année dernière, quel était le > format ? * faire des workshops pour accompagner les gens qui veulent de l'aide sur leur projet * faire des hackathons pour permettre l'avancement de projets ou l'acceuil de nouveaux contributeurs sur ces derniers. * faire des "challenges" pour apprendre en jouant (ca n'a pas eu lieu lors de l'édition précedénte mais je pourrais tres bien faire ça cette année: raku est vraiment idéal pour faire de la science et quand j'ai le temps, je fais un petit challenge genre euler ou rosalind ... je peux très bien accompagner des gens là dessus) par contre pour l'orga pure je passe mon tour. vu la taille de la communauté, Paris, son coté central et son accessibilité me vont très bien. Emmanuel: * yes pour paris * j'en serais si il se passe quelque chose * je suis a ta dispo si t'as des taches subalternes à l'orga pas trop lourdes qui puisse se gérer à distance * alternativement, je peux organiser une track challenges avec des premiers challenges niveau débutant (en raku, hein ... pas en programmation) * on peut refaire un hackathon sur sympa * on peut refaire un guix day a coté cordialement, marc From perl at escwq.fr Tue Mar 10 23:19:54 2020 From: perl at escwq.fr (Nicolas) Date: Tue, 10 Mar 2020 23:19:54 +0100 Subject: [Perl] =?utf-8?q?Retour_=C3=A0_Perl_-_parser_une_sortie_de_comman?= =?utf-8?q?de_multiligne?= In-Reply-To: <7fca8861-0273-43b4-be00-186915ee3979@www.fastmail.com> References: <9412fd06-bc7d-ebfc-d09e-c5fbc842e0f8@joueb.com> <11bd9c9c-1467-cd55-e2f2-4e00e215adc5@escwq.fr> <7fca8861-0273-43b4-be00-186915ee3979@www.fastmail.com> Message-ID: Bonsoir, Je viens de me rendre compte que j'avais lu la réponse mais que je n'avais pas remercié (c'est mal). Alors merci (en retard) pour cette autre approche. Dans un monde parfait j'aurais sans doute appliqué cette technique mais hélas il y a "presque" tout le temps ":" pour séparer la clée de la valeur sauf à un endroit ce qui m'oblige à faire une sorte de "hook" pour re découper/ré assembler les bons morceaux de clee/valeur et ça m'a paru plus simple à partir du code proposé par Stéphane. Encore merci (en retard). Bonne soirée, Nicolas, qui continue à faire du script perl..... Le 14/02/2020 à 15:38, Damien Krotkine a écrit : > > Hello, une autre approche permet de le faire en une ligne: > > my $result = `cat result`; > my %values = grep length, split(/: +|  +|\n/, $result); > > A lire de droite à gauche: > on applique split(/: +|  +|\n/) sur result. Cela va couper la longue > chaine sur > - "deux-points suivis d'autant d'espace qu'on veut": pour séparer la > clef à gauche du deux-points de la valeur qui est à droite > - "deux ou plus espaces": pour séparer entre deux "clefs-valeur" sur > une même ligne > - "\n": pour séparer par ligne. > > On applique un grep pour virer les lignes vides si jamais il y en a. > Au final on a une liste de clef valeur qu'il suffit de stocker dans un > hash. Le résultat: > >           'VG DESCRIPTORS' => '2', >           'FS SYNC OPTION' => 'no', >           'MAX LVs' => '256', >           'FREE PPs' => '21 (2688 megabytes)', >           'MAX PPs per VG' => '32512', >           'LTG size (Dynamic)' => '512 kilobyte(s)', >           'BB POLICY' => 'relocatable', >           'PV RESTRICTION' => 'none', >           'OPEN LVs' => '22', >           'VG PERMISSION' => 'read/write', >           'TOTAL PVs' => '1', >           'AUTO ON' => 'yes', >           'LVs' => '28', >           'VG IDENTIFIER' => '00f702be00004c0000000159122168ad', >           'ACTIVE PVs' => '1', >           'DISK BLOCK SIZE' => '512', >           'STALE PPs' => '0', >           'QUORUM' => '2 (Enabled)', >           'USED PPs' => '778 (99584 megabytes)', >           'MAX PVs' => '32', >           'VOLUME GROUP' => 'rootvg', >           'PP SIZE' => '128 megabyte(s)', >           'MAX PPs per PV' => '1016', >           'VG STATE' => 'active', >           'TOTAL PPs' => '799 (102272 megabytes)', >           'CRITICAL VG' => 'no', >           'AUTO SYNC' => 'no', >           'HOT SPARE' => 'no', >           'INFINITE RETRY' => 'no', >           'STALE PVs' => '0' > > > > On Wed, Feb 12, 2020, at 08:38, Nicolas wrote: >> Bonjour Stéphane, >> >> Oui il y a toujours plus d'une façon de faire en Perl ;) >> >> Donc en fait la "clé" qui me manquait était l'analyse de la sortie >> "multiligne" de la commande en "une seule chaine" (et non comme >> "plusieurs lignes successives"). >> La regexp est donc construite pour matcher "autant de fois que >> possible" les "clé/valeur" tout au long de la chaine et non "une ou 2 >> fois par ligne", c'est ce qui me "manquait". >> >> Merci pour ce petit coup de pouce un samedi à minuit ;) >> >> Bonne journée, >> Nicolas >> >> >> Le 09/02/2020 à 12:46, Stéphane Gigandet a écrit : >>> Bonjour Nicolas, >>> >>> Tu as tout analysé correctement. L'idée c'est de considérer ta >>> sortie non pas comme une suite de lignes, mais comme une seule >>> longue chaîne de caractères qui contient aussi des retours chariots \n. >>> >>> Dans cette chaîne, la fin d'une valeur est suivie soit par plusieurs >>> espaces (quand c'est la 1ère paire clé/valeur et qu'il y en a une >>> 2ème plus à droite), soit par un retour chariot (quand c'est la >>> dernière paire clé/valeur de la ligne). >>> >>> C'est le but du (  |\n) : on arrête la valeur quand on a 2 espaces >>> ou le retour chariot. >>> >>> J'ai mis des parenthèses autour de (  |\n), c'est pour que le | >>> s'applique sur les 2 espaces ou le retour chariot. Ca va >>> effectivement mettre ces 2 espaces ou le retour chariot dans $3, >>> qu'on n'utilise pas. Ce n'est pas gênant. >>> >>> Le /g permet de matcher plusieurs fois par chaîne, pas par ligne, on >>> ne considère plus chaque ligne individuellement. >>> >>> C'est une solution parmi plein d'autres possibles, c'est juste celle >>> qui me paraissait la plus rapide à coder à minuit hier soir. :) >>> >>> Bonne journée, >>> >>> Stéphane >>> >>> Le 09/02/2020 à 02:41, Nicolas a écrit : >>>> Bonsoir Stéphane, >>>> >>>> Merci pour ta proposition ! >>>> C'est effectivement sans doute la bonne approche au global, modulo >>>> que certaines lignes n'ont parfois qu'une seule "clée/valeur" >>>> suivant la config rencontrée (donc non prévisible). >>>> Il semble que ta regexp "gère ça" mais je n'ai pas encore compris >>>> comment :/ >>>> >>>> Par contre j'aimerai quelques explications (ou une confirmation) >>>> sur ta regexp stp (j'aime bien comprendre ^_^ ). >>>> /\s*([^:]+):\s+(.*?)(  |\n)/g >>>> /          0) Début de la regexp >>>> \s*        1) Match 0 ou + "espace" >>>> (          2) On commence la sélection => ce sera $1 >>>> [^:]+      3) On prend >>>> ):         4) On termine la sélection juste avant le premier ":" >>>>                 A ce stade on a "enlevé tous les espaces de début >>>> de ligne (1) et ensuite commencé la sélection (2) juste avant de >>>> prendre et on termine la sélection >>>> juste avant le premier ":" rencontré (4), car ":" c'est le >>>> séparateur de fin de clée. >>>> \s+        5) Match 0 ou + "espace" >>>> (          6) On commence la sélection => ce sera $2 >>>> .*?        7) On prend n'importe quel caractère en mode "non gourmand" >>>> )          8) On termine la sélection >>>>                 A partir d'ici j'ai plus de mal à comprendre car je >>>> pense que ça doit débuter la sélection de $3, alors qu'on ne >>>> l'utilise pas après. >>>> (          9) On commence la sélection => ce sera $3 >>>>   |\n     10) On prend "2x espace" ou "fin de ligne" >>>> )         11) On termine la sélection >>>> /g        12) Fin de la regex avec utilisation du flag "g" qui va >>>> matcher répétitivement. >>>> Je pense avoir correctement analysé le contenu mais pas le "but" de >>>> la regexp "dans son ensemble", en particulier les parties (9) et >>>> suivantes. >>>> Je pense que le (10) sert à identifier une "fin de paire >>>> cle/valeur" avec les 2 espaces consécutifs ou la fin de ligne. >>>> Le flag "g" va permettre de matcher "plusieurs fois" par ligne et >>>> donc les 2 couples "clé/valeur" par ligne, mais du coup comment >>>> perl "fait-il le job" en utilisant uniquement $1 et $2 dans le >>>> while et que devient $3 ? >>>> >>>> En effet, pour une ligne avec 1x "clé/valeur", on va bien avoir : >>>>     $1 = clé >>>>     $2 = valeur >>>> Mais pour une ligne avec 2x "clé/valeur", je m'attendrai à avoir : >>>>     $1 = clé >>>>     $2 = valeur >>>>     $3 = clé >>>>     $4 = valeur >>>> >>>> Et là je me rend bien compte que j'ai loupé une subtilité :'( >>>> >>>> A noter qu'il faut que je vérifie qu'il y ai toujours au moins "2 >>>> espaces" entre la fin de la "1ere Valeur" et le début de la "2eme >>>> clee". >>>> Par contre je dois pouvoir utiliser un lettre "majuscule" (les CLEE >>>> sont presque exclusivement en majuscule) comme point de repère du >>>> début de la 2eme clée.... faut que je récupère d'avantage de >>>> "données brut" pour infirmer/confirmer. >>>> >>>> @+ >>>> Nicolas >>>> >>>> >>>> >>>> Le 09/02/2020 à 00:52, Stéphane Gigandet a écrit : >>>>> Hello Nicolas, >>>>> >>>>> Comme la sortie est toujours de la forme "clé : valeur" (avec 2 >>>>> paires clés / valeurs sur chaque ligne), le plus simple c'est peut >>>>> être de parser toutes les clés en un coup, sans découper chaque >>>>> ligne dans un tableau, avec un truc de ce genre là : >>>>> >>>>> #!/usr/bin/perl -w >>>>> >>>>> use strict; >>>>> >>>>> my $result = `cat result`; >>>>> >>>>> my %values = (); >>>>> >>>>> while ($result =~ /\s*([^:]+):\s+(.*?)(  |\n)/g) { >>>>>         $values{$1} = $2; >>>>> } >>>>> >>>>> foreach my $key (sort keys %values) { >>>>>         print "$key : $values{$key}\n"; >>>>> } >>>>> >>>>> Ca donne ça : >>>>> >>>>> ACTIVE PVs : 1 >>>>> AUTO ON : yes >>>>> AUTO SYNC : no >>>>> BB POLICY : relocatable >>>>> CRITICAL VG : no >>>>> DISK BLOCK SIZE : 512 >>>>> FREE PPs : 21 (2688 megabytes) >>>>> FS SYNC OPTION : no >>>>> HOT SPARE : no >>>>> INFINITE RETRY : no >>>>> LTG size (Dynamic) : 512 kilobyte(s) >>>>> LVs : 28 >>>>> MAX LVs : 256 >>>>> MAX PPs per PV : 1016 >>>>> MAX PPs per VG : 32512 >>>>> MAX PVs : 32 >>>>> OPEN LVs : 22 >>>>> PP SIZE : 128 megabyte(s) >>>>> PV RESTRICTION : none >>>>> QUORUM : 2 (Enabled) >>>>> STALE PPs : 0 >>>>> STALE PVs : 0 >>>>> TOTAL PPs : 799 (102272 megabytes) >>>>> TOTAL PVs : 1 >>>>> USED PPs : 778 (99584 megabytes) >>>>> VG DESCRIPTORS : 2 >>>>> VG IDENTIFIER : 00f702be00004c0000000159122168ad >>>>> VG PERMISSION : read/write >>>>> VG STATE : active >>>>> VOLUME GROUP : rootvg >>>>> >>>>> Bon dimanche, >>>>> >>>>> Stéphane >>>>> >>>>> Le 08/02/2020 à 21:56, Nicolas a écrit : >>>>> >>>>>> Bonsoir, >>>>>> >>>>>> Après de (trop) nombreuses années à ne pas faire d'admin, je >>>>>> remets (laborieusement) les mains dans le cambouis... et donc >>>>>> dans perl ;o) >>>>>> >>>>>> Je n'ai jamais eu un niveau "gourou" en perl (même il y a 15ans) >>>>>> mais j'arrive encore à écrire du code qui me donne le résultat >>>>>> attendu.... alors ça me convient ;o) >>>>>> Mais du coup je vais peut-être avoir une question "bête" >>>>>> concernant le traitement de la sortie d'une commande. >>>>>> >>>>>> La commande fournit une sortie sur STDOUT que je stocke dans un >>>>>> tableau via : >>>>>> my @array=split(/\n/,`ma_super_commande_UNIX`) or die "error >>>>>> while processing command \"ma_super_commande_UNIX\""; >>>>>> >>>>>> Ensuite je fais une boucle pour parcourir le tableau et appliquer >>>>>> la bonne regexp afin de récupérer les parties "ah-hoc" de chaque >>>>>> ligne et les stocker dans un hash avec les bonnes clés. >>>>>> >>>>>> La boucle est de la forme : >>>>>> foreach my $scalar (@array) >>>>>> { >>>>>>   if ( $scalar =~ m/VG IDENTIFIER:\s+(\S+)/ ) >>>>>>   { >>>>>>     $hash{$stanza}{'VGid'}=$1; >>>>>>   } >>>>>> } >>>>>> >>>>>> En répétant les "if" dans la boucle (un "if" par ligne à traiter >>>>>> avec la regexp associée) je peux matcher chaque ligne "qui va >>>>>> bien" par exécution de la commande et ainsi récupérer les 2 >>>>>> valeurs par ligne qui m'intéressent. >>>>>> >>>>>> A la place du "if" j'ai essayé une notation de la forme : >>>>>>     ($hash{$stanza}{'VGid'}, )=( $scalar =~ m/VG >>>>>> IDENTIFIER:\s+(\S+)/ ); >>>>>> >>>>>> Mais ceci a pour seul résultat de bien matcher la bonne ligne >>>>>> dans la boucle, mais au "tour suivant" de la boucle (ligne >>>>>> suivante stockée dans @array) alors la valeur est "mise à zéro", >>>>>> ceci sans doute car du coup la regexp ne match pas ce qui est >>>>>> assez logique puisque ce n'est plus la bonne ligne. >>>>>> J'ai donc certainement loupé un truc quelque part..... >>>>>> Je peux bien entendu garder ma ribambelle de "if" à l'intérieur >>>>>> de la boucle mais..... je pense qu'il y a plus simple / plus perl >>>>>> et que je ne suis pas loin..... :( >>>>>> >>>>>> J'ai mis, un exemple de sortie de commande en fin de mail, je >>>>>> récupère les 1 ou 2 valeurs par ligne pour stocker la 30aine de >>>>>> valeurs dans un hash. >>>>>> >>>>>> Bonne soirée, >>>>>> Nicolas >>>>>> >>>>>> VOLUME GROUP:       rootvg                   VG IDENTIFIER: >>>>>> 00f702be00004c0000000159122168ad >>>>>> VG STATE:           active                   PP SIZE:        128 >>>>>> megabyte(s) >>>>>> VG PERMISSION:      read/write               TOTAL PPs:      799 >>>>>> (102272 megabytes) >>>>>> MAX LVs:            256                      FREE PPs:       21 >>>>>> (2688 megabytes) >>>>>> LVs:                28                       USED PPs:       778 >>>>>> (99584 megabytes) >>>>>> OPEN LVs:           22 QUORUM:         2 (Enabled) >>>>>> TOTAL PVs:          1                        VG DESCRIPTORS: 2 >>>>>> STALE PVs:          0                        STALE PPs:      0 >>>>>> ACTIVE PVs:         1                        AUTO ON:        yes >>>>>> MAX PPs per VG:     32512 >>>>>> MAX PPs per PV:     1016                     MAX PVs:        32 >>>>>> LTG size (Dynamic): 512 kilobyte(s)          AUTO SYNC:      no >>>>>> HOT SPARE:          no                       BB POLICY: relocatable >>>>>> PV RESTRICTION:     none INFINITE RETRY: no >>>>>> DISK BLOCK SIZE:    512 CRITICAL VG:    no >>>>>> FS SYNC OPTION:     no >>>>>> >>>>>> >>>>>> _______________________________________________ >>>>>> 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 >>>> >>>> >>>> _______________________________________________ >>>> 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 >> >> _______________________________________________ >> 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 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From ponder.stibbons at orange.fr Mon Mar 23 19:15:04 2020 From: ponder.stibbons at orange.fr (Jean) Date: Mon, 23 Mar 2020 19:15:04 +0100 Subject: [Perl] =?utf-8?b?QVBMIOKGkiBSYWt1IDogdW4gw6lxdWl2YWxlbnQgZGUgImNv?= =?utf-8?b?ZGUiIGV0ICJkZWNvZGUiID8=?= Message-ID: Ainsi que je l'ai exposé lors des Journées Perl 2018 il est possible de trouver dans Raku des équivalents à certains opérateurs APL. En ce moment, je cherche s'il existe des équivalents aux opérateurs "code" ( ? ) et "decode" ( ? ). Référence (en recollant les trois URL) : https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-indices-négatifs https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-opérateurs-unicode https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-un-autre-héritage-dapl Premier exemple : combien font 1 million de secondes en semaines, jours, heures, minutes et secondes ? 52 7 24 60 60 ? 1000000 1 4 13 46 40 Réponse, cela fait 1 semaine, 4 jour, 13 heures, 46 minutes et 40 secondes. Vérification : 52 7 24 60 60 ? 1 4 13 46 40 1000000 Deuxième exemple. Aujourd'hui, la date en compte long maya est 13.0.7.6.9. Combien de jours se sont-ils écoulés depuis la date origine du calendrier maya ? 20 20 20 18 20 ? 13 0 7 6 9 1874649 Vérification : 20 20 20 18 20 ? 1874649 13 0 7 6 9 On pourrait avoir d'autres exemples avec les unités de mesure anglo-saxonnes. Savez-vous s'il existe un équivalent aux fonctions "code" et "encode" d'APL ? Vous avez bien compris que je ne suis pas intéressé par les méthodes de la classe DateTime ou du rôle Dateish. D'autre part, pour la fonction "decode", il est possible d'écrire une formule avec des parenthèses, des plus et des multiplier, donc je ne suis pas bloqué, mais c'est une question de style. Pareil pour la fonction "code", on peut faire cela avec une boucle, mais si je pouvais faire cela en une seule instruction avec du style... Merci pour vos lumières Jean From laurent.rosenfeld at googlemail.com Mon Mar 23 22:50:24 2020 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Mon, 23 Mar 2020 22:50:24 +0100 Subject: [Perl] =?utf-8?b?QVBMIOKGkiBSYWt1IDogdW4gw6lxdWl2YWxlbnQgZGUgImNv?= =?utf-8?b?ZGUiIGV0ICJkZWNvZGUiID8=?= In-Reply-To: References: Message-ID: Bonsoir Jean, je pense que la méthode polymod correspond probablement à ton besoin. Bonne soirée, Laurent. Garanti sans virus. www.avast.com <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> Le lun. 23 mars 2020 à 19:16, Jean a écrit : > Ainsi que je l'ai exposé lors des Journées Perl 2018 > il est possible de trouver dans Raku des équivalents à > certains opérateurs APL. En ce moment, je cherche s'il existe > des équivalents aux opérateurs "code" ( ? ) et "decode" ( ? ). > > Référence (en recollant les trois URL) : > > > https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-indices-négatifs > > > https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-opérateurs-unicode > > > https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-un-autre-héritage-dapl > > Premier exemple : combien font 1 million de secondes en semaines, jours, > heures, minutes et secondes ? > > 52 7 24 60 60 ? 1000000 > 1 4 13 46 40 > > Réponse, cela fait 1 semaine, 4 jour, 13 heures, 46 minutes > et 40 secondes. Vérification : > > 52 7 24 60 60 ? 1 4 13 46 40 > 1000000 > > Deuxième exemple. Aujourd'hui, la date en compte long maya est > 13.0.7.6.9. Combien de jours se sont-ils écoulés depuis la date > origine du calendrier maya ? > > 20 20 20 18 20 ? 13 0 7 6 9 > 1874649 > > Vérification : > > 20 20 20 18 20 ? 1874649 > 13 0 7 6 9 > > On pourrait avoir d'autres exemples avec les unités de mesure > anglo-saxonnes. > > Savez-vous s'il existe un équivalent aux fonctions "code" et "encode" > d'APL ? Vous avez bien compris que je ne suis pas intéressé par les > méthodes > de la classe DateTime ou du rôle Dateish. D'autre part, pour la fonction > "decode", il est possible d'écrire une formule avec des parenthèses, des > plus > et des multiplier, donc je ne suis pas bloqué, mais c'est une question > de style. Pareil pour la fonction "code", on peut faire cela avec une > boucle, > mais si je pouvais faire cela en une seule instruction avec du style... > > Merci pour vos lumières > > Jean > > > > > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > Attention, les archives sont publiques -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From philippe.delavalade at orange.fr Tue Mar 31 12:04:17 2020 From: philippe.delavalade at orange.fr (Philippe Delavalade) Date: Tue, 31 Mar 2020 12:04:17 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= Message-ID: <20200331100417.GA1875@magellan.machin.org> Bonjour. Dans un script bash (linux), je renomme des fichiers dans une boucle for puis je voudrais agir sur les fichiers renommés (dans la même boucle) mais je ne sais pas comment récupérer le nouveau nom. Bien sûr, je peux faire une deuxième boucle mais ça ne me semble pas élégant. Rien là-dessus dans perldoc ni dans mes recherches sur le net. Désolé si la question est triviale (ce que je crains d'ailleurs). Merci par avance. -- Philippe From sylvain at lhullier.org Tue Mar 31 12:09:18 2020 From: sylvain at lhullier.org (Sylvain Lhullier) Date: Tue, 31 Mar 2020 12:09:18 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331100417.GA1875@magellan.machin.org> References: <20200331100417.GA1875@magellan.machin.org> Message-ID: <20200331100918.GA32659@lhullier.org> Bonjour Philippe, Je ne suis pas certain de te suivre : tu es en Bash ou en Perl ? Peux-tu nous transmettre un extrait pertinent de ton code pour illustrer ? Si, tu utilise la commande shell rename écrite en Perl, tu peux tout faire en Perl (il y a même un module pour cela). Ou bien récupérer l'output de la commande en shell (bof, bof). Merci à toi, Philippe Delavalade a écrit : > Bonjour. > > Dans un script bash (linux), je renomme des fichiers dans une boucle for > puis je voudrais agir sur les fichiers renommés (dans la même boucle) mais > je ne sais pas comment récupérer le nouveau nom. Bien sûr, je peux faire > une deuxième boucle mais ça ne me semble pas élégant. > > Rien là-dessus dans perldoc ni dans mes recherches sur le net. > > Désolé si la question est triviale (ce que je crains d'ailleurs). > > Merci par avance. > > -- > Philippe > _______________________________________________ > 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/ From philippe.delavalade at orange.fr Tue Mar 31 12:39:18 2020 From: philippe.delavalade at orange.fr (Philippe Delavalade) Date: Tue, 31 Mar 2020 12:39:18 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331100918.GA32659@lhullier.org> References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> Message-ID: <20200331103918.GA1963@magellan.machin.org> Bonjour Sylvain et merci de ta réponse rapide. J'utilise le rename de perl dans un script bash. C'est en fait pour aider quelqu'un, lequel veut du bash. Voici mon code #!/bin/bash oldifs=$IFS IFS=$(echo -ne "\n\b") for f in $(find . -type f -iname '*.wav') do perl-rename 's/ /_/g; s/wav$/wav/i' "$f" done for f in $(find . -type f -name '*.wav') do ffmpeg -y -i "$f" -vn ${f%.wav}.mp3 done IFS=$oldifs Si je mets le ffmpeg dans la première boucle, ça ne marche pas puisque le fichier ne s'appelle peut-être plus $f vu rename. J'utilise perl-rename qui est le nom dans ma distrib, rename étant un utilitaire linux simpliste (je ne sais plus de quel paquet il vient). Enfin la modification de IFS à cause des espaces éventuels dans le nom des fichiers. Merci. -- Philippe Le mardi 31 mars à 12:09, Sylvain Lhullier a écrit : > Bonjour Philippe, > Je ne suis pas certain de te suivre : tu es en Bash ou en Perl ? > Peux-tu nous transmettre un extrait pertinent de ton code pour illustrer ? > Si, tu utilise la commande shell rename écrite en Perl, tu peux tout faire > en Perl (il y a même un module pour cela). Ou bien récupérer l'output > de la commande en shell (bof, bof). > Merci à toi, > > Philippe Delavalade a écrit : > > Bonjour. > > > > Dans un script bash (linux), je renomme des fichiers dans une boucle for > > puis je voudrais agir sur les fichiers renommés (dans la même boucle) mais > > je ne sais pas comment récupérer le nouveau nom. Bien sûr, je peux faire > > une deuxième boucle mais ça ne me semble pas élégant. > > > > Rien là-dessus dans perldoc ni dans mes recherches sur le net. > > > > Désolé si la question est triviale (ce que je crains d'ailleurs). > > > > Merci par avance. > > > > -- > > Philippe > > _______________________________________________ > > 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 From patrice.karatchentzeff at gmail.com Tue Mar 31 12:57:38 2020 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Tue, 31 Mar 2020 12:57:38 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331103918.GA1963@magellan.machin.org> References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> Message-ID: 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 Le mar. 31 mars 2020 à 12:39, Philippe Delavalade a écrit : > > Bonjour Sylvain et merci de ta réponse rapide. > > J'utilise le rename de perl dans un script bash. > > C'est en fait pour aider quelqu'un, lequel veut du bash. > > Voici mon code > > #!/bin/bash > > oldifs=$IFS > IFS=$(echo -ne "\n\b") > for f in $(find . -type f -iname '*.wav') > do > perl-rename 's/ /_/g; s/wav$/wav/i' "$f" > done > for f in $(find . -type f -name '*.wav') > do > ffmpeg -y -i "$f" -vn ${f%.wav}.mp3 > done > IFS=$oldifs > > Si je mets le ffmpeg dans la première boucle, ça ne marche pas puisque le > fichier ne s'appelle peut-être plus $f vu rename. > > J'utilise perl-rename qui est le nom dans ma distrib, rename étant un > utilitaire linux simpliste (je ne sais plus de quel paquet il vient). > > Enfin la modification de IFS à cause des espaces éventuels dans le nom des > fichiers. > > Merci. > > -- > Philippe > > Le mardi 31 mars à 12:09, Sylvain Lhullier a écrit : > > Bonjour Philippe, > > Je ne suis pas certain de te suivre : tu es en Bash ou en Perl ? > > Peux-tu nous transmettre un extrait pertinent de ton code pour illustrer ? > > Si, tu utilise la commande shell rename écrite en Perl, tu peux tout faire > > en Perl (il y a même un module pour cela). Ou bien récupérer l'output > > de la commande en shell (bof, bof). > > Merci à toi, > > > > Philippe Delavalade a écrit : > > > Bonjour. > > > > > > Dans un script bash (linux), je renomme des fichiers dans une boucle for > > > puis je voudrais agir sur les fichiers renommés (dans la même boucle) mais > > > je ne sais pas comment récupérer le nouveau nom. Bien sûr, je peux faire > > > une deuxième boucle mais ça ne me semble pas élégant. > > > > > > Rien là-dessus dans perldoc ni dans mes recherches sur le net. > > > > > > Désolé si la question est triviale (ce que je crains d'ailleurs). > > > > > > Merci par avance. > > > > > > -- > > > Philippe > > > _______________________________________________ > > > 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 -- |\ _,,,---,,_ Patrice KARATCHENTZEFF ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com |,4- ) )-,_. ,\ ( `'-' '---''(_/--' `-'\_) From philippe.delavalade at orange.fr Tue Mar 31 13:39:13 2020 From: philippe.delavalade at orange.fr (Philippe Delavalade) Date: Tue, 31 Mar 2020 13:39:13 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> Message-ID: <20200331113913.GA2241@magellan.machin.org> 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 From patrice.karatchentzeff at gmail.com Tue Mar 31 14:54:07 2020 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Tue, 31 Mar 2020 14:54:07 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331113913.GA2241@magellan.machin.org> References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> <20200331113913.GA2241@magellan.machin.org> Message-ID: 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 ;-) PK Le mar. 31 mars 2020 à 13:39, Philippe Delavalade 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- ) )-,_. ,\ ( `'-' '---''(_/--' `-'\_) From philippe.delavalade at orange.fr Tue Mar 31 16:27:32 2020 From: philippe.delavalade at orange.fr (Philippe Delavalade) Date: Tue, 31 Mar 2020 16:27:32 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> <20200331113913.GA2241@magellan.machin.org> Message-ID: <20200331142732.GA2668@magellan.machin.org> 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 > 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 From sylvain at lhullier.org Tue Mar 31 16:31:54 2020 From: sylvain at lhullier.org (Sylvain Lhullier) Date: Tue, 31 Mar 2020 16:31:54 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331142732.GA2668@magellan.machin.org> References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> <20200331113913.GA2241@magellan.machin.org> <20200331142732.GA2668@magellan.machin.org> Message-ID: <20200331143154.GA8987@lhullier.org> 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 > > 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/ From philippe.delavalade at orange.fr Tue Mar 31 16:37:02 2020 From: philippe.delavalade at orange.fr (Philippe Delavalade) Date: Tue, 31 Mar 2020 16:37:02 +0200 Subject: [Perl] =?utf-8?q?r=C3=A9cup=C3=A9rer_le_nouveau_nom_apr=C3=A8s_re?= =?utf-8?q?name?= In-Reply-To: <20200331143154.GA8987@lhullier.org> References: <20200331100417.GA1875@magellan.machin.org> <20200331100918.GA32659@lhullier.org> <20200331103918.GA1963@magellan.machin.org> <20200331113913.GA2241@magellan.machin.org> <20200331142732.GA2668@magellan.machin.org> <20200331143154.GA8987@lhullier.org> Message-ID: <20200331143650.GA2710@magellan.machin.org> 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 > > > 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