作者cindy1120 (111)
看板Perl
标题[问题] 要加入的字串重覆了
时间Fri Jun 4 00:57:49 2010
最近开始学perl
Learning perl习题的ch9.no5.
写一个程式在里面加上版权宣告## copyright (C) by xx
一定要写在开头的#!perl的下一行
如果已经有版权宣告的档案就不需再更动
以下是我写的...
$in=$ARGV[0];
$^I=".bak";
while(<>){
if(/copyright (C) by me/i){
print "$_";
}
else {
if(/^#!/im){
$_ .= "## copyright (C) by xx\n";
}
print "$_";
}
}
可是如果档案已经有版权宣告
他会再加上一个...
请问这是为什麽会这样?好困惑
谢谢瞜
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.251.200.121
※ 编辑: cindy1120 来自: 111.251.200.121 (06/04 00:58)
1F：推 abliou:建议你把你要修改的档案内容也附一下 06/04 02:20
2F：→ cindy1120:档案只是随便写的...只是乱打一些字还有在第一行写上#! 06/04 13:54
3F：→ cindy1120:第二行是## copyright (C) by xx 06/04 13:54
4F：推 giacch:因为是 while (<>) { 对每一行做什麽动作; } 06/04 14:22