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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

41^# zhouhaiming 发表于 2007-09-05 12:49

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

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

42^# nkcsx 发表于 2007-09-05 12:59

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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

43^# zhouhaiming 发表于 2007-09-05 13:06

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

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

44^# zhouhaiming 发表于 2007-09-05 13:10

哈哈！还能格式化输出！

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

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

45^# doiob 发表于 2007-09-05 13:57

看来lz玩的很高兴啊。

xiaoyafeng

UID: 44542
帖子: 17
积分: 39
在线时间: 10 分钟

46^# xiaoyafeng 发表于 2007-09-05 14:05

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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

47^# zhouhaiming 发表于 2007-09-05 14:54

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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

48^# zhouhaiming 发表于 2007-09-05 15:01

QUOTE:

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

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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

49^# zhouhaiming 发表于 2007-09-05 16:13

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

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

50^# zhouhaiming 发表于 2007-09-05 16:19

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