Chinaunix

标题: 如何把行转换成列？见例子 [打印本页]

作者: qch1839 时间: 2006-07-13 00:28
标题: 如何把行转换成列？见例子
文件内容是：
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 时间: 2006-07-13 08:33
把下面的代码保存为r2c:

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

复制代码

然后执行

./r2c <数据文件

复制代码

就可以了。

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

作者: gangjh 时间: 2006-07-13 11:27

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

复制代码

作者: huaxue 时间: 2006-07-18 15:34
楼上的楼上的，请问下面这个是什么意思啊？谢谢！
undef $/;

作者: vio 时间: 2006-07-18 20:09

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

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

作者: huaxue 时间: 2006-07-19 11:34
谢谢~
我发现坛子里牛人就是多啊~

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)