Re: [PerlChina] 用perl对文本的列进行处理的问题

好像也可以用 format 实现。

__END__

{

 $name = '林兴陆(@小林)';

 $qq = 28888888;

 $mail = 'i@lxl.cn';

 @tel = (18601350410, 13501281365);

 %url = (

  'website' => "http://www.yes123.com",

  'homepage' => "http://linxinglu.com"

 );

 # 信恩科技: 移动学习 寓教于乐

}

在 2013-5-15，19:09，"夏凯" <walkerxk@gmail.com> 写道：

On 2013年05月15日 17:39, Li Xiangchen wrote:

这样的每20行数据为一列，中间以制表符隔开的形式，但苦于刚学Perl不太会写 程序操作，还请朋友帮忙，谢谢！

一个hash，然后每次写入a[i" "j]，i是行数-1除以20的余数，j是行数-1除以20的 结果，然后最后只要两个for循环把这个散列打印出来就行了。
比如数据是1-6，然后变成三行
a[0" "0]=1
a[1" "0]=2
a[2" "0]=3
a[0" "1]=4
a[1" "1]=5
a[2" "1]=6
for(i=0;i<2;i++)for(j=0;j<=col;j++)，这样打印出来就是
1 4
2 5
3 6

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。