ページ番号に基づいてPDFファイル名を一括変更します。

ページ番号に基づいてPDFファイル名を一括変更します。

PDFファイル形式の論文がたくさんあります(同じフォルダに異なる種類のファイルもあります)。パターンを使って名前を変更したい。

<current file name>[<number of pages>].pdf

しかし、何度も試したところ、最後に重複したページ番号を持つ間違ったファイル名がたくさんありました。例えば、

Madsen - 分類[48][48].pdf

だから私はこう考えました。

  1. すべてのファイル名をクリーンアップし、末尾の括弧に現れる数字をすべて削除します。たとえば、上記のファイルの名前を次のように変更する必要があります。

Madsen-分類.pdf

  1. [<number of pages>]最後に挿入したすべてのファイルの名前を変更します。

[<number of pages>]この情報がないため、PDFファイルから読む必要があります。

答え1

これは元の問題を完全に解決する簡単な方法です。 1行で書くこともできますが、この構文を使用すると読むことができます。

#!/bin/bash
for F in "$@"
do
echo mv "$F" "${F%.pdf}[$(pdfinfo "$F" | awk '/^Pages/{print $NF}')].pdf"
done
$ ls *pdf
aosa-bash.pdf  article.pdf  bash.pdf  bashref.pdf  rose94.pdf
$ find . -name \*.pdf -exec ./pdf.sh {} +
mv ./article.pdf ./article[11].pdf
mv ./bashref.pdf ./bashref[172].pdf
mv ./bash.pdf ./bash[75].pdf
mv ./aosa-bash.pdf ./aosa-bash[14].pdf
mv ./rose94.pdf ./rose94[13].pdf
$

提案された名前の変更に満足している場合は、mvすべてのコマンドをシェルウィンドウに貼り付けるか、スクリプトを変更して簡単echo mvですmv

答え2

名前を変更する必要があるpdfファイルのフォルダに配置できる2つのスクリプトは次のとおりです。

最初はページ番号を追加するために使用され、2番目はページ番号を削除するために使用されます。どちらのスクリプトもインタラクティブです。

  • タイプ入力中断スクリプトを終了し、
  • タイプ入力するファイル別インタラクティブモードに切り替える
  • スクリプトが必要な場合確認なしですべてのPDFファイルを処理し続けます。タイプy入力y入力

file.pdfにページ番号を追加するスクリプト(file.pdf -> file[N].pdf)

#!/bin/bash

IFS='
'
ret="not_ok";

renameinteractively () {
for file in *.pdf ; do 
  # derive number of pages in a pdf document
    npages=`pdfinfo $file | grep Pages | awk -e '{print $2}'`;
  # make up a new filename
    file2=${file%%.pdf}[$npages].pdf;
  # an auxiliary variable
    ret="not_ok";

  # interactive part. Ask to rename or not.
    printf "Rename\n $file to \n $file2 ? (y/n/abort) \n";
    until [ $ret == 'ok' ]; do
  # read your answer and y-for rename, n-skip and abort-to exit
      read ans;
      if [ $ans == "y" ]
      then 
          mv $file $file2;
          ret="ok";
          continue;
      elif [ $ans == "n" ]
      then 
          ret="ok";
          break;
      elif [ $ans == "abort" ]
      then 
          exit;
      else
          printf "Enter 'y', 'n' or 'abort', please! \n\n";
      fi
      done;
  done ;
}

renameallofthem () {
until [ $ret == 'ok' ]; do
      if [ $a == "y" ]
      then 
    for file in *.pdf ; do 
      npages=`pdfinfo $file | grep Pages | awk -e '{print $2}'`;
      mv $file ${file%%.pdf}[$npages].pdf; 
      printf "\nMoved \n"
      echo $file
      printf "to\n"
      echo ${file%%.pdf}[$npages].pdf
    done ;
    ret="ok";
    exit;
      elif [ $a == "n" ]
      then 
    printf "\n\n OK, let's do it interactively!\n\n"
    renameinteractively;
      elif [ $a == "abort" ]
      then 
    exit;
      else
    printf "Enter 'y', 'n' or 'abort', please! \n\n";
      fi;
done;
}

printf "Rename ALL of the .pdf files in current folder? (y/n/abort) \n"
read a
if [ $a == "y" ]
then
      printf "Really??\n\n Do we rename ALL of them? (y/n/abort) \n"
      read a
      renameallofthem;
elif [ $a == "n" ]
then 
  printf "\n\n OK, let's do it interactively!!\n\n"
  renameinteractively;
elif [ $a == "abort" ]
then 
    exit;
else
    printf "Enter 'y', 'n' or 'abort', please! \n\n";
fi

ファイル[N][N]....[N].pdf (file[N][N]....[N].pdf -> file.pdf)からページ番号を削除するスクリプト

#!/bin/bash

IFS='
'
deleteNumbersInteractively () {
for file in `ls *].pdf | grep '\[[0-9]*\]'` ; do 
# an auxiliary variable
  ret="not_ok";
# make up a new filename
  file2=`echo $file | sed -e 's/\[[0-9]\+\]//g' `;
# interactive part. Ask to rename or not.    
  printf "Rename\n $file to \n $file2 ? (y/n/abort) \n";
  until [ $ret == 'ok' ]; do
      read ans;
      if [ $ans == "y" ]
      then 
      mv $file $file2;
      ret="ok";
      continue;
      elif [ $ans == "n" ]
      then 
      ret="ok";
      continue;
      elif [ $ans == "abort" ]
      then 
      exit;
      else
      printf "Enter 'y', 'n' or 'abort', please! \n\n";
      fi
  done;
done;
}
deleteAllTheNumbers () {
until [ $ret == 'ok' ]; do
      if [ $a == "y" ]
      then 
    for file in *.pdf ; do 
      file2=`echo $file | sed -e 's/\[[0-9]\+\]//g' `;
      mv $file $file2; 
      printf "\nMoved \n"
      echo $file
      printf "to\n"
      echo $file2
    done ;
    ret="ok";
    exit;
      elif [ $a == "n" ]
      then 
    printf "\n\n OK, let's do it interactively!\n\n"
    deleteNumbersInteractively;
      elif [ $a == "abort" ]
      then 
    exit;
      else
    printf "Enter 'y', 'n' or 'abort', please! \n\n";
      fi;
done;
}


printf "Delete ALL of the filename[NUMBERS].pdf from files in current folder? (y/n/abort) \n"
read a
if [ $a == "y" ]
then
      printf "Really??\n\n Do we rename ALL of them? (y/n/abort) \n"
      read a
      deleteAllTheNumbers;
elif [ $a == "n" ]
then 
  printf "\n\n OK, let's do it interactively!!\n\n"
  deleteNumbersInteractively;
elif [ $a == "abort" ]
then 
    exit;
else
    printf "Enter 'y', 'n' or 'abort', please! \n\n";
fi

今は大丈夫ですか?

関連情報