$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=99=10=11=12=13=14=15=1=16=17=18=19";
@array = split(/=/);
$i = 0;
foreach (@array) {
        print ;
        if (!(++$i % 4)) {print "\n"};
}

　　　　　　

谢谢版主，我试试；初学perl多指教！