好久沒用的 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

2014 美國之旅的一些底片

老實說,這些底片已經洗出來都大半年了,但一直擺在硬碟裡不太想去處理,主要的原因是,不知道為什麼許多卷都是 under exposure,帶了那麼重的設備,花了那麼多的時間,卻拍出這麼多失敗的照片,真的很灰心,但失敗歸失敗,既然花了時間,還是把照片整理出來。

Camera: Fujifilm GF670 Professional

Read more