Question

用Perl读入一个文件，然后根据要求在特定行后面添加标记

例如：
111 aaa
222 bbb
333 ccc
444 ddd
555 aaa
666 hhh
777 yyy
如果遇到aaa则在该行后面加上A，其他的添加U。
最后的结果类似：
111 aaa A
222 bbb U
333 ccc U

Answer 1

while (<DATA>)
{
	chomp;
	if (/(\d+) (\w+)$/ && allsame($1) && allsame($2))
	{
		my $c = substr($2, 0, 1);
		$c = $c eq 'a'?'A':'U';
		print "$_ $c\n";
	}
}
sub allsame
{
	my $c  = substr($_[0], 0, 1);
	return  1 if ($_[0] =~/^$c+$/ ) ;
	return 0;
}

追问

谢谢，不过其实我是想看一下这样的文件。。。
246 HIS ATOM
247 LEU ATOM
248 LEU ATOM
249 GLY ATOM
250 GLY ATOM
然后把第三列换成第二列的缩写：
246 HIS H
247 LEU L
248 LEU L
249 GLY G
250 GLY G
我是想学习应该怎么才能把每一行当做一个数组，因为我用了chomp之后，只会进行列处理，不知道怎么才能完成行处理。

追答

chomp;
@arr = split;#全写的话就是@arr = split(" ", $_);
$arr[2] = substr($arr[1], 0, 1);
$str = join(" ", @arr);