[問題] 請教關於split及reg問題

[bor1228 (笨蛋...)]

內容如下:
$row=Head(0) Site(1) (X,Y)=(-7,20)

想把它用空白分割成三等份，但是用了

my($hd,$st,$ad)= split(' ',$row) 或者是把' '改成 => /\sOB+/ 都沒辦法成功

請問高手點解啦~~


P.S 如果想使用regular expression 把他表示 得出$1=0 ,$2=1 ,$3=(X,Y)=(-7,20)
                                        Head內容 ^     ^Site內容

這樣又要如何寫呢?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.126.20.75
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1458746462.A.973.html
※ 編輯: bor1228 (59.126.20.75), 03/23/2016 23:31:39
推 MistQ: my $str='$row=Head(0) Site(1) (X,Y)=(-7,20)';
→ MistQ: $str=~/Head\((.*)\) Site\((.*)\) (.*)/g;
→ MistQ: print "\$1=$1, \$=$2, \$3=$3";
→ Neisseria: 如果只有這一行，用 regex 硬做無妨
→ Neisseria: 要不然，這麼複雜的字串，建議寫 parser 去處理
推 loyuchu1539: 那請問有辦法用split 切空白嗎？
推 abliou: split" ",$STR 這樣就切空白了阿