文件夾rename問(wèn)題

肥嘟嘟

有N個(gè)文件夾名如下:
請(qǐng)問(wèn)如何重命名文件夾,文件夾只取前4位數(shù)字

2285_鐝犳搗鍖椾含閰掑簵_3                                           2285
2286_鑻忓窞鑳ュ煄澶у帵_3                                             2286
2287_鑻忓窞甯?jìng)鐜嬫湞鍋囨棩閰掑簵_3                               2287
2288_姝︽眽鍦ｆ窐娌欓厭搴楀叕瀵揰3                               2288
2289_杈藉畞鏀垮崗浼?xì)?_3                                            2289
2290_娌堥槼闆嶄雞閰掑簵_3                                            2290
2291_涓婃搗涓栧拰閰掑簵_3                                            2291

愛(ài)知

for file in *
do
mv "$file" `echo "$file" | grep -o '^[0-9]\{4\}'`
done

ly5066113

原帖由 愛(ài)知 于 2008-8-29 09:56 發(fā)表
for file in *
do
mv "$file" `echo "$file" | grep -o '^[0-9]\{4\}'`
done

mv "$file" "${file%%_*}" 即可

fengyicheng

rename 's/(\d{4}).*/$1/' *

[ 本帖最后由 fengyicheng 于 2008-8-29 10:11 編輯 ]

愛(ài)知

rename 還有這功能！

blackold

原帖由 fengyicheng 于 2008-8-29 10:10 發(fā)表
rename 's/(\d{4}).*/$1/' *

這是什么用法？沒(méi)測(cè)試過(guò)。

ly5066113

原帖由 fengyicheng 于 2008-8-29 10:10 發(fā)表
rename 's/(\d{4}).*/$1/' *

哪個(gè)版本的rename呀？不會(huì)是用perl自己寫(xiě)的吧？

fengyicheng

原帖由 ly5066113 于 2008-8-29 10:21 發(fā)表


哪個(gè)版本的rename呀？不會(huì)是用perl自己寫(xiě)的吧？

確實(shí)是一個(gè)perl腳本，ubuntu等比較新的系統(tǒng)有帶。與redhat系統(tǒng)的rename不太一樣

0vk0

原帖由 ly5066113 于 2008-8-29 10:01 發(fā)表


mv "$file" "${file%%_*}" 即可

用3樓的方法可以，rename不行

blackold

原來(lái)如此。
很強(qiáng)大！