[問題] 在array裡取值

看板Perl作者 (jacobcan118)時間11年前 (2013/12/08 13:09), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/3 (看更多)
請問各位我有一個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
文章代碼(AID): #1Ie_yako (Perl)
文章代碼(AID): #1Ie_yako (Perl)