Reprise du message précédent :
Bon, en fait, je ne recommande pas cette nouvelle version:
Certains modules manquent, en particulier Tk, et quand on veut les recompiler avec cpan, ça passe pas (pas mal de problèmes au niveau des makefiles et de l'environnement de compilation).
La précédente version était plus aboutie à mon avis.
A+,

Une nouvelle version majeure de Perl est sortie (5.16) on en aura sans doute la traduction en version active state dans quelques mois, lorsque les  premières releases mineures et correctives auront été faites.
 
De plus, j'ai indique un bon bouquin gratuit et/ou payant, Modern Perl, en tête de topic.
A+,

Amusant, je suis justement tombé hier sur Modern Perl, très bien, et très actuel, effectivement.
 
Pour ceux qui comme moi ne connaîtraient pas, j'ai récemment découvert Dancer, un framework web en Perl : http://perldancer.org/
 
C'est vraiment très agréable à utiliser, je vous le recommande.
C'est plus simple que Catalyst, et plus propre (amha) que Mojolicious.

J'ai juste eu le temps de survoler (déménagement en cours) et c'est assez éloigné de mes usages de Perl, mais ça a l'air sympa.  
A+,

Je viens de voir que c'est dispo chez ActiveState (Bien que ce soit toujours la 5.14 qui est proposée par défaut)
A+,  

Perso je m'en sers pour avoir rapidement une interface graphique autour de scripts déjà développés. C'est plus rapide et moins moche que Tk par exemple.
Et la partie serveur web est 'auto-contenue' dans le script, donc pas besoin de faire tourner des Apache ou autres par exemple.

Ah! La tu viens de déclencher méchamment mon intérêt (surtout vu comment le support de Tk est foireux avec Active State) Je vais certainement aller voir cela de plus près alors.
J'avais regardé s'il y avait des solutions pour avoir une interface XUI associée à du code Perl, mais j'avais rien trouvé de probant (XUL::Gui est pas terrible).
A+,

Une page de manuel pas inintéressante: Perl secret operators and constants
J'en utilise certains, et je les connaissais pas tous.
Par contre, il manque l'opérateur double slash qui fait un test de définitude.
$myvar // <expression> ;
qui équivaut à
defined($myvar) ? $myvar : <expression> ;
et dont un des dialectes courant est:
$mystring //= 'mytext';
 
A+,

Active Perl: version 5.16.1 (et non plus 5.16.0) chez Active State.
A+,

Tiens, je ne sais pas si tu connais Strawberry Perl.
 
C'est une distribution de Perl pour Windows dont le but est d'être le plus proche possible du legacy perl Unix.
 
Perso j'utilise ça sur un ordi du boulot qui n'a que Windows, et j'en suis très content.
 
Ce qui est super, c'est qu'ils ont des miroirs du CPAN, et donc tu peux installer tous les modules que tu veux avec un simple perl - MCPAN -e "install Foo::Bar" en ligne de commande, comme sous linux.
 
http://strawberryperl.com/

 
A+,

my bad
 
suis très content de strawberry en tout cas, même pour gérer les innombrables dépendances de BioPerl, ça tourne comme sous linux

Un truc que j'ai trouvé sur perlmonk:
Si on a un texte multiligne (par exemple contenant une page web en retour d'une requête), et qu'on veut le transformer en liste de lignes, il serait logique de faire:
my @lines = split /\n/, $text;
mais ce faisant, on perd les \n en fin de ligne.
Pour les conserver, il suffit de faire:
my @lines = split /^/, $text;
 
C'est une 'feature' de split: /^/ y est équivalent à /^/m (ça ne marche pas pour un $).
En mode multiligne /.../m, ^ désigne la position après un \n et $ la position avant (en plus de leurs valeurs de début et fin de champ, qui n'ont pas d'intérêt pour split).
 
A+,

Une newsletter hebdomadaire que je trouve intéressante : http://perlweekly.com/
 
Dernière publication : http://perlweekly.com/archive/67.html

Une bonne lecture à tous ceux qui aiment les challenges en Perl: Perlgolf History
Un livre qui pose les problèmes et solutions des concours de code perl minimal en nombre de caractères pour résoudre un problème.
Les concours existent encore sur Anarchy Golf et Code Golf.
 
Note: C'est en comprenant cette réponse minimale au problème FizzBuzz (lister tous les nombres de 1 à 100 en imprimant Fizz s'il est divisible par 3, Buzz s'il est divisible par 5 et FizzBuzz s'il est divisible par 15) print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..100 que je suis tombé sur ce livre et les sites de concours.
[j'en étais resté à print$_%3?$_%5?$_:Buzz:$_%5?Fizz:FizzBuzz,$/for 1..100 pour ce problème, soit 6 caractères de plus]
 
le + de print+(....) indique à print que la parenthèse n'est pas le celle du début d'une liste d'arguments.
(Fizz)[$_%3] c'est particulièrement élégant: (Fizz) est la liste contenant Fizz, et selon que $_ est divisible par 3 ou non, on aura (Fizz)[0] soit Fizz, évalué comme "Fizz" pour la concaténation, ou (Fizz)[1] soit rien, qui sera évalué undef pour la concaténation. Bon bien sur, ce code ne passe pas avec les options use strict; ou use warnings;
 
A+,

Perl 5.17.6 releasé. Il consiste surtout en correction de bugs sur certaines regexp, et il y a aussi le changement important (mais en principe transparent à l'utilisateur) suivant:

L'algo de hash interne a lui aussi changé.
A+,

C'est une bonne nouvelle ce random sur l'ordre des clés.
 
De toute façon, je fais quasi tout le temps un sort avant, et j'écris mes propres blocs de sorting selon l'usage que j'en fais.

Tiens, je suis tombé hier sur un concept perl que je ne connaissais pas, le goto &name ou name est le nom d'une subroutine, et qui  
1) sort de la subroutine en cours
2) remplace son appel par celui de la subroutine de nom name avec pour paramètres la valeur de @_ courante lors de la rencontre du goto.
 
Ça permet de faire (entre autres) de la tail récursion sans empilement des appels récursifs, avec ici par exemple pour la fonction factorielle:
 

sub rfac {
  @_ = (@_[0]*@_[1], @_[1]-1);
  return @_[0] unless (@_[1]) ;
  goto &rfac;
}
 
sub fac {
  return @_[0] ? rfac(1, @_[0]) : 1;
}

 
Bon bien sur, une version dérécursivée comme

fac {
  my ($val, $result) = (shift, 1);
  $result *= $val-- while($val);
  return $result ;
}

est 7 à 8 fois plus rapide.  
 
A+,

Très bon interview de Damian Conway sur Perl 5, Perl 6 (annoncé comme enfin releasé pour dans 12 mois) etc ici: http://www.infoq.com/interviews/conway-perl
A+,

Une présentation d'un réformateur qui veut réimplémenter perl sur une base de code plus moderne et utilisable: https://speakerdeck.com/stevan_litt [...] a-dead-end
Pas inintéressant.
A+,

Tiens, je viens de constater que Tk fait partie de la liste des modules supportés par la dernière version de Active Perl (5.16.3).
C'est une bonne chose à savoir, car parfois, seul Tkx est supporté par la version courante d'active perl, et c'est particulièrement lourd de faire le portage du module "à la main".
A+,

Tous les slides de la YAPC::EU 2013
http://act.yapc.eu/ye2013/slides

Tiens, quelques astuces sur lesquelles je suis tombé récemment.
 
Si pour une raison quelconque, on veut incorporer l'évaluation d'une expression à une chaine, une méthode est de déréférer l'appel à sa référence:
my $toto = 5;
print "Son double est: ${\(2 * $toto)} \n";
(Bon évidemment, print "Son double est: ", 2 * $toto, " \n"; est la forme qui s'imposerait ici, mais il y a sans doute des cas ou cette astuce est utile)
 
Une autre: si %hash est un hash, map {$hash{$_}} sort keys %hash; renvoie la liste des valeurs du hash, triées dans l'ordre des clés.  
 
A+,
 

Dans le même genre pour transformer une chaine littérale en chaîne interpolée.

 
Ça peut servir après passage par une bibliothèque renvoyant des chaînes littérales avec les précautions d'usage s'il s'agit de données externes.

Un peu de pub pour le projet de crowdfunding d'un bouquin sur Perl Dancer, super librairie/framework web en Perl : https://www.kickstarter.com/project [...] ncer-book/
 

Tiens, une petite astuce pas (encore) postée ici:
J'ai une liste de clés (donc sans éléments identiques) @keys, une liste de valeurs @values, de même taille que @keys.
Comment créer rapidement un hash %hash tel que $hash{$key[i]} soit $values[i].
On peut bien sur faire une boucle d'assignation, mais il y a plus direct:
@hash{@keys} = @values;
 
C'est particulièrement utile si on lit un fichier CSV de structure fixe, et qu'on veut coller les champs dans un hash:
my @field_names = qw(...);
my %hash;
....
while (<$file_handler> ) {
    @hash{@fields_names} = split /,/;
     ....
}
 
A+,

pas mal, en effet (je parse régulièrement des fichiers csv ou assimilés)

Récemment, j'avais a extraire des infos (des prénoms) d'un fichier en utf8  (du XML) et (pour débugger) je voulais les afficher dans ma console Windows, ce qui donnait des trucs moches pour  les caractères accentués.
Apres avoir un peu ramé, j'ai fini par trouver comment faire et comme c'est pas évident, je poste l'info ici afin que tout le monde en profite:
 

my $cp;
if ($^O eq 'MSWin32') {
    use Win32::Console;
    $cp = Win32::Console::InputCP();
    binmode(STDOUT, ":unix" );
    Win32::Console::OutputCP(65001);
}
 
# Votre code ici
 
if ($^O eq 'MSWin32') {
    Win32::Console::OutputCP($cp);
}

 
A+,