perl正则中使用变量

askzhigang

1个小时了，没有调试出来，请高手帮吗

我想将当前文本里面的日期全部替换成今天2012-03-13

1. ls | grep ".plog" | while read line
   
2. do
   
3.     #date=`date +%F`
   
4.     cat $line | head -n1 | perl -ni -e '$date=`date +%F`; s/\[\d{4}-\d{2}-\d{2}/\[$date"/e; print'
   
5. done

复制代码

但是替换出来是空的， 郁闷

sjdy521

perl -i -pe
是-p 不是-n

askzhigang

好像与p关系不大，我试过了

sjdy521

回复 3# askzhigang


    你是对的，因为你用-n的时候，末尾又加了print这样子就相当于是-p了。
那应该是s///后半段替换字符串的问题，是不是要用s/\[\d{4}-\d{2}-\d{2}/"[$date"/e
因为加了e选项，会把替换的部分当做表达式计算，然后结果作为替换字符串，但是就表达式来说，你原来写的\[$date就有问题了

ludio333

s/\d{4}-\d{2}-\d{2}/`date +%F`/e

bikong0411

qr变量