perl问题

[wangj123456mn]

sub make_path {
	my $path;

	foreach my $element (@_) {
		if ($path && rindex($path, '/') != length($path) - 1) {
			$path .= '/';
		}
		$path .= $element;
	}

	return $path;
}

谁能告诉我这个函数是什么意思？实在是没有看懂。。工作需要

[proorck6]

哪里不懂？

[fibbery]

构造一个路径。参数为每一级的目录名。例如：
make_path("a","b","c");
函数返回值为"a/b/c".

[nucgpeak]

foreach my $element (@_) {
if ($path && rindex($path, '/') != length($path) - 1) {
$path .= '/';
}
$path .= $element;
}

翻译了下，凑合着看吧

$element依次取出你输入的字符串{
如果 （$path不为空 并且 $path的最后一位不是‘/’）{
$path在后面加上‘/’
}
$path在后面加上$element
}