Le perl complètement inutile

Feb 11

Par peck

Niveau :
Résumé : perl

Perl fait beaucoup de choses, trop, tellement que certaines sont complètement inutiles

Il est possible de changer la numérotation des tableaux :

# le premier élément d'un tableau sera maintenant le numéro 42
$[=42;

Il est possible d'allouer de la mémoire inutilisée :

# alloue 64Mio de mémoire pour que perl puisse les utiliser quand il meurt a cause du manque de mémoire !!
# ce qui ne l'empêche pas de mourir bien sur
$^M=64<<20;

Les sections BEGIN {} et END {} sont des blocs très utiles qui s'écrivent tels quel, mais il peuvent aussi être écrits comme des méthodes :

sub BEGIN {}

Perl disposes de modules en provenance du CPAN. Parmi ces modules on trouve les modules Acme, dont voici quelques exemples pour bien en comprendre l'utilité :

Acme::Anything qui permet de charger des modules qui n'existent pas
Acme::Error qui permet d'afficher toutes les erreurs en capitales.
Acme::Godot qui vous permet d'attendre Godot
Acme::EyeDrops pour convertir votre code perl en ascii art (fonctionnel en perl), très joli d'ailleurs
Acme::Code::Police supprime toute erreur de code qui n'utiliserait pas strict en supprimant le code.

planet-libre, Scripting

Comments

kim
February 11th, 2009 at 10:30 PM

1. le premier élément d’un tableau sera maintenant le numéro 42
$[=42;

-> désolé de trouver ça utile, par exemple, certains commencent leurs tableaux à 0, d’autres à 1, cela permet si on le souhaite d’uniformiser ces pratiques/s’adapter à des exigences extérieures.

Pour les modules "inutiles", il se trouve qu’ils sont étiquetés comme tels (Acme, japh…), donc je ne vois, mais alors vraiment pas, le problème. Et contrairement à ce que tu sembles vouloit démontrer, je vois des intérêts même à Acme::Anything : c’est du proof of concept, ou une façon "marrante" de mettre en oeuvre une technique avancée.

Regardes-en le code :
push @INC, sub {
```
   open my ($fh), '<', \1
       or die "Can't open a psudeo-file: $!";
   return $fh;
```
};

Soupçonnais-tu simplement pouvoir mettre des fonctions dans @INC, qui seraient exécutées à chaque scrutation de @INC par perl ? Ce module "inutile" te démontre que c’est possible, de manière simplissime. En application, ho, par exemple, tu peux lister les modules accédés par ton code, où, quand etc. Génial pour certaines applications.
Etc.

Encore une fois, les modules "inutiles" sont clairement identifiés comme inutiles, je ne vois alors vraiment pas le problème.
JB

February 11th, 2009 at 10:39 PM


@kim: je pense que tu n’as pas assez pris ce post à la légère ; moi je ne vois pas où Peck a dit que c’était un problème, l’article n’en fait pas des tartines, il montre juste des trucs marrants/étranges, et en tout cas moi ça m’a bien fait sourire :-)
kim

February 12th, 2009 at 12:09 AM


disons que je conteste le terme "inutiles" ;)
macsim

February 12th, 2009 at 9:34 AM


Lol c’est vrai que c’est pas vraiment des fonctions super utiles (mais c’est donc pour ça que c’est indispensable :)) a par le
$[=X; qui peut servir comme la dit kim pour l’indexation des tableaux.

Juste une question : Acme::Anything ça fait aussi le café ?

max
Peck

February 12th, 2009 at 11:31 AM


Bien sur qu’il fait le café, il suffit de charger le package Hardware::Percolator après Acme::Anything

Non, sinon je ne dis pas que le perl est inutile, d’ailleurs je l’utilise quasiment tous les jours. Mais juste qu’il contient énormément de choses qui ne servent pas vraiment. C’est quand même un langage qui a réussi à devenir orienté objet avec l’ajout d’un seul mot clé et de quelques subtilités.
kim

February 12th, 2009 at 1:16 PM


@Peck :
Certes, mais je reste convaincu que même Acme::Anything est utile (bon on pourrait prendre les autres donnés en exemple), justement pour l’exemple. Il fait un truc marrant, du coup on se demande ce qu’il cache derrière, et on voit que c’est tout con, mais que ce qu’il utilise peut s’avérer super utile => Acme::Anything est pour moi utile ;)

Pour l’Orienté Objet, en perl, la clé est de savoir que les objets en perl n’existent pas (tant qu’on n’a pas perl6) et que c’est du tunning / de la bidouille qui permet de le faire. Justement d’ailleurs avec des manips typées bas niveau comme celle utilisée par Acme::Anything ;)

A lire absolument pour ceux qui aiment aller au fond des choses, l’excellent Perl Hacks, tips and tools :
http://oreilly.com/catalog/97805965…

Linux Attitude