BOnjour à tous,
J'aurais besoin de votre aide pour tenter de faire fonctionner et comprendre un script écrit en perl. Il permet de générer des screenshot d'écrans LCD en .gif. Seulement il doit y avoir des choses à faire passer en arguments dans des fonctions ou bien peut être avoir des bibliothèques, le fait est qu'il me met toujours la même erreur lorsque je l'execute sur mon Mac.
 
Pourriez-vous m'aider ?
voici le code en question :
http://www.ucapps.de/midibox_seq/gen_mbseqv4_screens
 
merci à vous.

Si on met ceci à la fin en commentaire:

if( $convert_gif )
   {
      # system("convert ${output_file}.xpm ${output_file}.gif" ) && die ("convert failed!\n" );
      # system("rm ${output_file}.xpm" );
   }

Ca crée (il faut avoir créé un répertoire cs4 a l'endroit du script) ceci:

system("convert ${output_file}.xpm ${output_file}.gif" )  
c'est un appel a un programme externe, convert. Si il est pas sur la bécane, le programme va pas aller plus loin  (c'est le cas sur mon PC).
Sinon, ça convertit tous les xpm en gif, et ça efface les gifs.
Les gifs obtenus, ça doit être des images utilisées par un programme, et ton script perl les génère toutes d'un coup (ce pourquoi il prend pas de paramètres)
system("rm ${output_file}.xpm" );
montre que le programme est écrit pour un environnement unix/linux vu que rm existe pas sous windows (et mac?).
Le code est de toute façon pas fini, car  if( $convert_gif ) dépend d'un flag $convert_gif qui est pas positionné par le programme et qui a une valeur au hasard (donc pas zéro).
 
A+,

Un des trucs répétitifs de ce code, c'est

init_mb_screen(0);
print_string(0, 0, "texte a ecrire en ligne 1" );
print_string(0, 1, " texte a ecrire en ligne 2" );
write_screen("nom du fichier" );

ca va écrire un fichier XPM contenant les textes donnés.
Donc c'est print_string qui fait le boulot d'écrire ça comme du LCD.
On voit que cette routine écrit lettre a lettre en découpant chaque lettre en 8 segments horizontaux empilés verticalement, et que chaque segment horizontal est constitué de 8 points (défini pour chaque lettre dans init_chars et init_mb_screen, si j'ai bien pigé [bon, j'ai pas été voir en détails])
A+,

Hello et un grand merci !
j'ai fini par généré les .xpm. J'ai fini par trouver commnet générer le .png => http://www.imagemagick.org/script/ [...] php#macosx
j'ai tout mis dans le répertoire cible et ça a fonctionné !
Pour le flag, $convert_gif est semble t-il défini au tout début du programme... je l'ai positionné à 1 pour qu'il passe sur la routine de conversion.
 
Merci encore pour votre aide,
reste plus qu'à digérer tout ça pour faire mes propres screenshots et caractères spéciaux (je ne sais pas encore comment il a défini les caractères).

Autre chose, savez-vous s'il existe un debugger pour exécuter pas à pas un script Perl ? ça m'aiderait à mieux débuter...

Il faut lancer le script sous perl avec l'option -d  (debugger), pour le reste, voir la doc perl.
A+,