用逗号替换换行符

--> 本来想使用awk的,可是老半天没想出来,笨一点,先将活干完：
perl -e '$file=shift;
open FD,$file;
undef $/;
$c=<FD>;
$c =~ s/\n/,/g;
print $c;
close FD;' filename

后来查了一下awk的用法：

awk 'BEGIN {RS=""} {gsub("\n",",");print $0}' filename

再来一个Perl的：

perl -pe "$/='';s/\n/,/g " filename

看这里：http://www.stonehenge.com/merlyn/UnixReview/col01.html

暴晕！