通过模式匹配移动文件夹中的文件

Question

我有250个文件名为：

xxxx_xx_S1_xx_L001_x.pdf
xxxx_xx_S2_xx_L002_x.pdf
xxxx_xx_S3_x_L002_xx.pdf
xxx_xx_S9_x_L002_xxxxx.pdf

以及名为S1，S2，S3，S9的文件夹列表

我想根据S *移动相应文件夹中的文件 那是唯一的标识符。

我想到了这样的东西：

find . -name "*S*.pdf" | \
     while read filename
     do
     directory=${filename%.pdf}
     mv "$filename" "$directory"/"$filename"
     done

但是不幸的是文件仍然存在，文件夹为空。