Articles of perl

Le modificateur ‘o’ pour les expressions régulières Perl offre-t-il toujours des avantages?

Autrefois, il était avantageux d’inclure le modificateur ‘o’ à la fin des expressions régulières Perl. La documentation actuelle de Perl ne semble même pas la lister, certainement pas dans la section des modificateurs de perlre . Fournit-il des avantages maintenant? Il est toujours accepté, pour des raisons de rétrocompatibilité, sinon rien. Comme noté par JA […]

Quelle est la signification d’un trait de soulignement dans Perl ($ _, @_)?

Je suis nouveau sur Perl et je les ai utilisés comme ça $_ foreach (@list) { print “$_\n”; } @_ sub search { my ($no, @list) = @_; } Comment fonctionnent exactement ces variables de soulignement dans Perl? Quelles sont les autres constructions où elles sont utiles?

Comment faire pour que Perl et Python impriment chaque ligne du programme en cours d’exécution?

Je sais que bash -x script.sh exécutera le script imprimant chaque ligne avant l’exécution réelle. Comment faire les interpréteurs Perl et Python faire la même chose?

Comment lire UTF-8 avec un opérateur diamant ()?

Je veux lire l’entrée UTF-8 dans Perl, peu importe si elle provient de l’entrée standard ou d’un fichier, en utilisant l’opérateur diamant: while(){…} . Donc, mon script devrait pouvoir être appelé de ces deux manières, comme d’habitude, en donnant le même résultat: ./script.pl utf8.txt cat utf8.txt | ./script.pl Mais les résultats diffèrent! Seul le second […]

Existe-t-il un meilleur moyen de déterminer le temps écoulé en Perl?

my $start_time = [Time::HiRes::gettimeofday()]; my $diff = Time::HiRes::tv_interval($start_time); print “\n\n$diff\n”;

Les virgules de Perl sont-elles une mauvaise pratique?

Aujourd’hui, j’étais dans une réunion Webex montrant mon écran avec du code Perl que j’ai écrit. Mon patron m’a soudainement dit que tout le monde regardait et entendait que je devais retirer les virgules de fin de mes structures de hachage et de tableau car c’est une mauvaise pratique. J’ai dit que je ne pensais […]

Comment convertir une date / heure en epoch time (heure / seconde unix depuis 1970) en Perl?

Étant donné une date et une heure sous forme de tableau de (année, mois, jour, heure, minute, seconde), comment le convertiriez-vous en heure de référence, c.-à-d. Le nombre de secondes écastings depuis 1970-01-01 00:00:00 GMT ? Question bonus: Si vous donnez la date / heure sous forme de chaîne, comment l’parsingriez-vous d’abord dans le tableau […]

Comment obtenir le nom du script Perl en cours d’exécution

Comment puis-je obtenir le nom du script? Par exemple, j’ai un script Perl nommé XXX.pl Ce fichier contient: $name = #some function that obtains the script’s own name print $name; Sortie: XXX.pl Je voudrais comparer cela à la fonction CWD qui obtient le répertoire des scripts. J’ai besoin d’une fonction qui obtient également le nom […]

Est-ce que “map” est une boucle?

En répondant à cette question , j’ai réalisé que je n’étais pas sûr que la map de Perl puisse être considérée comme une boucle ou non? D’un côté, il charrie comme une boucle (est-ce que O (n) fonctionne, peut être facilement réécrit par une boucle équivalente et correspond en quelque sorte à la définition commune […]

Comment puis-je trouver le nombre de clés dans un hash dans Perl?

Comment trouver le nombre de clés dans un hash, comme si vous utilisiez $# pour les tableaux?