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

看板Perl作者 (笨蛋...)時間8年前 (2016/03/23 23:21), 8年前編輯推噓3(304)
留言7則, 4人參與, 最新討論串1/1
內容如下: $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

03/24 01:09, , 1F
my $str='$row=Head(0) Site(1) (X,Y)=(-7,20)';
03/24 01:09, 1F

03/24 01:09, , 2F
$str=~/Head\((.*)\) Site\((.*)\) (.*)/g;
03/24 01:09, 2F

03/24 01:10, , 3F
print "\$1=$1, \$=$2, \$3=$3";
03/24 01:10, 3F

03/24 08:39, , 4F
如果只有這一行,用 regex 硬做無妨
03/24 08:39, 4F

03/24 08:40, , 5F
要不然,這麼複雜的字串,建議寫 parser 去處理
03/24 08:40, 5F

03/24 11:26, , 6F
那請問有辦法用split 切空白嗎?
03/24 11:26, 6F

03/24 12:35, , 7F
split" ",$STR 這樣就切空白了阿
03/24 12:35, 7F
文章代碼(AID): #1MyhHUbp (Perl)
文章代碼(AID): #1MyhHUbp (Perl)