好久沒用的 Perl script – 反轉檔名

剛沖好熱騰騰的底片

今天去拿了幾卷沖掃好的底片回來,果然又有幾卷被掃錯了方向,也就是說應該由前往後掃的,卻被由後往前掃,當然在 Lightroom 裡,只要在檢視裡把依檔名排序改成降冪就可以解決顯示順序的問題,但如果是從資料夾裡直接看,順序不對看得就很痛苦,好久以前就有這樣的困擾,所以用 Perl 寫了一個 script,可以把檔名編號反轉。例如:

錯誤的順序: 76320001.jpg 76320002.jpg 76320003.jpg 76320004.jpg
              ↓            ↓            ↓            ↓
正確的順序: 76320004.jpg 76320003.jpg 76320002.jpg 76320001.jpg

看了一下檔案最後編輯的日期是 2011-5-28,已經是快六年前的事了,因為也好久沒有沖掃底片了,有點忘了上次執行它是什麼時候,但沒想到這個 script 還可以正常運作,系統可能都更新好幾次了,也是讓我有點訝異的地方,為了怕以後電腦重灌還是資料不見之類的,放一份到 Gist 上,順便做個記錄。

話說我現在根本完全看不懂 Perl 究竟是在寫什麼鬼了啊! XD

Picasa 才是吃掉 EXIF 的元兇

用 Picasa 匯出的照片,Exif 裡的 Lens data 被吃掉了!

其實這個結論下的蠻奇怪的,不過起碼今天實驗起來的結果是如此。

開始用自己寫的 flickr uploader 傳照片後,陸陸續續會幫它加新功能,例如自動修改 caption、自動標 tag、抓 GPS 資料 …… 買了 DSLR 之後,開始會去注意每張照片裡的一些拍攝環境數值,例如 aperture, shutter, focal length … 某一次意外發現原來相機型號和鏡頭也是會紀錄在裡頭,便開始把這個資料也讀出來處理。 Read more