關於perl can’t use string as an array ref

幻想的夢境

as title
我有一個檔案是這樣的
file:
@fruit: apple banana
@area: area1 area2 area3

我的程式這樣寫

use strict;
my @fruit;
my @area;

open fid,”<file”;
while(<fid>){
  if($_ =~ /^\s*(\S*?)\s*:\s*(.*)$/){
    @$1=split('\s+',$2);
    next;
  }
}

已經先以perl -c確認過語法沒問題
...

瀏覽完整內容，請先 註冊 或 登入會員