Recherche:

J'ai testé chez moi, et ça marche parfaitement, ça me liste les liens symboliques. Y a-t-il vraiment des liens symboliques dans ton répertoire de test ?

Ah, oui, en effet. Donc la solution la plus simple est bien celle de __dardanos__ au bout du compte.

On peut aussi mettre des parenthèses dans le terme de recherche du split, ce qui retourne les séparateurs en plus des termes séparés.


perl -e'print "$_\n" for split /(\D+)/,"122A32T23AGT44"'...

Je suis bien d'accord. C'est bien pour ça que j'ai précisé que ta solution était valide et pertinente pour un cas général. Mais un peu trop lourde pour le cas présenté par Jesaray.

Quant à savoir...

C'est juste que je préférerais cette version-là :

my ($range_min, $range_max) = (1,49);
Mais c'est vraiment parce que j'ai envie de pinailler.

Désolé de relancer un sujet marqué comme résolu, mais j'ai des objections sur la façon dont il a été résolu. Il y a des questions implicites qui méritent des réponses plus approfondies.

Jesarey,...

Rhoh, la boulette ! :oops:

Pour lire un fichier d'un coup (mode "slurp"), il faut modifier la valeur de la variable prédéfinie $/, qui contient le séparateur d'enregistrements, par défaut le retour à la ligne. Comme...

Au temps pour moi, j'avais basé ma réponse sur une ancienne version de ton post. Je suis trop fatigué pour me pencher sur le problème, là.

Quel est le problème ? Le résultat est conforme à ce que tu veux, non ?

Bon, c'est vrai que ton script est un peu brouillon, on dirait une version un peu maladroite de la transformée...

Si si, Philou, c'est dans le premier message.



Justement parce que ton sous-programme utilise une variable qui lui est extérieure. C'est un peu du pinaillage sémantique de ma part, mais j'ai...

Je constate que cette "fonction" utilise une variable qui lui est extérieure : @fh_acq. Sans vouloir être trop rigoriste, j'ai tendance à estimer que c'est une façon bordélique de programmer, qui...

Je n'ai pas examiné la fonction en détail, mais je ne comprends pas à quoi servent les paramètres $sig et $array. Ils ne sont pas utilisés du tout dans la fonction.

Perl est un langage généraliste en principe. Comme tous les langages de programmation, certaines choses y sont plus faciles que d'autres. C'est Randall Schwartz, je crois, qui a dit que Perl est...

Du coup, la solution de 6ril23 ne marche pas bien pour ton vrai problème, en fait. Si, pour quelque raison que ce soit, une de tes lignes commence par "ERRANCE" par exemple, elle sera incluse dans...

Je viens de repérer un problème dans la version initiale du code. Cette partie là :

@result=split(" " , $list[$a]);
if ($result[0] eq "ERR" )
Le test du if ne peut être vrai que si la...

Franchement, pour un fichier de log, dont la taille est par nature variable sinon totalement imprévisible, un traitement ligne par ligne est certainement préférable plutôt que tout charger en mémoire.

Pas vraiment.
Déjà, substr ne pourrait pas te servir, vu que tu ne connais pas à l'avance la structure de ta chaîne.
Ta regex est fixe, et ne nécessite donc qu'une seule compilation. De plus, elle...

Et de toute façon, sauf cas particuliers dont je n'ai pas connaissance et qui relèveraient de toute façon de la Magie Noire, le nommage dynamique des variables est inutile. Les tableaux associatifs...

Parce que les accolades servent à délimiter les données d'une référence à un tableau associatif anonyme. les parenthèses, elles, délimitent une liste dont les éléments seront passés à ton tableau...

Attention, Beniou, kimikou ne veut pas supprimer tous les fichiers, uniquement ceux qui contiennent un point.

Sauf que 5 n'est pas le résultat souhaité, le résultat souhaité est 6.

Les règles typographiques du français veulent que tout signe de ponctuation soit suivi d'une espace, mais que certains signes...

Oui, c'est un problème d'encodage. Tu n'as pas indiqué à ton script quel encodage tu utilises. Or par défaut perl travaille en ASCII; donc le point ne peut pas reconnaître le caractère 'ë', qui est...

Deux questions :
À quoi sert cette ligne ?

return ($refchiffres, $refalphabet);

Que cherches tu à faire avec cette ligne et pourquoi échappes tu l'espace ?

print $chiffres."\ ";

Tu ajoute ceci au début de ton script (de tous tes scripts, même) :

use strict;
use warnings;

Grâce à cela, tu verras que la ligne suivante :

my %h=$v;
ne fait absolument pas ce que tu...