作者doom8199 (～口卡口卡 修～)
看板Perl
標題[問題] regex 字串擷取
時間Sat Nov 17 12:23:26 2012
版上各位先進好，小弟最近在自學 Perl
目前念到 regular expression 那部分
其中字串比對成功後，會把比對結果儲存到 $1, $2,.. 裏頭
所以自己打了一小段 code:
『
#!/usr/bin/perl -w
use strict;
my $content = "I hate bugs";
print "$1\n" if ($content =~ (/i.*bugs/i));
』
但我實際測試一下，卻發生以下 warning:
"Use of uninitialized value $1 in print at pl08e05.pl line 5"
而且也沒有 print 出任何結果 Q_Q
上網找很久，也沒有人有這方面的問題
不知道是 code 哪邊沒打好，或是作業系統or版本問題
我目前是在 Win7 下安裝 StrawBerry perl v5.16
(ps: 上禮拜有抓到 v5.18，但不知為何官網把它撤掉)
麻煩各位先進解惑 >_<
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.137.65.45
1F：→ micangela:要用小括號指定要存的比對結果 11/17 13:32
2F：→ micangela:改成 $content =~ /(i.*bugs)/i 試試看? 11/17 13:32
3F：→ doom8199:謝謝，原來要用()來賦值。 另外想問一下，若要把比對結果 11/17 21:49
4F：→ doom8199:直接丟給 ($90,$91,$92) for example，而不從1~3開始存 11/17 21:51
5F：→ doom8199:請問除了()暴力加89個外，有何簡便的寫法 >_<? 11/17 21:52
6F：推 clanguage:表示前面的資料你不需要 你要排除他,只抓出你需要的資料 11/17 22:17
7F：推 micangela:doom8199 這個應用很奇怪... 11/18 01:51
8F：→ micangela:若是為了可讀性想把比對到的值存在易於辨識的變數的話 11/18 01:54
9F：→ micangela:一個作法是在小括弧中指定名字再透過 %+ hash讀取 11/18 01:55
10F：→ micangela:例如 $content =~ /(?<my_name>i.*bugs)/ 11/18 01:56
11F：→ micangela:比對結果會在變數 $+{my_name}中 11/18 01:57