Document ID: /fineweb-2-swissfilter-quality_10-filterrobots/filtered/07023.jsonl.gz/17

Créer une fonction Perl
Préparation
Téléchargez le projet projet-perl.zip. Ce projet contient:
- image.c et image.h, pour lire et écrire des images
- traitement.c, avec un algorithme de traitement exemple
- projet.pl, un script Perl qui appelle le code C
- 1570970041.jpg, une image exemple
Le projet a été préparé pour Linux, mais il peut être adapté pour Windows et Mac OS en ajoutant les bibliothèques libpng et libjpeg.
Insérer l'algorithme de traitement
Insérez votre algorithme dans la fonction
traiterImage de traitement.c. Vu que le projet n'est plus lancé comme programme, il n'y a plus de fonction
main.
L'algorithme exemple retourne deux valeurs (
cielBleu et
nuit). Pour adapter cela, il faut
- modifier la structure dans traitement.h,
- adapter les dernières lignes de la fonction
projetdans projet.pl.
Alternativement, vous pouvez effacer les fichiers traitement.c et traitement.h, et insérer votre algorithme directement dans la partie C de projet.pl.
Lancer projet.pl
projet.pl contient du code Perl en haut, et le code C en bas. Grace au module Inline::C, chaque fonction C devient accessible depuis le code Perl.
Vous pouvez lancer ce script depuis le terminal:
$$ ./projet.pl
Lors du premier démarrage du script, le code C est compilé, et stocké dans un sous-répertoire
_Inline.
Behind the scenes
Inline::C compile le code C en bas du fichier, et génère l'interface Perl ↔ C nécessaire. Pour cela, il cherche les fonctions comme
traiterImage, et génère le code qui transforme les paramètres Perl en paramètres C, et la valeur de retour C en valeur Perl.
Ceci ne marche que pour les types simples (
int,
double,
char *, ...). Pour les structures, on doit faire cette transformation manuellement et passer une valeur Perl (
SV *,
AV *, ou
HV *). Le dernier bout de code de la fonction
projet crée un Perl hash avec le résultat du traitement.