国产探花免费观看_亚洲丰满少妇自慰呻吟_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:/>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 象州县| 民权县| 米林县| 南和县| 湖北省| 玉门市| 谢通门县| 乌拉特后旗| 郎溪县| 四子王旗| 泰和县| 法库县| 西青区| 周口市| 福海县| 沂源县| 崇州市| 调兵山市| 华阴市| 舒兰市| 海兴县| 湖北省| 安徽省| 砚山县| 张家川| 盘锦市| 弥勒县| 临夏县| 靖远县| 玛沁县| 内丘县| 平乐县| 姜堰市| 久治县| 长寿区| 互助| 修文县| 城口县| 榆中县| 东明县| 长岭县|