用perl 从一个文件生成另一个文件（小case)

有一个文件叫sections, 如下:
hjj@ubuntu:~$ cat sections 
0xe08d4000 
0xe08d642c

由sections 文件，欲生成debug-sections 文件，期待如下：
hjj@ubuntu:~$ cat debug-sections 
add-symbol-file uxfs.ko 0xe08d4000 -s .exit.text 0xe08d642c

就是说从第一个文件中读取第一行，第二行内容，

添加其它一些信息，合成到一个新文件中。

用perl 解决该问题如下：

hjj@ubuntu:~$ cat merge.pl 
#!/usr/bin/perl -w
die "Usage $0 " if @ARGV < 1;

open (FDR,"<",$ARGV[0]) || die $!;
while()
{
	chomp $_;
	push @lines, $_;
}
$result = "add-symbol-file uxfs.ko ". $lines[0] . "-s .exit.text " . $lines[1]."\n";
print $result;

运行结果：
hjj@ubuntu:~$ ./merge.pl sections 
add-symbol-file uxfs.ko 0xe08b9000-s .exit.text 0xe08bb42c

用SED 解决更加简单， 我从csdn 上求来的！

echo "add-symbol-file uxfs.ko `sed -n '1 p' sections`  -s .exit.text `sed -n '2 p' sections`" > debug-sections 

sed 还是复杂了一些，不实用。 用awk 才具有实用价值

$ cat sections |awk '{a[NR]=$0} END{print "add-symbol-file uxfs.ko "a[1], " -s .exit.text "a[2], "\n"}'

结果：
add-symbol-file uxfs.ko 0xe08d4000   -s .exit.text 0xe08d642c

数据导入及打印输出一气呵成。思路清楚！