大家好，麻烦大家帮我看看，我的程序是哪里写错了呢？

是这样，我在自学小骆驼书时候，想把perl饼的程序搞清楚，就开始自己写。
我的目标文件存放在xixi/perl/test里
里面有test1 test2 test3等一堆文本。
内容就是不定数量的
  monday (
  .one (shoping)
  .two (washing)
  .three (cooking)
  .four (sleep)
  );
想把这个文件夹（/xixi/perl/test）里，所有文件的monday替换成workday
我想不用perl饼，自己写个脚本做批量替换
原来用书上的：$perl  -p -i.bak -w -e 's/monday/workday/g' *
运行结果，我这个文件夹里所有的文件，都很顺利的备份，并替换了。

然后，我想写成程序，就参考了书上给出的等价程序：
#!/usr/bin/perl -w
use strick;
$^I = "*.bak";
while (<>)  {
s/monday/workday/g;
print;
}

可奇怪的是，运行程序后，虽然不显示语法错误，可是一运行，总也结束不了。
好像进入了死循环。
卡在./xxcs1后面了
程序就一直在终端里执行，就是不结束。
用perl饼，一下就好了。
请教下各位高手，我是不是哪里写错了？该怎么改呢？
是不是因为，因为我这个程序也放在这个文件夹下，它把自己也改了？

while (<>)这个是等你的输入阿。。。。。。。
你应该做的是处理文件

use strick;
这个写错了
改为 use strict;

#!/usr/bin/perl -w
use strict;
$^I = "*.bak";
while (<>)  {
s/monday/workday/g;
print;
}

把这段保存为a.pl
然后 perl a.pl *

多谢超人，我立刻回去试