תמונות שחור-לבן

אחד הרעיונות העיצוביים שחשבתי שיהיה נחמד לשלב באתר היה לשים תמונות בשחור-לבן, שכאשר העכבר עובר עליהן הן יהפכו לצבעוניות. בסופו של דבר לא ממש מצאתי איפה באתר זה ישתלב טוב, וכל מקום שניסיתי לשים תמונות כאלה לא הסתדר.
הפוסט הזה אינו על עיצוב אלא על הפיכת התמונות מצבע לשחור לבן. מסתבר שישנן לא מעט דרכים לערוך תמונות באופן אוטומטי. הראשונה שמצאתי היתה שימוש בספריית GD, אבל הקוד יצא מסורבל במקצת. בסוף הלכתי על ImageMagic, ובשילוב עם פרל קצר לסריקת כל קבצי התמונה בתיקייה הגעתי לקוד הבא שעובר על כל קבצי ה png בתיקייה הנוכחית (או בתיקייה שקיבל כפרמטר), הופך אותם לשחור-לבן ושומר עם סיומת חדשה.

 1 use strict;
 2 use warnings;
 3 use Image::Magick;
 4 use File::Basename;
 5 
 6 my $path = '.' || shift;
 7 foreach my $png (glob("$path/*.png")) {
 8   my $basename = fileparse($png, '.png');
 9   my $bw_name  = "$basename-bw.png";
10   my $image    = Image::Magick->new;
11 
12   $image->Read($png);
13   $image->Quantize(colorspace =>'gray');
14   $image->Write($bw_name);
15 }
16