perl qw以空格為分隔字元問題的解決方案

perl中建立數組時，可以使用到qw。

但有一個問題，如果要建立有20個人名組成的數組，並且每個人的名字是這種形式的"Join smith" "Harry Potter"也就是每一個名字既包含姓也包含名。此時，qw就不起作用了。因為qw是用空格作為分隔字元。

下面提供一些替代的解決方案，供大家參考。

方案一：

用最原始的方案，也就是雙引號，來進行數組的建立

複製代碼 代碼如下:@names=("Join smith","Harry Potter");
print @names[0];

結果如下：
F:\>perl\b.pl
Join smith
F:\>

方案二：

我們可以進行一下簡單的變通，qw只能以空格為分隔字元，那我們把人名中間的空格用其他的字元進行替代。
@names=qw/Join_smith Harry_Potter/;
#然後當我們輸出的時候我們再把中間的串連符進行替換

複製代碼 代碼如下:@names[0]=~s/_/ /g;
print @names[0];

結果如下；
F:\>perl\b.pl
Join smith
F:\>

方案三：

利用split函數進行建立。

複製代碼 代碼如下:#首先我們定義一個變數
$names="Join smith,Harry potter",

#這裡利用split函數，這裡split//兩個斜線之間就是你要分割的地方，本例中以逗號為分割界限
my @names=split/,/,$names;
rint @names[0];

結果如下：
F:\>perl\b.pl
Join smith
F:\>