大家好！请问用什么办法能把这段文本拆解啊？

zhouhaiming

楼上的朋友，你的用法没能换行啊

nkcsx

print ((join "\t", splice @lalala, 0, 4), "\n");

zhouhaiming

C:\>type test93.pl
@d=(1..9);
print ((join "\t", @d),"\n");
print "---分割符---\n";
splice(@d, 0, 2);
print ((join "\t", @d), "\n");


C:\>perl test93.pl
1       2       3       4       5       6       7       8       9
---分割符---
3       4       5       6       7       8       9


做了个试验,玩的真明白！牛

zhouhaiming

哈哈！还能格式化输出！

@d=(1..9);
print ((join "\t", @d),"\n");
print "---分割符---\n";
splice(@d, 0, 2);
printf ("%40s\n",(join "\t", @d));

doiob

看来lz玩的很高兴啊。:wink:

xiaoyafeng

楼主上30了还这么好学， 赞一个！

zhouhaiming

30好几了！儿子都4岁了，还一事无成，碌碌无为，惭愧！

zhouhaiming

原帖由 nkcsx 于 2007-9-5 12:59 发表
print ((join "\t", splice @lalala, 0, 4), "\n");

仔细想了一下，觉得这样做还是有点小缺陷，我没法更详细的定义数组中每个元素的输出格式啊，例如输出长度，对齐等等
哪位网友能帮着改进一下吗？

zhouhaiming

搞明白了！这样就行了
@d=(1..9);
print ((join "\t", @d),"\n");
print "---分割符---\n";
splice(@d, 0, 2);
printf ("%-10s%-20s\n", @d);

zhouhaiming

C:\>type test93.pl
@a=(1..10);
while(@a)
{
  printf("%-10s%-10s\n", splice(@a, 0, 2));
}


C:\>perl test93.pl
1         2
3         4
5         6
7         8
9         10