perl 如何对文件每一行进行添加内容

[Lc立强]

比如：
我新建好了一个文件score.txt：\r\n为回车符，
#Maths#\r\n
#Chinese#\r\n
#English#\r\n

我在perl脚本里调一程序，然后就能获取到一个分数和相应的科目，存到下面的变量里，
my $score;
my $subject;
然后根据$subject决定存在score.txt的哪一行后面。我会循环调一程序，每次获取一个分数和科目，直到获取完为止。
就这样，

我期望的是，添加完之后为：
#Maths#99#89#.....
#Chinese#80#70#...
#English#77#88#...

求大神指导。

[bugs2k]

有几种方式可用，参见： http://docstore.mik.ua/orelly/perl/cookbook/ch07_09.htm http://docstore.mik.ua/orelly/perl/cookbook/ch07_10.htm http://docstore.mik.ua/orelly/perl/cookbook/ch07_11.htm

[Lc立强]

感谢bugs2k提供思路。

my $content;

my $file = $curdir."/score.txt";
my $score_type = "CHINESE";
my $score = 99;

if(!-e $file)
{
	open(FILE_TABLE,">>$file") or die "cannot open	$file\n";
	syswrite(FILE_TABLE,"#MATHS\r\n");
	syswrite(FILE_TABLE,"#CHINESE\r\n");
	syswrite(FILE_TABLE,"#ENGLISH\r\n");
	close(FILE_TABLE);
}

open(FILE_R,"<$file") or die "cannot open	$file\n";
open(FILE_W,"+<$file") or die "cannot open	$file\n";

while(<FILE_R>)
{
	chomp $_;
	if($score_type eq "MATHS")
	{
		if(/^#MATHS\s*/)
		{
			$content .= $_."#".$score."\n";
		}
		else
		{
			$content .= $_."\n";
		}
	}
	elsif($score_type eq "CHINESE")
	{

		if(/^#CHINESE\s*/)
		{
			$content .= $_."#".$score."\n";
		}
		else
		{
			$content .= $_."\n";
		}
	}
	elsif($score_type eq "ENGLISH")
	{
		if(/^#ENGLISH\s*/)
		{
			$content .= $_."#".$score."\n";
		}
		else
		{
			$content .= $_."\n";
		}
	}

}
print FILE_W $content;
truncate(FILE_W, tell(FILE_W));
close(FILE_R);
close(FILE_W);

其实我也不是为了弄成绩，而是在做数据采集和整理的时候，发现自己不懂这个，所以就问了。 希望能帮到大家。

[Lc立强]

而且我是刚开始用perl语言，很多东西都不太懂，要一直上网搜资料。