如何把行转换成列？见例子

qch1839

文件内容是：
a
b
c
1
2
3
4
5
6
7
8
9
...
转换成：
a b c
1 2 3
4 5 6
7 8 9
...
...
就是把 每个三行变成一行，用列表示。
谢谢啦

fengc

把下面的代码保存为r2c:

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. undef $/;
   
5. my $s = <>;
   
6. $s =~ s/(.*)\n(.*)\n(.*)\n/$1 $2 $3\n/g;
   
7. print $s;
   

复制代码

然后执行

1. ./r2c <数据文件

复制代码

就可以了。

如果是在Dos环境下，需要把\n改为\r\n。

gangjh

1. 
   
2. cat  input.txt | tr -d '\n'  |sed 's/.../&\n/g'
   

复制代码

huaxue

楼上的楼上的，请问下面这个是什么意思啊？谢谢！
undef $/;

vio

原帖由 huaxue 于 2006-7-18 15:34 发表
楼上的楼上的，请问下面这个是什么意思啊？谢谢！
undef $/;

$/默认是等于"\n"，
undef $/即使读入不以行为单位，而是一次性读入

huaxue

谢谢~
我发现坛子里牛人就是多啊~