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) 了。

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。