求一个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 发表
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 发表
熟悉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 编辑 ]