这条替换文本的SHELL为什么没有執行成功？

ken1984

find ./home/myweb/www/ -name 'view1.php' | xargs perl -pi -e 's|and id >= (SELECT floor( RAND() * ((SELECT MAX(id) FROM $database_product_name)-(SELECT MIN(id) FROM $database_product_name)) + (SELECT MIN(id) FROM $database_product_name)))|)|g'

我想把“/home/myweb/www/ ”下的“view1.php” 文件里的内容“and id >= (SELECT floor( RAND() * ((SELECT MAX(id) FROM $database_product_name)-(SELECT MIN(id) FROM $database_product_name)) + (SELECT MIN(id) FROM $database_product_name)))”替换成内容“)”，我执行以后，查看文件源文件，发现并没有被更改到，请问要怎么修改才可以修改到啊；或者有没有其他语句可以达成目标呢？

find ./home/myweb/www/ -name 'view1.php' | xargs perl -pi -e 's|'and id >= (SELECT floor( RAND() * ((SELECT MAX(id) FROM $database_product_name)-(SELECT MIN(id) FROM $database_product_name)) + (SELECT MIN(id) FROM $database_product_name)))'|)|g'

試過加單引號擴起來这样，可是还是不行啊；請各位高手不吝嗇指教。

cxfcxf

全部符号都没转义 这么写...
还有既然用perl了 那就写个perl

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. 
   
8. my @array = glob "*.php";
   
9. 
   
10. 
    
11. foreach (@array) {
    
12.     chomp;
    
13.     rename "$_", "${_}.bak";
    
14.     open (PHP, "${_}.bak");
    
15.     open (NEW, ">${_}");
    
16.     local $/ = "";
    
17.     while (<PHP>) {
    
18.         s/and\ id(.*)?database\_product\_name\)\)\)/\)/g;
    
19.         print NEW $_;
    
20.     }
    
21.     close PHP;
    
22.     close NEW;
    
23. 
    
24. }
    

复制代码

老文件 *.php.bak
新文件 *.php

sed写
find ./ -name "*.php" |xargs -i sed -e "s/and\ id.*\_name)))/)/g" {}

[ 本帖最后由 cxfcxf 于 2009-9-19 10:47 编辑 ]

blackold

应该发到perl版。