j'ai jeté un coup d'oeil rapide et je vais tester un peu plus.
mais ... une première critique :)
pour distribuer le code c'est mieux d'avoir un dossier dans le tgz, sinon lorsqu'on extrait on se retrouve avec tous les fichiers dans notre tmp.
Donc
tar jcvf pig-2.5.tar.bz2 pig-2.5/
plutot que
tar jcvf pig-2.5.tar.bz2 *
en rab, quelques morceaux de code qui trainaient sur mon dur pour ce type de projet :)
---
@res=`ffmpeg -y -t 00:00:00.01 -i "$file" -f singlejpeg tmpthumb.jpg 2>&1`;
print "$res[1]" if ($res[1]=~/Video|Audio/g);
print "$res[2]" if ($res[2]=~/Video|Audio/g);
for (my $i=0;$i<10;$i++) {
$cercle.="roundRectangle ".(10*$i+2).",2 ".(10*$i+5).",6 1,1 ";
}
for (my $i=0;$i<10;$i++) {
$cercle.="roundRectangle ".(10*$i+2).",69 ".(10*$i+5).",73 1,1 ";
}
my $rectangle="rectangle 0,0 215,8 rectangle 0,67 215,75";
system("convert -draw '$rectangle' -fill white -draw '$cercle' tmpthumbnew.jpg thumb_$thumb_name.jpg");
# quelques propositions
Posté par Yves Agostini . En réponse au journal album web (Pig 2.5). Évalué à 4.
j'ai jeté un coup d'oeil rapide et je vais tester un peu plus.
mais ... une première critique :)
pour distribuer le code c'est mieux d'avoir un dossier dans le tgz, sinon lorsqu'on extrait on se retrouve avec tous les fichiers dans notre tmp.
Donc
tar jcvf pig-2.5.tar.bz2 pig-2.5/
plutot que
tar jcvf pig-2.5.tar.bz2 *
et un petit lien pour le prochain script perl :
http://www.crium.univ-metz.fr/docs/devel/cleanperl/(...)
en rab, quelques morceaux de code qui trainaient sur mon dur pour ce type de projet :)
---
@res=`ffmpeg -y -t 00:00:00.01 -i "$file" -f singlejpeg tmpthumb.jpg 2>&1`;
print "$res[1]" if ($res[1]=~/Video|Audio/g);
print "$res[2]" if ($res[2]=~/Video|Audio/g);
for (my $i=0;$i<10;$i++) {
$cercle.="roundRectangle ".(10*$i+2).",2 ".(10*$i+5).",6 1,1 ";
}
for (my $i=0;$i<10;$i++) {
$cercle.="roundRectangle ".(10*$i+2).",69 ".(10*$i+5).",73 1,1 ";
}
my $rectangle="rectangle 0,0 215,8 rectangle 0,67 215,75";
system("convert -draw '$rectangle' -fill white -draw '$cercle' tmpthumbnew.jpg thumb_$thumb_name.jpg");