今天去拿了幾卷沖掃好的底片回來，果然又有幾卷被掃錯了方向，也就是說應該由前往後掃的，卻被由後往前掃，當然在 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