ファイルの並べ替えとコピー

Question 1

ファイルセットに移動します。文字プレフィックスを選択してください。ディレクトリを作成し（必要な場合）、ファイルをそのディレクトリに移動します。

#!/bin/sh
for item in *
do
    if [ -f "$item" ]
    then
        prefix="$(echo "$item" | sed 's/[^A-Z].*//')"
        echo mkdir -p "$prefix"
        echo mv "$item" "$prefix/"
    fi
done

echoプレフィックスを削除するmkdirと、mv満足のいくときに必要に応じて動作します。

Answer

ファイルセットに移動します。文字プレフィックスを選択してください。ディレクトリを作成し（必要な場合）、ファイルをそのディレクトリに移動します。

#!/bin/sh
for item in *
do
    if [ -f "$item" ]
    then
        prefix="$(echo "$item" | sed 's/[^A-Z].*//')"
        echo mkdir -p "$prefix"
        echo mv "$item" "$prefix/"
    fi
done

echoプレフィックスを削除するmkdirと、mv満足のいくときに必要に応じて動作します。

Question 2

使用真珠 renameユーティリティ（一部のLinuxディストリビューションではprenameとも呼ばれるfile-rename）perl-rename：

rename  -n  'if (m/^(\w{1,2}?)(\d{2,}_.*)/) {mkdir $1; $_ = "$1/$1$2"}' *

注: これはうまくいきますただPerl ベースの名前変更ユーティリティを使用します。rename -V（orprename -Vまたはor）を実行してインストールするかどうかfile-rename -Vを確認できますperl-rename -V。 perlまたはこれが言及されている場合、File::RenameこれはPerlのバージョンですrename。そうでなければ完全に異なる可能性がrenameありますutil-linux互換性がない機能とコマンドラインオプション。これはいいえutil-linuxの名前変更（または別のバージョンの名前変更 - it）を使用してください。必要パールの名前を変更する）

これは、一致する各ファイル名（欲張りではない一致）の最初の1つまたは2つの「単語」文字をディレクトリとして使用し、ディレクトリを作成し、ファイル名をディレクトリに置き換えます。「単語」文字（\w）は次のように定義されますman perlre。

「単語」文字の一致（英数字と「_」、その他の接続句読点とUnicodeマーカー）

これが望ましくない場合は、アルファベット文字や大文字のみを使用する[[:alpha:]]{1,2}?代わりにパターンを最適化できます。\w{1,2}?[[:upper:]]{1,2}

この\d番号。許可したい場合どの下線の前に文字を使用してください\w。または、[[:alnum:]]アルファベットと数字のみを許可するには、を使用します。

パターン全体と一致しないファイル名は影響を受けません。

注：-nオプションを使用すると、練習実行タスクが実行されます。内容のみが表示されます会議していますが、実際にはしません。要件を満たしていると確信している場合は削除します（または詳細な出力に-n置き換えます）。-v

たとえば、次の設定スクリプトがあるとします。

#!/bin/bash

for i in A AA Z9 ZZ  ; do
  for j in {01..10} ; do
    touch "$i${j}_.txt"
  done
done

# anomaly
touch A1001_.txt

$ ./setup.sh
$ ls
A01_.txt  A02_.txt  A03_.txt A04_.txt  A05_.txt  A06_.txt  A07_.txt  A08_.txt
A09_.txt A1001_.txt A10_.txt AA01_.txt AA02_.txt AA03_.txt AA04_.txt AA05_.txt
AA06_.txt AA07_.txt AA08_.txt AA09_.txt AA10_.txt setup.sh* Z901_.txt
Z902_.txt Z903_.txt Z904_.txt Z905_.txt Z906_.txt Z907_.txt Z908_.txt
Z909_.txt Z910_.txt ZZ01_.txt ZZ02_.txt ZZ03_.txt ZZ04_.txt ZZ05_.txt
ZZ06_.txt ZZ07_.txt ZZ08_.txt ZZ09_.txt ZZ10_.txt

Perlの名前変更スクリプトを実行した後：

$ rename 'if (m/^(\w{1,2}?)(\d{2,}_.*)/) {mkdir $1; $_ = "$1/$1$2"}' *
$ ls */*
A/A01_.txt   A/A02_.txt   A/A03_.txt   A/A04_.txt   A/A05_.txt A/A06_.txt
A/A07_.txt   A/A08_.txt   A/A09_.txt   A/A1001_.txt A/A10_.txt AA/AA01_.txt
AA/AA02_.txt AA/AA03_.txt AA/AA04_.txt AA/AA05_.txt AA/AA06_.txt
AA/AA07_.txt AA/AA08_.txt AA/AA09_.txt AA/AA10_.txt Z/Z901_.txt
Z/Z902_.txt  Z/Z903_.txt  Z/Z904_.txt  Z/Z905_.txt  Z/Z906_.txt  Z/Z907_.txt
Z/Z908_.txt  Z/Z909_.txt  Z/Z910_.txt ZZ/ZZ01_.txt ZZ/ZZ02_.txt ZZ/ZZ03_.txt
ZZ/ZZ04_.txt ZZ/ZZ05_.txt ZZ/ZZ06_.txt ZZ/ZZ07_.txt ZZ/ZZ08_.txt
ZZ/ZZ09_.txt ZZ/ZZ10_.txt

Answer