Envoyer le fichier sur l'entrée standard, et les données sont stockées dans %data. Ensuite, $data{%A} donne l'auteur, etc. Contrainte: il ne faut pas qu'il y ait de ligne avec le tag %X mais sans donnée.
Pour info, c'est ce que j'ai fait lorsque j'ai utilisé Perl pour la première fois (bon, OK, mon directeur de stage m'a donné cette astuce).
# Re: mv ?
Posté par Matthieu Weber . En réponse au journal mv ?. Évalué à 4.
$/="\n\n";
while(<>) {
%data = split /\n|\ /;
}
Envoyer le fichier sur l'entrée standard, et les données sont stockées dans %data. Ensuite, $data{%A} donne l'auteur, etc. Contrainte: il ne faut pas qu'il y ait de ligne avec le tag %X mais sans donnée.
Pour info, c'est ce que j'ai fait lorsque j'ai utilisé Perl pour la première fois (bon, OK, mon directeur de stage m'a donné cette astuce).
Pour comprendre $/="\n\n", man perlvar.