请教版主：循环问题 (simple loop in Perl)

richardxxg

UID: 37119
帖子: 47
积分: 108
在线时间: 3 小时

1^# richardxxg 发表于 2005-08-30 21:08

请教版主：循环问题 (simple loop in Perl)

$a="11=22=33=44=55=66=77=88=99=10=11=12=13=14=15=1=16=17=18=19";
@b=split(/=/,$a);

将@b中的值按每四个一行的格式印出来，中间用空格分开，也可以用其它的分隔符；

即：

11 22 33 44
55 66 77 88
...........　　　　　　

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

2^# dearvoid 发表于 2005-08-31 13:17

复制内容到剪贴板

代码:

[color=blue]-(guest@mac:tty1)-(tmp)-
[3757 0] %[/color] cat foo.pl
#!/usr/bin/perl -w

use strict;

main:
{
my $a = "11=22=33=44=55=66=77=88=99=10=11=12=13=14=15=1=16=17=18=19";
my @b = split(/=/, $a);
my $n = 0;
foreach (@b) {
print " $_" . (++$n % 4 ? "" : "\n");
}
}
[color=blue]-(guest@mac:tty1)-(tmp)-
[3757 0] %[/color] ./foo.pl
11 22 33 44
55 66 77 88
99 10 11 12
13 14 15 1
16 17 18 19
[color=blue]-(guest@mac:tty1)-(tmp)-
[3757 0] %[/color]

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

3^# dearvoid 发表于 2005-08-31 13:18

try not to ask questions like this any more　　　　　　

richardxxg

UID: 37119
帖子: 47
积分: 108
在线时间: 3 小时

4^# richardxxg 发表于 2005-09-01 18:39

谢谢版主，懂了。初学咯！！！　　　　　　