Fonctions cachées de Perl ?

Question

Quelles sont les fonctionnalités vraiment utiles mais ésotériques du langage Perl que vous avez pu utiliser pour faire un travail utile ?

Directives :

• Essayez de limiter les réponses au noyau Perl et non au CPAN.
• Veuillez donner un exemple et une brève description

---

Fonctions cachées que l'on retrouve également dans les fonctions cachées d'autres langues :

(Ils sont tous issus de La réponse de Corion )

• C
  • Dispositif de Duff
  • Portabilité et standardisation
• C#
  • Citations pour les listes et chaînes de caractères délimitées par des espaces blancs
  • Espaces de noms aliasables
• Java
  • Initaliseurs statiques
• JavaScript
  • Les fonctions sont des citoyens de première classe
  • Portée et fermeture du bloc
  • Appeler des méthodes et des accesseurs indirectement à travers une variable
• Ruby
  • Définir les méthodes par le code
• PHP
  • Une documentation en ligne omniprésente
  • Méthodes magiques
  • Références symboliques
• Python
  • Échange de valeurs sur une ligne
  • Possibilité de remplacer même les fonctions de base par votre propre fonctionnalité.

Autres caractéristiques cachées :

Opérateurs :

• Le quasi-opérateur bool
• L'opérateur flip-flop
  • Également utilisé pour construction de listes
• El ++ et unaire - les opérateurs fonctionnent sur les chaînes de caractères
• L'opérateur de répétition
• L'opérateur de vaisseau spatial
• L'opérateur || (et l'opérateur //) pour choisir parmi un ensemble de choix.
• L'opérateur de diamants
• Cas particuliers de la m// opérateur
• L'"opérateur" tilde-tilde

Citer des constructions :

• L'opérateur qw
• Les lettres peuvent être utilisées comme délimiteurs de guillemets dans les constructions de type q{}.
• Mécanismes de citation

Syntaxe et noms :

• Il peut y avoir un espace après un sigil.
• Vous pouvez donner aux sous-noms numériques des références symboliques.
• Virgules de fin légales
• Litraux entiers groupés
• tranches de hachis
• Remplissage des clés d'un hachage à partir d'un tableau

Modules, pragmatiques et options de ligne de commande :

• utilisation stricte et utilisation d'avertissements
• Contrôle de l'altération
• Utilisation ésotérique de -n et -p
• CPAN
• overload::constant
• Module IO::Handle
• Compartiments de sécurité
• Attributs

Variables :

• Autovivification
• [El $[ variable](https://stackoverflow.com/questions/161872/hidden-features-of-perl#161985)
• cravate
• Scoping dynamique
• Changement de variable avec une seule déclaration

Boucles et contrôle de flux :

• Magic goto
• for sur une seule variable
• clause de continuité
• Mode de désespoir

Les expressions régulières :

• El \G ancre
• (?{}) et '(??{})` dans les regexes

Autres caractéristiques :

• Le débogueur
• Blocs de code spéciaux tels que BEGIN, CHECK et END.
• El DATA bloc
• Opérations sur les nouveaux blocs
• Filtres de source
• Crochets de signalisation
• carte ( deux fois )
• Habillage des fonctions intégrées
• El eof fonction
• El dbmopen fonction
• Transformer les avertissements en erreurs

Autres astuces, et méta-réponses :

• cat les fichiers, en décompressant les gzips si nécessaire
• Conseils Perl

---

Voir aussi :

• Caractéristiques cachées de C
• Fonctions cachées de C#
• Caractéristiques cachées du C++
• Fonctions cachées de Java
• Fonctions cachées de JavaScript
• Fonctions cachées de Ruby
• Fonctions cachées de PHP
• Fonctions cachées de Python
• Fonctions cachées de Clojure

Answer 1

L'opérateur flip-flop est utile pour sauter la première itération lors du passage en boucle des enregistrements (généralement des lignes) renvoyés par un handle de fichier, sans utiliser de variable drapeau :

while(<$fh>)
{
  next if 1..1; # skip first record
  ...
}

Exécuter perldoc perlop et recherchez "flip-flop" pour plus d'informations et d'exemples.

Answer 2

Il existe de nombreuses fonctionnalités non évidentes en Perl.

Par exemple, saviez-vous qu'il peut y avoir un espace après un sigil ?

 $ perl -wle 'my $x = 3; print $ x'
 3

Ou que vous pouvez donner des noms numériques aux sous-marins si vous utilisez des références symboliques ?

$ perl -lwe '*4 = sub { print "yes" }; 4->()' 
yes

Il y a aussi le quasi-opérateur "bool", qui renvoie 1 pour les expressions vraies et la chaîne vide pour les fausses :

$ perl -wle 'print !!4'
1
$ perl -wle 'print !!"0 but true"'
1
$ perl -wle 'print !!0'
(empty line)

Autres éléments intéressants : avec use overload vous pouvez surcharger les chaînes littérales et les nombres (et par exemple en faire des BigInts ou autre).

Beaucoup de ces choses sont documentées quelque part, ou découlent logiquement des fonctionnalités documentées, mais néanmoins certaines ne sont pas très connues.

Mise à jour : Une autre belle photo. En dessous de la q{...} Les constructions de citations ont été mentionnées, mais saviez-vous que vous pouvez utiliser des lettres comme délimiteurs ?

$ perl -Mstrict  -wle 'print q bJet another perl hacker.b'
Jet another perl hacker.

De même, vous pouvez écrire des expressions régulières :

m xabcx
# same as m/abc/

Answer 3

Ajout de la prise en charge des fichiers compressés via ARGV magique :

s{ 
    ^            # make sure to get whole filename
    ( 
      [^'] +     # at least one non-quote
      \.         # extension dot
      (?:        # now either suffix
          gz
        | Z 
       )
    )
    \z           # through the end
}{gzcat '$1' |}xs for @ARGV;

(les guillemets autour de $_ sont nécessaires pour gérer les noms de fichiers contenant des métacaractères shell)

Maintenant, le <> La fonction décompressera tout @ARGV les fichiers qui se terminent par ".gz" ou ".Z" :

while (<>) {
    print;
}

Answer 4

L'une de mes fonctions préférées en Perl est l'utilisation du booléen || l'opérateur doit choisir parmi un ensemble de choix.

 $x = $a || $b;

 # $x = $a, if $a is true.
 # $x = $b, otherwise

Cela signifie que l'on peut écrire :

 $x = $a || $b || $c || 0;

pour prendre la première valeur vraie de $a , $b y $c ou une valeur par défaut de 0 autrement.

En Perl 5.10, il existe également la fonction // qui renvoie le côté gauche s'il est défini, et le côté droit sinon. L'exemple suivant sélectionne la première défini valeur de $a , $b , $c o 0 autrement :

$x = $a // $b // $c // 0;

Ils peuvent également être utilisés avec leurs formes abrégées, qui sont très utiles pour fournir des valeurs par défaut :

$x ||= 0;   # If $x was false, it now has a value of 0.

$x //= 0;   # If $x was undefined, it now has a value of zero.

Cheerio,

Paul

Answer 5

Les opérateurs ++ et unaire - ne fonctionnent pas seulement sur les nombres, mais aussi sur les chaînes de caractères.

my $_ = "a"
print -$_

imprime -a

print ++$_

imprime b

$_ = 'z'
print ++$_

imprime aa