Chinaunix

标题: 求一个shell程式，请大是帮忙 [打印本页]
作者: godsaidlwq    时间: 2007-04-17 09:22
标题: 求一个shell程式，请大是帮忙
要求：在指定文件夹下把所有文件名都改成大写字母，谢谢
作者: qqeyes    时间: 2007-04-17 09:59
用tr
作者: Edengundam    时间: 2007-04-17 10:02
只改了文件, 改目录是一样的道理

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

[ 本帖最后由 Edengundam 于 2007-4-17 13:02 编辑 ]
作者: Edengundam    时间: 2007-04-17 10:18
给个用awk的...


  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    时间: 2007-04-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，自己写一个
作者: Edengundam    时间: 2007-04-17 10:26
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    时间: 2007-04-17 10:32
熟悉awk 那几个隐藏特性之后，也许能写的简单一些（虽然不知道是不是通用）^_^
啊，那个perl的有点儿像sed，(.*?)(/[^/\n]*)$ 我得看半天还不太明白 >_<
作者: Edengundam    时间: 2007-04-17 10:36
我知道那几个隐藏特性..就是用的少, 没有用灵活...

其实那个就是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    时间: 2007-04-17 10:43
echo "abcdefghijkl" | tr "[:lower:]" "[:upper:]"
cat filename | tr "[:lower:]" "[:upper:]"
作者: doctorjxd    时间: 2007-04-17 11:39
又学到好多awk

再来个sed的

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

[ 本帖最后由 doctorjxd 于 2007-4-17 11:47 编辑 ]
作者: awk就是awp加ak    时间: 2007-04-17 12:58
gsed版
  1. find . -type f |sed 's,\(.*/\)\(.*$\),mv & \1\U\2,' |sh
复制代码
作者: awk就是awp加ak    时间: 2007-04-17 13:03
原帖由 Edengundam 于 2007-4-17 10:36 发表
我知道那几个隐藏特性..就是用的少, 没有用灵活...

其实那个就是s命令, 不过因为perl的正则很强..\U那里指定后面跟随的字符都会转换成为大写..这个特性很方便.
(.*?)尽可能多的匹配(其实可以不用?, ?跟在量词 ...

唔，明白
作者: Edengundam    时间: 2007-04-17 13:07
原帖由 awk就是awp加ak 于 2007-4-17 13:03 发表

唔，明白


呵呵...你去搞了一个gsed...强.......
作者: godsaidlwq    时间: 2007-04-18 09:20
感谢各位大虾，好人啊



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2