Dropbox形式の写真ファイルネームからCopy形式に

gistfile1.sh

#!/bin/zsh

#photo_list=(`ls -d -b --color=never *.jpg`)

for old_photo in *.(jpg|png|mp4)
do
    new_photo=`echo ${old_photo} | perl -pe "s/[-_.]//g"`
    new_photo=`echo ${new_photo} | perl -pe "s/[ ]/_/g"`
    new_photo=`echo ${new_photo} | perl -pe "s/^/IMG_/g"`
    new_photo=`echo ${new_photo} | perl -pe "s/jpg/.jpg/g"`
    new_photo=`echo ${new_photo} | perl -pe "s/png/.png/g"`
    new_photo=`echo ${new_photo} | perl -pe "s/mp4/.mp4/g"`
    mv ${old_photo} ${new_photo}
done