ファイル名の先頭と末尾の文字パターンを削除します

Question 1

perlのバージョンrename(以前はと呼ばれていたこともあります)をお持ちの場合は、prename正規表現の置換を適用できます。

rename -n 's/^.*?\.(.*?)#.*/$1/' *

正規表現 (RE) を理解していない場合は、学習する価値が大いにあります。

s/xx/yy/-xxと置換するyy
^- 暗黙の行頭に一致
.*?- できるだけ短い文字列に一致0文字以上の任意の文字残りのパターンマッチングに従う
\.- ドット文字に一致します.（.文字は何でも、\.文字通りのドットです）
(... は)括弧内のパターンと一致し、一致番号 1..9 を割り当てます。後で参照されます$1(2 番目の(...は、など)になります)。$2
#- 文字そのもの
.*- 最も長い試合は0文字以上の任意の文字（.は何でも（*前項の0以上を意味する）

-n満足したら（「何もしない」）を削除してくださいだろう動作します。-v実際に何が起こっているかを確認するには、これをに置き換えてください。サイレント操作の場合は省略してください。

Answer

perlのバージョンrename(以前はと呼ばれていたこともあります)をお持ちの場合は、prename正規表現の置換を適用できます。

rename -n 's/^.*?\.(.*?)#.*/$1/' *

正規表現 (RE) を理解していない場合は、学習する価値が大いにあります。

s/xx/yy/-xxと置換するyy
^- 暗黙の行頭に一致
.*?- できるだけ短い文字列に一致0文字以上の任意の文字残りのパターンマッチングに従う
\.- ドット文字に一致します.（.文字は何でも、\.文字通りのドットです）
(... は)括弧内のパターンと一致し、一致番号 1..9 を割り当てます。後で参照されます$1(2 番目の(...は、など)になります)。$2
#- 文字そのもの
.*- 最も長い試合は0文字以上の任意の文字（.は何でも（*前項の0以上を意味する）

-n満足したら（「何もしない」）を削除してくださいだろう動作します。-v実際に何が起こっているかを確認するには、これをに置き換えてください。サイレント操作の場合は省略してください。

Question 2

awkこのタスクを実行するスクリプトは次のとおりです。

印刷/デバッグのみ:

awk 'match($0,/(^[^\\.]+.)([^#]+)/,m){print "mv "$0" "m[2] }' input.txt

名前を変更します:

awk 'match($0,/(^[^\\.]+.)([^#]+)/,m){system("mv "$0" "m[2])}' input.txt

入力.txt

p1.uniquenameA#blah_a
p2.uniquenameB#blah_b
p3.uniquenameC#blah_c
p4.uniquenameD#blah_d
p5.uniquenameE#blah_e
p6.uniquenameF#blah_f
p7.uniquenameG#blah_g
p8.uniquenameH#blah_h
p9.uniquenameI#blah_i
p10.uniquenameJ#blah_j

出力

mv p1.uniquenameA#blah_a uniquenameA
mv p2.uniquenameB#blah_b uniquenameB
mv p3.uniquenameC#blah_c uniquenameC
mv p4.uniquenameD#blah_d uniquenameD
mv p5.uniquenameE#blah_e uniquenameE
mv p6.uniquenameF#blah_f uniquenameF
mv p7.uniquenameG#blah_g uniquenameG
mv p8.uniquenameH#blah_h uniquenameH
mv p9.uniquenameI#blah_i uniquenameI
mv p10.uniquenameJ#blah_j uniquenameJ

Answer