请教： "perl -pi -e"在sh, csh中的问题

thyswallow

想用"perl -pi -e"使用正则表达式匹配并替换文件中的特殊字符，在 sh中工作正常，但是在 csh中，虽然替换成功，但是总是出现一些额外的信息。


Eg, 替换临时文件中的password, 将12345 替换成 xxxx.

1.tmpfile
============================================
isql -Upxedbo -P12345 -SLON_PXE_UAT -DPXE -iCMG22546.sql
============================================

替换后的文件应为：isql -Upxedbo -Pxxxx -SLON_PXE_UAT -DPXE -iCMG22546.sql


2. Script
============================================
#!/bin/csh

grep -i "isql" tmpfile > /dev/null
if ( $status == 0 ) then
        echo "matched"
        `perl -pi -e "s/(.*) -P(.*) (.*)/\1 -Pxxxx \3/" tmpfile`
else
        echo "don't match"
endif
============================================

3. Run
>./testfile2
matched
/usr/openwin/bin/: Permission denied
>


4. Problem
运行后, tmpfile文件中的12345被正确替换成了xxxx, 但是出现
/usr/openwin/bin/: Permission denied。

如果使用#!/bin/sh，就不会出现这样的信息。
而且在不同的机器上运行，有时会出现不同的信息。
/usr/local/bin/: Permission denied

觉得很蹊跷，请指点。

jason680

想用"perl -pi -e"使用正则表达式匹配并替换文件中的特殊字符，在 sh中工作正常，但是在 csh中，虽然替换成 ...
thyswallow 发表于 2011-01-05 23:25

`perl -pi -e "s/(.*) -P(.*) (.*)/\1 -Pxxxx \3/" tmpfile`

改成
`perl -pi -e 's/\-P(\S+)/-Pxxxx/' tmpfile`

thyswallow

回复 2# jason680


    谢谢jason680。
   还是有同样的信息。

   >./testfile2
       matched
      /usr/openwin/bin/: Permission denied

ly5066113

echo $PATH
看看，是不是里面有 /usr/openwin/bin/ 这个路径，有的话去掉应该就可以了。

jason680

回复  jason680


    谢谢jason680。
   还是有同样的信息。

   >./testfile2
       matched
  ...
thyswallow 发表于 2011-01-06 04:45

isql 最好加绝对路径
ex: /usr/bin/isql
用which isql就知道在那....

thyswallow

回复 5# ly5066113


   请问为什么要去掉呢?
   我在另外一台机器上运行时: 出现信息
  
  /usr/local/bin/: Permission denied

   不能把所有出现信息的PATH都去掉吧？
  
  而且，#!/bin/sh就没有任何问题。

thyswallow

回复 6# jason680


    如果isql是放在tmpfile中需要的执行的话，是需要绝对路径的。
   但是，我只是将tmpfile文件当作文本文件将password进行替换，绝对路径是没有必要的吧？
   
   即便试了在tmpfile文件中删除isql,不做 “grep”判断就对password进行替换，还是会出现
   /usr/local/bin/: Permission denied

jason680

回复  jason680


    如果isql是放在tmpfile中需要的执行的话，是需要绝对路径的。
   但是，我只是将 ...
thyswallow 发表于 2011-01-06 22:47

沒有人說是perl的問題....

為什麼不用set -x看一下,就知道問題在那!!??....

thyswallow

回复 9# jason680


    谢谢你的回复！

   我已经将script改为两行。如果#!/bin/csh就会出现多余的信息，如果#!/bin/sh 或者 #!/bin/bash就没有问题。

    请问我如何用set -x进行调试？还请详示，不吝指教。 多谢！

   
    #!/bin/csh
     `perl -pi -e "s/(.*) -P(.*) (.*)/\1 -Pxxxx \3/" tmpfile`