作者jacobcan118 (jacobcan118)
看板Perl
标题[问题] 在array里取值
时间Sun Dec 8 13:09:53 2013
请问各位我有一个array叫array_source 如下, 我有其他其他的办法可以取得 array_source里各个element里各个string里倒斜线里第二和第四得值.
我是用两次split 在用chomp但有其他方法可以更简单吗. 谢谢
print Dumper(@array_source)."\n";
for (my $i; i < 10; i++)
{
@array_a = split (/,/, $array_source[$i]);
for (my $j = 0; $j < $#array_a; $j++)
{
@array_b = split (/\//, $array_a[$j]);
chomp($var_a = @array_b[2]);
print "$var_a\n";
chomp($var_b= @array_b[4]);
print "$var_b\n";
}
----------------------
print out
$VAR1 = '/a/var-a00/b/var-b00,/a/var-a00/b/var-b01,/a/var-a01/b/var-b00,/a/var-a01/b/var-b01,/a/var-a02/b/var-b00,/a/var-a02/b/var-b01,/a/var-a03/b/var-b00,/a/var-a03/b/var-b01,';
$VAR2 = '/a2/var-a10/b2/var-b10,/a2/var-a10/b2/var-b01,/a2/var-a11/b2/var-b10,/a2/var-a11/b2/var-b11,/a2/var-a12/b2/var-b10,/a2/var-a12/b2/var-b11,/a2/var-a13/b2/var-b10,/a2/var-a13/b2/var-b11,'; ....
var-a00
var-b00
var-a00
var-b01
....
...
var-a13
var-b10
var-a13
var-b11
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 71.183.242.84