国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

perl qw以空格為分隔符問題的解決方法

2020-10-31 15:17:12
字體:
來源:轉載
供稿:網友

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:/>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 鹤峰县| 宣城市| 南京市| 枣强县| 美姑县| 永福县| 贺兰县| 民乐县| 嵩明县| 临江市| 常山县| 山西省| 涡阳县| 大新县| 江都市| 高州市| 乐山市| 饶平县| 灵川县| 公主岭市| 乐至县| 镇康县| 敖汉旗| 凤翔县| 洪江市| 贺兰县| 股票| 绿春县| 苍溪县| 寻乌县| 蒲城县| 达尔| 大连市| 恩平市| 德钦县| 义乌市| 巴林右旗| 秭归县| 伊通| 昌黎县| 正安县|