作者CindyLinz (Cindy Wang)
看板Perl
标题Re: [问题] 在array里取值
时间Sun Dec 8 16:17:34 2013
※ 引述《jacobcan118 (jacobcan118)》之铭言：
: 请问各位我有一个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
可以这样用, 然後那个是正斜线不是倒斜线 :p
for(@array_source) {
while( m!/.*?/(.*?)/.*?/(.*?),!g ) {
print "$1\n$2\n";
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 112.121.80.249