Si on met ceci à la fin en commentaire:
Code :
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:
Citation :
Writing 'cs4/tmp_layers.xpm'...
Writing 'cs4/session_main.xpm'...
Writing 'cs4/session_open.xpm'...
Writing 'cs4/session_saveas.xpm'...
Writing 'cs4/session_new.xpm'...
Writing 'cs4/session_exist.xpm'...
Writing 'cs4/edit1.xpm'...
Writing 'cs4/edit2.xpm'...
Writing 'cs4/edit3.xpm'...
Writing 'cs4/edit4.xpm'...
Writing 'cs4/edit5.xpm'...
Writing 'cs4/edit6.xpm'...
Writing 'cs4/edit7.xpm'...
Writing 'cs4/edit8.xpm'...
Writing 'cs4/edit9.xpm'...
Writing 'cs4/edit10.xpm'...
Writing 'cs4/edit11.xpm'...
Writing 'cs4/edit12.xpm'...
Writing 'cs4/edit_d1.xpm'...
Writing 'cs4/edit_d2.xpm'...
Writing 'cs4/edit_d3.xpm'...
Writing 'cs4/trksel1.xpm'...
Writing 'cs4/parsel1.xpm'...
Writing 'cs4/trgsel1.xpm'...
Writing 'cs4/stepsel1.xpm'...
Writing 'cs4/trkevent1.xpm'...
Writing 'cs4/trkevent2.xpm'...
Writing 'cs4/trkevent3.xpm'...
Writing 'cs4/trkevent4.xpm'...
Writing 'cs4/trkevent5.xpm'...
Writing 'cs4/trkmode1.xpm'...
Writing 'cs4/trkdir1.xpm'...
Writing 'cs4/trkdir2.xpm'...
Writing 'cs4/trkdiv1.xpm'...
Writing 'cs4/trklen1.xpm'...
Writing 'cs4/trktran1.xpm'...
Writing 'cs4/trkgrv1.xpm'...
Writing 'cs4/trkgrv2.xpm'...
Writing 'cs4/trgasg1.xpm'...
Writing 'cs4/manualtrg1.xpm'...
Writing 'cs4/trkmorph1.xpm'...
Writing 'cs4/bpm1.xpm'...
Writing 'cs4/bpm2.xpm'...
Writing 'cs4/save1.xpm'...
Writing 'cs4/save2.xpm'...
Writing 'cs4/save3.xpm'...
Writing 'cs4/metronome1.xpm'...
Writing 'cs4/midi1.xpm'...
Writing 'cs4/midi2.xpm'...
Writing 'cs4/midi3.xpm'...
Writing 'cs4/midi4.xpm'...
Writing 'cs4/midi4_usb4.xpm'...
Writing 'cs4/midi5.xpm'...
Writing 'cs4/midi6.xpm'...
Writing 'cs4/record1.xpm'...
Writing 'cs4/util1.xpm'...
Writing 'cs4/mixer1.xpm'...
Writing 'cs4/mixer2.xpm'...
Writing 'cs4/opt1.xpm'...
Writing 'cs4/trkrnd1.xpm'...
Writing 'cs4/mute1.xpm'...
Writing 'cs4/mute2.xpm'...
Writing 'cs4/pattern1.xpm'...
Writing 'cs4/song1.xpm'...
Writing 'cs4/song2.xpm'...
Writing 'cs4/mute_01.xpm'...
Writing 'cs4/mute_02.xpm'...
Writing 'cs4/mute_03.xpm'...
Writing 'cs4/disk1.xpm'...
Writing 'cs4/disk_i1.xpm'...
Writing 'cs4/disk_p1.xpm'...
Writing 'cs4/disk_e1.xpm'...
Writing 'cs4/disk_e2.xpm'...
Writing 'cs4/disk_e3.xpm'...
Writing 'cs4/disk_e4.xpm'...
Writing 'cs4/pmute1.xpm'...
Writing 'cs4/fx_menu.xpm'...
Writing 'cs4/fx_echo.xpm'...
Writing 'cs4/fx_humanizer.xpm'...
Writing 'cs4/fx_limiter.xpm'...
Writing 'cs4/fx_lfo.xpm'...
Writing 'cs4/fx_loop.xpm'...
Writing 'cs4/fx_scale.xpm'...
Writing 'cs4/eth1.xpm'...
Writing 'cs4/cv1.xpm'...
|
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+,
---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --