🐆 🔠 💎 रे: लिनक्स-फोटोग्राफर की सेवा में कमांड लाइन ⛽️ 🎭 🈷️

हाल ही में एक लेख " लिनक्स फोटोग्राफर की सेवा में कमांड लाइन " प्रकाशित किया गया है , जहां लेखक लिनक्स फोटोग्राफर द्वारा सामना की जाने वाली विभिन्न विशिष्ट समस्याओं को हल करने के बारे में लिखता है, लेकिन वह स्पष्ट रूप से सब कुछ नहीं मानता था।

पहला, या बल्कि, शून्य कार्य, छवियों को कॉपी करना है। ऐसा लगता है कि इसमें कुछ ऐसा नहीं है जो अनुकूलन और स्वचालन के अधीन होगा: आप हमेशा एमसी 5 में एफ 5 दबा सकते हैं या माउस के साथ फ़ाइलों को खींच सकते हैं और ड्रॉप कर सकते हैं या किसी तरह के फोटो मैनेजर का उपयोग कर सकते हैं जैसे डिजीकैम। यह संभव है - लेकिन आवश्यक नहीं: बहुत अधिक अतिरिक्त आंदोलनों। एक linuxoid फ़ोटोग्राफ़र (या बल्कि, एक linuxoid जो कभी-कभी फ़ोटोग्राफ़ी से संबंधित होता है) आमतौर पर केवल मेमोरी कार्ड से फ़ोटो लेने की आवश्यकता होती है, ध्यान से उन्हें हार्ड ड्राइव पर रख दिया जाता है, उदाहरण के लिए, शूटिंग के समय और, यदि अतिरिक्त आंख से जलन होती है, तो उन्हें हटा दें।

एक अन्य कार्य जो टिप्पणियों में उल्लेख किया गया था वह फोटो और उनके हस्ताक्षर की बैच में कमी है। इनमें से एक तरीका है ImageMagick का उपयोग करना, जिसमें विभिन्न इंटरफेस उपलब्ध हैं: दोनों कमांड लाइन इंटरफ़ेस (कन्वर्ट, मोग्रिफ़, मॉन्टेज प्रोग्राम) और विभिन्न प्रोग्रामिंग भाषाओं के लिए एपीआई। मोती के मामले में, छवि :: Magick मॉड्यूल। ImageMagick आपको फोटो को कम करने और हस्ताक्षर करने की अनुमति देगा।

मैंने ऐसे कार्यों को निम्न प्रकार से स्वचालित किया:

तस्वीरें स्थानांतरित करें:

#!/usr/bin/perl -wl use strict; use File::Find; use File::Path qw(make_path); use File::Copy; use Image::ExifTool qw(:Public); # You can change these variables my $PATH_SRC = '/media/NIKON/DCIM'; # path to memory card my $PATH_DST = $ENV{'HOME'} . '/photo'; # path to destination. Don't use ~ for your homedir my $PRECISION = 2; # 0 for year .. 5 for second my $MODE = 0644; # for chmod # Don't touch the rest of file find( \&wanted, $PATH_SRC ); sub wanted { return unless /\.jpg/i; my $new_name = lc $_; $new_name =~ s/^\D+//; my $info = ImageInfo( $File::Find::name ); my @date = split /\D+/, $info->{'DateTimeOriginal'}; $#date = $PRECISION; my $new_dir = join '/', $PATH_DST, @date; make_path $new_dir unless -d $new_dir; my $new_path = "$new_dir/$new_name"; -d $new_dir and move $File::Find::name, $new_path and chmod $MODE, $new_path and print "$File::Find::name => $new_path"; } # sub wanted

कटौती और हस्ताक्षर:

 #!/usr/bin/perl -w use strict; use Image::ExifTool ':Public'; use Image::Magick; use Getopt::Long; # Constants my %preferred_fonts = ( 'date' => [ qw/ DejaVuSans DejaVu-Sans Bitstream-Vera-Sans BitstreamVeraSans Verdana / ], # Normal width 'name' => [ qw/ DejaVuSansC DejaVu-Sans-Condensed Tahoma / ], # Narrow 'site' => [ qw/ DejaVuSansB BitstreamVeraSansB VerdanaB TahomaB / ], # Bold ); my $color = '#fff2'; my $gap = 10; my $name = (getpwuid $>)[6]; $name =~ s/,+$//; my $prefix = 'small.'; my $site = 'your-site.ru'; my $size = '50%'; # Override with options GetOptions( 'color:s' => \$color, 'gap:i' => \$gap, 'name:s' => \$name, 'prefix:s' => \$prefix, 'site:s' => \$site, 'size:s' => \$size, ); # Try to find suitable fonts my $image = new Image::Magick; my @available_fonts = $image->QueryFont(); my ( %seen, %fonts ); map { $seen{$_} = 1 } @available_fonts; while ( my ( $scope, $list ) = each %preferred_fonts ) { foreach ( @$list ) { $fonts{ $scope } = $_ and last if $seen{$_}; } # foreach } # while foreach my $file ( @ARGV ) { my $info = ImageInfo($file, 'CreateDate'); my $date = $$info{'CreateDate'}; my $new_file_name = $file; $new_file_name =~ s{([^/]+)$}{$prefix$1}; $date =~ s/^(\d{4}):(\d{2}):(\d{2}).*/$3.$2.$1/; my $p = new Image::Magick or next; $p->Read( $file ); $p->AutoOrient; $p->Resize( 'geometry' => $size, 'filter' => 'Lanczos', 'blur' => 0.5, ); my ( $width, $height ) = $p->Get('width', 'height'); my ( $x, $y ) = ( $width - $gap, $height - $gap ); $p->Set( 'pointsize' => 12, 'fill' => $color, ); $p->Annotate( 'font' => $fonts{'name'}, 'text' => $name, 'rotate' => -90, 'x' => $x, 'y' => $y, ); $y -= ( $p->QueryFontMetrics( 'font' => $fonts{'name'}, 'text' => $name, ) )[4] + $gap; $p->Annotate( 'font' => $fonts{'site'}, 'text' => $site, 'rotate' => -90, 'x' => $x, 'y' => $y, ); $y -= ( $p->QueryFontMetrics( 'font' => $fonts{'site'}, 'text' => $site, ) )[4] + $gap; $p->Annotate( 'font' => $fonts{'date'}, 'text' => $date, 'rotate' => -90, 'x' => $x, 'y' => $y, ); $p->Sharpen( 'radius' => 1, 'sigma' => 2, ); $p->Write($new_file_name); print "$file - $date\n"; } # foreach

उनके लिए तैयार स्क्रिप्ट और प्रलेखन github.com पर पोस्ट किए गए हैं:

रे: लिनक्स-फोटोग्राफर की सेवा में कमांड लाइन

More articles: