downgrading my camera gear
the journal of Michael Werneburg
twenty-seven years and one million words
I have been doing some camera gear downsizing. I had a Lumix 12-35mm lens that was large and heavy enough that I needed a grip for my camera body, at which point I was carrying around an equivalent bulk/weight to something from Sony's full-frame line-up just for my fun micro-four-thirds clowning around. I get that all of the camera manufacturers are playing the software game for getting the most of their images, these days, but I found that the Panasonic/Lumix lens didn't give me great results on the Olympus body. I really started to notice that I was doing too much clean-up in Photolab. Like, a lot of work on each photo, and that the photos were starting to a have a similar look as a result.
Here is the Linux script in its entirety. Use at your own risk! It searches the folders '2023' and '2024' for any file with the extension 'orf'. Change those values to whatever values you need. Also, you'll need to install the package 'exiftool' suitable for your version of Linux.
#!/usr/bin/perl# tip-toe through the folders looking for raw images
open (IN, 'find 2023 2024 -name "*orf"|');
$count=0;
while (
) { chomp;
$deets=`/usr/local/bin/exiftool $_`; # the location of 'exiftool' may vary on your Linux distribution
if ($deets =~ /Lens Model.*: (.*)n/) {
$model=$1;
}
if ($deets =~ /Focal Length.*: (.*)n/) {
$flength=$1;
}
$models{$model}++;
$flengths{$flength}++;
$inter{$model}{$flength}++;
if ($count && !($count % 100)) {
print "$countr";
}
$count++;
}
print "n"; # get past the progress prints.
# print the results
foreach $model (sort keys %models) {
foreach $flength (sort keys %flengths) {
if ($inter{$model}{$flength}) {
print "$model : $flength : $inter{$model}{$flength}n";
}
}
}