求一個shell程式，請大是幫忙

godsaidlwq

要求：在指定文件夾下把所有文件名都改成大寫字母，謝謝

qqeyes

用tr

Edengundam

只改了文件, 改目錄是一樣的道理

1. 
   
2. find . -type f | perl -p -w -e 's:(.*)(/[^/\n]*)$:mv $& $1\U$2:'
   

復制代碼

[ 本帖最后由 Edengundam 于 2007-4-17 13:02 編輯 ]

Edengundam

給個用awk的...

1. 
   
2. $ find ../ -type f | awk '{c = split($0, array, "/"); array[c] = toupper(array[c]); printf("mv %s ", $0); for (i = 1; i <= c; i++) if(i != c)printf("%s/", array[i]);else printf("%s\n", array[i])}'
   

復制代碼

awk就是awp加ak

try

1. $ find . -type f |awk -F'/' 'BEGIN { OFS=FS; } { oldName = $0; sub(/.*/, toupper($NF), $NF); printf("mv %s %s\n", oldNa
   
2. me, $0); }'

復制代碼

如果不支持 toupper，自己寫一個

Edengundam

awk兄用fs, rs好熟練...我寫的很冗余...

不過perl的正則表達式確實很好用....

原帖由 awk就是awp加ak 于 2007-4-17 10:19 發(fā)表
try

1. $ find . -type f |awk -F'/' 'BEGIN { OFS=FS; } { oldName = $0; sub(/.*/, toupper($NF), $NF); printf("mv %s %s\n", oldNa
   
2. me, $0); }'

復制代碼

如果不支持 toupper，自己寫一個

awk就是awp加ak

熟悉awk 那幾個隱藏特性之后，也許能寫的簡單一些（雖然不知道是不是通用）^_^
啊，那個perl的有點兒像sed，(.*?)(/[^/\n]*)$ 我得看半天還不太明白 >_<

Edengundam

我知道那幾個隱藏特性..就是用的少, 沒有用靈活...

其實那個就是s命令, 不過因為perl的正則很強..\U那里指定后面跟隨的字符都會轉換成為大寫..這個特性很方便.
(.*?)盡可能多的匹配(其實可以不用?, ?跟在量詞表示非貪婪的).
(/[^/n]*)$. 這個就是說/后面跟著0到任意個不是/和換行的字符. 放在group 1中.
后面就$&就是和sed的&一個功能, $1就是\1那個....^^

perl的[]里面支持轉義, 因為perl里面可以匹配\n.  所以我把那個\n廢掉了.

原帖由 awk就是awp加ak 于 2007-4-17 10:32 發(fā)表
熟悉awk 那幾個隱藏特性之后，也許能寫的簡單一些（雖然不知道是不是通用）^_^
啊，那個perl的有點兒像sed，(.*?)(/[^/\n]*)$ 我得看半天還不太明白 >_<

[ 本帖最后由 Edengundam 于 2007-4-17 10:39 編輯 ]

rdcwayx

echo "abcdefghijkl" | tr "[:lower:]" "[:upper:]"
cat filename | tr "[:lower:]" "[:upper:]"

doctorjxd

又學到好多awk

再來個sed的

1. 
   
2. ls -p | sed -n '/\/$/!{h;y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/;H;g;s/\(.*\)\n\(.*\)$/mv \1 \2/;p;}' | sh
   

復制代碼

[ 本帖最后由 doctorjxd 于 2007-4-17 11:47 編輯 ]