Browse Tag

底片

來北部後第一次洗底片

Oct 17, 2018
/
Photography

來北部後第一次洗底片，被照相館的服務流程嚇到了，不僅費用比之前台中高雄低，處理的速度更是快，昨天送去，今天上午就通知我可以下載照片了，沒錯是下載，他們還有自己的雲端，不用燒光碟也不用帶自己的隨身碟去 copy（但為了拿回底片，還是得再跑一趟就是了），沖掃品質也 OK，目前體驗覺得相當不錯，應該會再去光顧。

這批的數量不多（才四卷），滿意的也少（拍得不好，不是沖掃的問題），現在幾乎是要出國，而且還得是自己一個人出國，才有機會拍底片了，而且有了新相機後，數量應該會再持續的下降，防潮箱裡的底片機們，真的快要變成純收藏用了呢！

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

May 06, 2017
/
Programming

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

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

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

	#!/usr/bin/perl -w
	use File::Copy;
	use utf8;
	use strict;

	my $usage = "Usage: $0 from to.";
	if (not defined $ARGV[0] or not defined $ARGV[1]) {
	die "$usage\n";
	}

	my $from_no = $ARGV[0];
	my $to_no = $ARGV[1];
	if ($from_no !~ /^\d+$/ or $to_no !~ /^\d+$/ or $from_no >= $to_no) {
	die "$usage\n";
	}
	my $len = (length $from_no > length $to_no ? length $from_no : length $to_no);
	if ($len < 2) { $len = 2; }
	my $pattern = '%0'.$len.'d';

	my @files = <*>;
	@files = sort @files;

	my $range_pat;
	for my $ii ($from_no .. $to_no) {
	$range_pat .= (sprintf '%0'.$len.'d', $ii).'\|';
	}
	chop $range_pat;

	@files = grep {m/.?($range_pat)\.jpg/i} @files;

	my $i = 0;
	my @files2;
	for my $f (@files) {
	my $rep = sprintf "%0".$len."d_", $to_no - ($i++);
	$f =~ m/^(.*)(\d{$len})(\.jpg)$/i;
	my $new_f = $1.$rep.$3;
	push @files2, $new_f;
	move($f, $new_f) \|\| die "move: $!";
	}

	$i = 0;
	for my $f (@files2) {
	#my $rep = sprintf "%0".$len."d", $from_no + ($i++);
	$f =~ m/^(.*)(\d{$len})_(\.jpg)$/i;
	my $new_f = $1.$2.$3;
	move($f, $new_f) \|\| die "move: $!";
	}