On 26/07/2009, Graydon <[email protected]> wrote: > [1] Just in case anyone might want it: > > #!/usr/bin/perl -w > # > # deliver us from evil > use warnings; > use strict; > > use Tie::File; > > my $shots = "/home/graydon/photo/K20D/2009/lengths"; > my $focal = "/home/graydon/photo/K20D/2009/unique_lengths"; > my $leader = "Focal Length : "; > > tie my @AllShots, 'Tie::File', $shots or die "Could not open file > $shots\n$!\$?\n"; > tie my @lengths, 'Tie::File', $focal or die "Could not open file > $focal\n$!\$?\n"; > > for my $length (@lengths) { > my $uses = grep { /$length/ } @AllShots; > $length =~ s/$leader//; > print $length,":",$uses,"\n"; > }; > > untie @AllShots; > untie @lengths;
or ExposurePlot for windows users, http://www.cpr.demon.nl/prog_plotf.html -- Rob Studdert HURSTVILLE AUSTRALIA Tel +61-2-9554-4110 UTC +10 -- PDML Pentax-Discuss Mail List [email protected] http://pdml.net/mailman/listinfo/pdml_pdml.net to UNSUBSCRIBE from the PDML, please visit the link directly above and follow the directions.
