☰

Linux: как найти все файлы с одинаковым именем, но разного типа и переместить их

tag-icon • tag-icon linux command-line ls
Linux: как найти все файлы с одинаковым именем, но разного типа и переместить их

У меня есть каталог с сотнями изображений, большинство из которых в формате RAW (заканчиваются на CR2), но некоторые я конвертировал в jpg, поэтому у меня есть и CR2, и JPEG.

Как мне получить все файлы, которые заканчиваются на jpg и cr2, и переместить их в другой каталог?

так что ls *.jpgдаст мне все те, которые заканчиваются на jpg, и оттуда мне нужно найти те, которые заканчиваются на cr2? как мне это сделать? как мне затем переместить их?

решение1

Я бы использовал find(1)для этой задачи:

find . -name '*.jpg' -exec /bin/sh -c 'A=`basename {} .jpg`.cr2 ; test -f $A && mv {} $A /other/dir' \;

решение2

Короткая строка bash будет выглядеть так:

for FILE in `ls *.jpg`; do BF=`basename $FILE .jpg`; 
   if test -e $BF.cr2 ; then mv $BF.jpg $BF.cr2 destdir/; fi; done

решение3

Для этого вам понадобится написать скрипт, лучшим вариантом, вероятно, будет Python или Perl.

Вот скрипт, который я написал на Perl, который делает это (файлы jpeg и raw) и автоматизирует их перемещение в "датированную структуру каталогов" (например, ГГГГ/ММ-месяц/ДД). Он использует библиотеку Image::ExifToolдля извлечения даты фотографии, чтобы знать, куда ее поместить.

Что касается вашего вопроса, вы можете видеть, что он находит все файлы .jpg, вычисляет базовое имя, а затем проверяет наличие соответствующего файла .nef.

#! /usr/bin/perl

$dryrun = 0;
$encode = 1;

use Image::ExifTool;
use Dumpvalue;
my $Dumper = new Dumpvalue();

@Months = qw(00 01-January 02-February 03-March 04-April 05-May 06-June 07-July 08-August 09-September 10-October 11-November 12-December);

$startdir = shift @ARGV;
die "error: no start directory specified\n" unless ($startdir ne "");
foreach $file (split(/\n/,`find "$startdir" -name "*.[Jj][Pp][Gg]" -print | sed -e 's,^\./,,'`)) {
  next if ($file =~ m,(^|/).xvpics/,);

  print STDERR "$file => ";
  my $exif = new Image::ExifTool;
  $info = $exif->ImageInfo($file);
  if (ref($info) != "HASH") {
    print STDERR "error: could not read exif data from '$file' ($@)\n";
    next;
  }

  ($filename) = ($file =~ m,([^/]+)$,);
  #     $Dumper->dumpValue($info);
  #     next;
  #     exit(1);

  $date = $info->{"CreateDate"};
  #print STDERR $date," => ";

  unless (($y,$m,$d,$h,$n,$s) = ($date =~ m/^(\d\d\d\d)\D(\d\d)\D(\d\d)\D+(\d\d)\D(\d\d)\D(\d\d)($|\D)/)) {
    $date = $info->{"FileModifyDate"};
    unless (($y,$m,$d,$h,$n,$s) = ($date =~ m/^(\d\d\d\d)\D(\d\d)\D(\d\d)\D+(\d\d)\D(\d\d)\D(\d\d)($|\D)/)) {
      print STDERR "$file: no date for '$file' (skipped)\n";
      next;
    }
  }

  next if ($file eq "$outdir/$filename");
  system("mkdir","-p",$outdir) unless (-d $outdir || $dryrun);

  print STDERR "$outdir/".$filename;
  rename($file,"$outdir/".$filename) unless $dryrun;

  $jpgfile  = $filename;
  $file     =~ s/\....$/\.nef/;
  $filename =~ s/\....$/\.nef/;
  if (-f $file) {
    print STDERR " ($outdir/$filename)";
    rename($file,"$outdir/".$filename) unless $dryrun;
    chmod(0644, "$outdir/".$jpgfile) unless $dryrun;
  }

  print STDERR "\n";
}

Этонетвысококачественный код. :-) Это хак, который я написал для себя, но он должен послужить разумным примером.

решение4

Измените «move2dir» в этом скрипте (дважды) на то место, где должны находиться файлы, а затем запустите его из каталога, в котором находятся ваши файлы jpg и cr2.

for file in `ls *jpg`
do
  if [ -e ${file/%jpg/cr2} ] 
  then
    cr2file=${file/%jpg/cr2}
    mv $file move2dir/
    mv $cr2file move2dir/
    echo moved $file and $cr2file
  fi
done

Связанный контент