Question

在Perl脚本语言下，如何修改文件内容？

把D:\Circuit.txt文件中的所有的add字符改写为subtract字符、所有的数字10改成28
领教了。谢谢。

open FILE1,"a.txt" ; @new=<FILE1>;
foreach $kill(@new) {$kill=~s/10/28/g;} close FILE1;

open FILE2,">a.txt" ; print FILE2 @new; close FILE2;
实际运行几次这个程序，确实是正确的。

Answer 1

你这问题问的不清楚， 你给的例子里面也只处理了10转28， 而且目前你这个写法, 110 也会被转化为128, 最重要的是，你这代码完全不能修改你的文件， 因为你 foreach $kill(@new)   {$kill=~s/10/28/g;} 这个只是对临时变量$kill处理了。 完全没有对@new改动，所以再把new的内容写到FILE2没有意义。

open FILE1,"a.txt" ;    
my @new=<FILE1>;
my $result = join '', @new;
$result =~ s/10/28/gis;
close FILE1;

open FILE2,">a.txt" ;  
print  FILE2 $result;
close FILE2;

测试了一下28替换10的，源文件内容：

# 102319482311010101a

# 11210948231a

# 112119482310b

执行之后，同一文件内容改变为：

# 282319482312828281a

# 11228948231a

# 112119482328b

你看看是不是能解答你的问题

追问

怎么用perl脚本启动应用程序呢？
比如启动C:\Program Files\Kugou2012\Kugou.exe

追答

system("C:\\Program Files\\Kugou2012\\Kugou.exe");
or
system("C:/Program Files/Kugou2012/Kugou.exe");

追问

猜测你也会用C/C++喽，就问一下，如果只用C语言实现各种算法，是不是得深入理解数据结构？

追答

那要看你的要求是什么, 要实现什么算法, 你懂数据结构自然是更好, 我身边也有很多人是, 到了要写的时候, 才去查资料, 或者网上搜索已有的代码, 虽然是知其然不知其所以然, 但是人家目标一样达到, 代码质量也不见得就差到哪里去(只要他知道该搜索什么, 又该取结果的什么部分), 这样的话, 你也不好非议.

Answer 2

现在这样也可以啊
只要加一行就可以了
foreach $kill(@new) {$kill=~s/10/28/g;$kill=~s/add/subtract/g;}}