perl 字符串转换成数组

从配置文件中读出的字符串，里面包含了多个元素，若想依次对元素进行操作，就需要把字符串转换成数组格式。

比如  volume  e:，f:，g:

代码如下：

#!/usr/bin/perl

my $str="e:\, g: , f:";

strtoArray($str);

sub strtoArray
{
	my $str=shift(@_);
	my @outArray;
	my @Array=split(/,/,$str);
	foreach $item (@Array) {
		$item =~ s/\\$//;   # remove tail /
		$item =~ s/\s$//;   # remove tail space
		$item =~ s/^\s//;   # remove head space
		print $item."\n";
		push (@outArray,$item);
	}
	print @outArray;
	return @outArray;
}
 

之后对元素操作，就可以用foreach $item (@outArray) 了。