请问如何在拷贝的时候创建文件夹

用perl可能看上去更顺眼更像c
if(!-d dir){
mkdir dir;
}      
from=readme
to=/mydir/readme.txt

mkdir -p `dirname "$to"`
cp "$from" "$to"