perl 的split()如何用？

[xivi]

1>请问在perl 中 split()函数的具体作用是什么？

2>怎样用？

3>在那里用？

4>在什么情况下要用到？

5>它是实现什么样的功能的？请举出例子详细说明一下

[1q1]

一般用于将一个标量按给定的正则表达式分解为数组，
用法如：@pairs = split(/&/, $buffer);
经常用在cgi程序的表单数据解码，你在网上几个perl写的cgi程序，很容易发现类似下面的代码：

#!/usr/bin/perl

$cgiurl = "http://localhost/perl/chat/chat.pl";
$text_color="black";
$bg_color="#ffffff";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# 分割资料，
@pairs = split(/&/, $buffer);
#转换输入中的特殊字符，把URL中的加号转化为空格等。
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
.........;

[kyotowolf]

split(/=/,$pair,5);
表示最多分成5个部分，其余的忽视

[tl66]

前面两位已经讲的比较清楚了，我再补充一点：
将一个标量按给定的正则表达式分解为数组时，默认时正则表达式的内容是不存入数组的，比如：

$String = 'fdkasgk 2343 dasfas';

@array = split(/\d+/,$String);
这时@array的内容是（''fdkasgk ',' dasfas');

如果要记录正则表达式的内容，则：
@array = split(（/(\d+)/）,$String);
这时@array的内容是（'fdkasgk ','2343'，' dasfas');

[tl66]

哦， 发现上面写错了， 是 @array = split(/(\d+)/,$String);