En perl il est tout à fait possible d'écrire du code lisible; comme dans la majorité des langages.
Ensuite, il se trouve que le perl est généralement garni d'expression régulière; et c'est ces derinères qui peuvent rendre le code difficilement lisible, mais quelque soit le langage, si tu utilise les regexp tu vas facilement rendre du code illisible
tu peux écrire un truc du genre
while ( my $line = ) {
if ( my ( $annee,$mois,$jour,$nom,$prenom ) = ( $ligne =~ /^ddn (\d{4})-(\d{2})-(\d{2}) "(.+?)" "(.+?)"/ ) ) {
# do something
}
}
pour moi c'est parfaitement lisible (oui y a une paire de ( ) en trop, et $line pourrait être viré, et si tu préfère on peut même déclarer les variables avant, ou même ne pas les déclarer du tout, comme en pytyon );
si le code est suffisamment clair, y a pas besoin de comprendre la regexp, si le bug est dans la regexp, quelque soit le langage tu risque de ramer.
Il ne faut pas décorner les boeufs avant d'avoir semé le vent
[^] # Re: Te bile pas
Posté par fearan . En réponse au journal Pourquoi réécrire LinuxFr.org ?. Évalué à 1.
Ensuite, il se trouve que le perl est généralement garni d'expression régulière; et c'est ces derinères qui peuvent rendre le code difficilement lisible, mais quelque soit le langage, si tu utilise les regexp tu vas facilement rendre du code illisible
tu peux écrire un truc du genre
while ( my $line = ) {
if ( my ( $annee,$mois,$jour,$nom,$prenom ) = ( $ligne =~ /^ddn (\d{4})-(\d{2})-(\d{2}) "(.+?)" "(.+?)"/ ) ) {
# do something
}
}
pour moi c'est parfaitement lisible (oui y a une paire de ( ) en trop, et $line pourrait être viré, et si tu préfère on peut même déclarer les variables avant, ou même ne pas les déclarer du tout, comme en pytyon );
si le code est suffisamment clair, y a pas besoin de comprendre la regexp, si le bug est dans la regexp, quelque soit le langage tu risque de ramer.
Il ne faut pas décorner les boeufs avant d'avoir semé le vent