sed能否进行非正则的替换？

dream3401

原帖由 prc 于 2009-3-5 12:36 发表

实际的应用是这样的：
1. 在当前目录及其子目录下搜索所有以$开头的文件
2. 在当前目录及其子目录下的所有文件中查找(1)中出现的文件名，如果找到，将$替换为_
3. 将(1)中所有的文件重命名，$替换为_

find . -type f -name '$*' |while read file;do mv $file ${file/$/_};done

prc

原帖由 dream3401 于 2009-3-5 12:52 发表


find . -type f -name '$*' |while read file;do mv $file ${file/$/_};done

不是仅仅改名那么简单

ly5066113

你的要求不就是改名么？

prc

在改名之前要先对文件的内容进行替换
如果文件的内容包含了(1)中找到的文件名，将$替换为_

ly5066113

那么先把文件名处理一下不就可以了？

tmp=$(echo "$old_file" | sed 's/\$/\\&/g')
sed "s/$tmp/$new/g" $old_file

dream3401

楼主要求是这样的吧：
某个目录下比如mydir
1)找到mydir 下文件名特殊的文件（文件以.,$,^...这类的开头）
2)对找到文件重命名(命名规则是：将. , $ , ^ ....这类开头变成_)
3)找到mydir 下文件扩展名是.sh文件,并对找到的每个.sh文件里内容进行替换，替换规则是：如果.sh里的行含有在1）中找到的特殊文件名（文件名以.,$,^开头），就对其也替换成“_文件名”。如果行不含有1)中找到的特殊文件名，就不替换。

不知道我理解的对吗？看了楼主的代码才有上面的理解， 不过代码看了好久哟！

dream3401

在perl里可以对正则中的元字符用\Q的开关全部关掉，不过在sed里就不知道有没有这样的功能
我写了一个perl 脚本 myshell:
这个脚本运行时要先将所有的特殊文件名保存起来
我是这样做的：

代码放下面了.
供你参考; find当然依你自己的要求找特殊文件。还有重命令我没有写，这个在命令行下应该很好做的。

[ 本帖最后由 dream3401 于 2009-3-5 16:26 编辑 ]

blackold

分开处理就好了。

try:

1. find -name '$*' -execdir echo {} \;|sort -u|sed 's/^.\///;s/.\(.*\)/s\/&\/_\1\/g/' > ../temp$$
   
2. find . -depth -name '$*' -execdir rename "$" "_" {} \;
   
3. grep -Flr '$' .| xargs sed -i -f ../temp$$
   
4. rm ../temp$$

复制代码

[ 本帖最后由 blackold 于 2009-3-5 15:51 编辑 ]

prc

原帖由 dream3401 于 2009-3-5 14:45 发表
楼主要求是这样的吧：
某个目录下比如mydir
1)找到mydir 下文件名特殊的文件（文件以.,$,^...这类的开头）
2)对找到文件重命名(命名规则是：将. , $ , ^ ....这类开头变成_)
3)找到mydir 下文件扩展名是.sh ...

嗯，是的！可能前面没说清楚...

dream3401

1)find . -type f -name "\$*" >file
2)find . -type f -name "*.sh"|xargs ./myshell

Lsir:/tmp# cat myshell

#!/usr/bin/perl -i
use warnings;
use strict;

my(@old,%replace,$oldname,$find);

@old=`cat file`;
chomp(@old);
for(@old){
        substr($_,0,2)='';
        $oldname=$_;
        s{(/?)[^/]([^/]+)$}{$1_$2};
        $replace{$oldname}=$_;
}
while(<>){
        $find=0;
        for $oldname (keys %replace){
                if(/\Q$oldname/){
                        s/\Q$oldname\E/$replace{$oldname}/;
                        print;
                        $find=1;
                        last;
                }
        }
        print unless $find==1;
}