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

在理:-)

Sent from my Sony Xperia(tm) smartphone smartphone

夏凯 <walkerxk@gmail.com> wrote:

>On 2013年05月15日 20:04, Anthony WU wrote:
>> use POSIX qw/ceil/;
>> @line = <>;
>> chomp (@line);
>> print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
>> (0..ceil($#line/20));
>其实我想说一点，大家的热情是可以理解的，不过直接给代码很不好，授人以鱼不
>如授人以渔，他又不是很紧急，应该让他自己去思考，给他思路就行了。
>否则到时候一大堆简单的需求，要你们给出代码。
>
>--
>您收到此邮件是因为您订阅了 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。
>
>

--
您收到此邮件是因为您订阅了 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。